move CLF log to SEND-HTTP-RESPONSE and log correct status code
This commit is contained in:
parent
0ab5c48cfc
commit
a33b7405a5
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue