From a33b7405a5466f2a32bde6972bc6e2c0b6ceddf0 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 2 Sep 2002 14:49:24 +0000 Subject: [PATCH] move CLF log to SEND-HTTP-RESPONSE and log correct status code --- scheme/httpd/core.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm index f14b7a3..4fcb31b 100644 --- a/scheme/httpd/core.scm +++ b/scheme/httpd/core.scm @@ -171,8 +171,7 @@ (socket:inport sock) (socket:outport sock) options) - - (http-log req http-status/ok)))))) + ))))) (define (redirect-request req response socket options) (let* ((new-location-uri (redirect-body-location (response-body response))) @@ -325,7 +324,9 @@ (send-http-headers response output-port)) (if (not (string=? (request:method request) "HEAD")) - (display-http-body (response-body response) input-port output-port options))) + (display-http-body (response-body response) input-port output-port options)) + + (http-log request (response-code response))) (define (send-http-header-fields headers port) (for-each (lambda (pair)