diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-02 16:20:07 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-02 16:27:05 +0200 |
| commit | 5936c689089acf2c3a863f12dd49b28ed027c63c (patch) | |
| tree | 3491ba4fc3d59a7322aa1b1e3881ca0b619f2643 /src | |
| parent | 3f1c996d1cfebbc3c859d210cda5ba7b61efdeec (diff) | |
Log requests and responses to STDOUT if the response is OK, STDERR otherwise
Diffstat (limited to 'src')
| -rw-r--r-- | src/scm/webid-oidc/program.scm | 22 |
1 files changed, 14 insertions, 8 deletions
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) |