move CLF log to SEND-HTTP-RESPONSE and log correct status code

This commit is contained in:
interp 2002-09-02 14:49:24 +00:00
parent 0ab5c48cfc
commit a33b7405a5
1 changed files with 4 additions and 3 deletions

View File

@ -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)