diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-01 10:43:52 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-04 23:06:10 +0200 |
commit | b57ab480fa9105767e91c430801c885941784450 (patch) | |
tree | 6cd2af25381be9185cc976c9ff433fc520d1a7d6 /src/scm/webid-oidc/program.scm | |
parent | e3f75ea67bb6442a9613088d42f98c68dce6e816 (diff) |
Server: also log when we connect to the web
Diffstat (limited to 'src/scm/webid-oidc/program.scm')
-rw-r--r-- | src/scm/webid-oidc/program.scm | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index fc9d746..6a70cdc 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -82,13 +82,22 @@ (f)))) (define (setup-http-request f) - (use-cache - (lambda () - (use-catalog - (lambda () - (use-logging-request - (lambda () - (f)))))))) + (let ((base-http-request (p:anonymous-http-request))) + (parameterize ((p:anonymous-http-request + (lambda* (uri . args) + (with-mutex logging-mutex + (format (current-output-port) + (G_ "~a: connecting to ~s\n") + (date->string (time-utc->date (current-time))) + (uri-host uri))) + (apply base-http-request uri args)))) + (use-cache + (lambda () + (use-catalog + (lambda () + (use-logging-request + (lambda () + (f)))))))))) (define (request-ip-address request) ;; The IP address of the remote end |