diff options
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 |