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

33
src/main/logging.cl
View File

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