2.8 Logging
The web-server/dispatchers/dispatch-log module defines a dispatcher constructor
for transparent logging of requests.
Formats a request by:
(format "~s\n" (list 'from (request-client-ip req) 'to (request-host-ip req) 'for (url->string (request-uri req)) 'at (date->string (seconds->date (current-seconds)) #t)))
Formats a request by:
(format "~s\n" `((client-ip ,(request-client-ip req)) (host-ip ,(request-host-ip req)) (referer ,(let ([R (headers-assq* #"Referer" (request-headers/raw req))]) (if R (header-value R) #f))) (uri ,(url->string (request-uri req))) (time ,(current-seconds))))
Formats a request like Apache’s default.
| (log-format->format id) → format-req/c |
| id : log-format/c |
Maps 'parenthesized-default to paren-format,
'extended to extended-format, and
'apache-default to apache-default-format.
| (make [#:format format #:log-path log-path]) → dispatcher/c |
| format : format-req/c = paren-format |
| log-path : path-string? = "log" |