scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/httpd/core.scm
View File

@ -171,8 +171,7 @@
(socket:inport sock) (socket:inport sock)
(socket:outport sock) (socket:outport sock)
options) options)
)))))
(http-log req http-status/ok))))))
(define (redirect-request req response socket options) (define (redirect-request req response socket options)
(let* ((new-location-uri (redirect-body-location (response-body response))) (let* ((new-location-uri (redirect-body-location (response-body response)))
@ -325,7 +324,9 @@
(send-http-headers response output-port)) (send-http-headers response output-port))
(if (not (string=? (request:method request) "HEAD")) (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) (define (send-http-header-fields headers port)
(for-each (lambda (pair) (for-each (lambda (pair)