From 988223d3d2db72a51c8e0e4140124ba614719789 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Fri, 2 Jul 2021 11:34:11 +0200 Subject: Log request paths, methods, and response codes --- src/scm/webid-oidc/program.scm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src') diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index a9c1a0f..4d431da 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -88,6 +88,13 @@ (lambda () (receive (response response-body) (handler request request-body) + (format (current-error-port) + (G_ "~a: ~s ~a ~s ~a\n") + (date->string (time-utc->date (current-time))) + (request-method request) + (uri-path (request-uri request)) + (response-code response) + (response-reason-phrase response)) (return (build-response #:version (response-version response) -- cgit v1.2.3