diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-02 11:34:11 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-02 14:49:13 +0200 |
| commit | 988223d3d2db72a51c8e0e4140124ba614719789 (patch) | |
| tree | 7041ead3281f0807a17a7d5cfdd7854b1ec8df1a /src/scm/webid-oidc/program.scm | |
| parent | df601c07b7d643f1dd8fdc2615e795b3f3ea1b3b (diff) | |
Log request paths, methods, and response codes
Diffstat (limited to 'src/scm/webid-oidc/program.scm')
| -rw-r--r-- | src/scm/webid-oidc/program.scm | 7 |
1 files changed, 7 insertions, 0 deletions
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) |