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

Changing log cache to regular variable

Browse Source 
svn: r640
This commit is contained in:
Jay McCarthy 2005-08-23 22:24:59 +00:00
parent ef55cd3242
commit 00b2750368
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -246,24 +246,24 @@
; to produce a string that is displayed into the log file
(define (gen-log-message log-format log-path)
(let ([outsem (make-semaphore 1)]
[log-p (make-parameter #f)])
[log-p #f])
(lambda (host-ip client-ip method uri host)
(call-with-semaphore
outsem
(lambda ()
(with-handlers ([exn? (lambda (e) (log-p #f))])
(unless (and (log-p) (file-exists? log-path))
(unless (eq? (log-p) #f)
(close-output-port (log-p)))
(log-p (open-output-file log-path 'append))
(file-stream-buffer-mode (log-p) 'line))
(with-handlers ([exn? (lambda (e) (set! log-p #f))])
(unless (and log-p (file-exists? log-path))
(unless (eq? log-p #f)
(close-output-port log-p))
(set! log-p (open-output-file log-path 'append))
(file-stream-buffer-mode log-p 'line))
; do the display all at once by formating first
(when (log-p)
(when log-p
(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)))))))))
log-p))))))))
; ignore-log : sym str -> str str sym url str -> str
(define (ignore-log log-format log-path) void)