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