suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Closing the log promptly, rather than waiting for the custodian.

Browse Source 
svn: r57
This commit is contained in:
Jay McCarthy 2005-06-03 13:19:01 +00:00
parent 8cc8bd54af
commit ddb5e5ce18
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/web-server/configuration.ss
View File

@ -248,11 +248,13 @@
(lambda (host-ip client-ip method uri host)
(semaphore-wait outsem)
; do the display all at once by formating first
(display
(format "~s~n"
(list 'from client-ip 'to host-ip 'for (url->string uri) 'at
(date->string (seconds->date (current-seconds)) #t)))
(open-output-file log-path 'append))
(let ([log-p (open-output-file log-path 'append)])
(display
(format "~s~n"
(list 'from client-ip 'to host-ip 'for (url->string uri) 'at
(date->string (seconds->date (current-seconds)) #t)))
log-p)
(close-output-file log-p))
(semaphore-post outsem))))
; ignore-log : sym str -> str str sym url str -> str