diff --git a/scheme/httpd/logging.scm b/scheme/httpd/logging.scm index c8a3bcd..7af1a97 100644 --- a/scheme/httpd/logging.scm +++ b/scheme/httpd/logging.scm @@ -118,7 +118,9 @@ (format #f "~A - - ~A ~S ~A ~A ~S ~S~%" (or remote-ip "-") (format-date "[~d/~b/~Y:~H:~M:~S +0000]" (date)) ; +0000 as we don't know - (string-join (list request-type "/" requested-file protocol)) + (string-join (list request-type + (string-append "/" requested-file) + protocol)) ; Unfortunately, we first split the request line into ; method/request-type etc. and put it together here. ; Files conform to CLF are expected to print the original line.