OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corrected logging of time-zone stuff.

Browse Source
This commit is contained in:
Pierre R. Mai
2001-04-06 01:39:49 +00:00
parent 69f36101c9
commit 995fbf131b
1 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/main/logging.cl
View File

@ -95,12 +95,15 @@
(multiple-value-bind (second minute hour date month year day daylight-p (multiple-value-bind (second minute hour date month year day daylight-p
zone) zone)
(get-decoded-time) (get-decoded-time)
(declare (ignore daylight-p day)) (declare (ignore day))
(let ((gmt-zone (* (if daylight-p (1- zone) zone) -100)))
(ignore-errors (ignore-errors
(format stream (format stream
"~A - - [~2,'0D/~2,'0D/~4,'0D:~2,'0D:~2,'0D:~2,'0D ~@4,'0D] \"~A ~A ~A\" ~3,'0D ~D~%" "~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) (connection-hostname connection)
date month year hour minute second (* zone 100) date month year hour minute second
(if (minusp gmt-zone) #\- #\+)
(abs gmt-zone)
(request-method (response-request response)) (request-method (response-request response))
(request-url (response-request response)) (request-url (response-request response))
(http-message-version (response-request response)) (http-message-version (response-request response))
@ -109,4 +112,4 @@
(if entity (if entity
(or (entity-content-length entity) 0) (or (entity-content-length entity) 0)
0))) 0)))
(force-output stream))))) (force-output stream))))))