From 594bb3989be4d120afd8549cce757f9879e4ab43 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 20 Nov 2016 18:11:08 +1300 Subject: [PATCH] Log web requests --- racket/syndicate/drivers/web.rkt | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt index 119173c..f4854d4 100644 --- a/racket/syndicate/drivers/web.rkt +++ b/racket/syndicate/drivers/web.rkt @@ -318,6 +318,7 @@ (read-request conn listen-port tcp-addresses))) (when req (define id (gensym 'web)) + (define start-ms (current-inexact-milliseconds)) (send-ground-message (web-raw-request id listen-port conn req control-ch)) (sync (handle-evt control-ch (match-lambda @@ -329,6 +330,15 @@ (lambda _args (values reply-headers (void)))) conn req))] [(list 'response resp) + (define delay-ms (inexact->exact + (truncate + (- (current-inexact-milliseconds) start-ms)))) + (log-info "~s" `((method ,(request-method req)) + (url ,(url->string (request-uri req))) + (headers ,(request-headers req)) + (port ,(request-host-port req)) + (code ,(response-code resp)) + (delay-ms ,delay-ms))) (output-response/method conn resp (request-method req))]))) (do-request))))))