From 995fbf131b518282a8a82352e2ee313fe9c255e5 Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Fri, 6 Apr 2001 01:39:49 +0000 Subject: [PATCH] Corrected logging of time-zone stuff. --- src/main/logging.cl | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/src/main/logging.cl b/src/main/logging.cl index b8a39a7..dff1f40 100644 --- a/src/main/logging.cl +++ b/src/main/logging.cl @@ -95,18 +95,21 @@ (multiple-value-bind (second minute hour date month year day daylight-p zone) (get-decoded-time) - (declare (ignore daylight-p day)) - (ignore-errors - (format stream - "~A - - [~2,'0D/~2,'0D/~4,'0D:~2,'0D:~2,'0D:~2,'0D ~@4,'0D] \"~A ~A ~A\" ~3,'0D ~D~%" - (connection-hostname connection) - date month year hour minute second (* zone 100) - (request-method (response-request response)) - (request-url (response-request response)) - (http-message-version (response-request response)) - (response-status-code response) - (let ((entity (http-message-entity response))) - (if entity - (or (entity-content-length entity) 0) - 0))) - (force-output stream))))) + (declare (ignore day)) + (let ((gmt-zone (* (if daylight-p (1- zone) zone) -100))) + (ignore-errors + (format stream + "~A - - [~2,'0D/~2,'0D/~4,'0D:~2,'0D:~2,'0D:~2,'0D ~C~4,'0D] \"~A ~A ~A\" ~3,'0D ~D~%" + (connection-hostname connection) + date month year hour minute second + (if (minusp gmt-zone) #\- #\+) + (abs gmt-zone) + (request-method (response-request response)) + (request-url (response-request response)) + (http-message-version (response-request response)) + (response-status-code response) + (let ((entity (http-message-entity response))) + (if entity + (or (entity-content-length entity) 0) + 0))) + (force-output stream))))))