value format-req/c : contract?

value paren-format : format-req/c

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

value extended-format : format-req/c

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

value apache-default-format : format-req/c

value log-format/c : contract?

procedure (log-format->format id) → format-req/c

id : log-format/c

procedure (make [#:format format #:log-path log-path]) → dispatcher/c

format : format-req/c = paren-format

log-path : path-string? = "log"