From 5936c689089acf2c3a863f12dd49b28ed027c63c Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Fri, 2 Jul 2021 16:20:07 +0200 Subject: Log requests and responses to STDOUT if the response is OK, STDERR otherwise --- src/scm/webid-oidc/program.scm | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) (limited to 'src/scm/webid-oidc/program.scm') diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index 66f1c66..7e47c2b 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -102,14 +102,20 @@ (lambda () (receive (response response-body) (handler request request-body) - (format (current-output-port) - (G_ "~a: ~a: ~s ~a ~s ~a\n") - (date->string (time-utc->date (current-time))) - (request-ip-address request) - (request-method request) - (uri-path (request-uri request)) - (response-code response) - (response-reason-phrase response)) + (let ((logging-port + (let ((response-code (response-code response))) + (if (>= response-code 400) + ;; That’s an error + (current-error-port) + (current-output-port))))) + (format logging-port + (G_ "~a: ~a: ~s ~a ~s ~a\n") + (date->string (time-utc->date (current-time))) + (request-ip-address request) + (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