syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Log web requests

This commit is contained in:
Tony Garnock-Jones 2016-11-20 18:11:08 +13:00
parent c77793f7fd
commit 594bb3989b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/syndicate/drivers/web.rkt
View File

@ -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))))))