From d5dcbace37f6df3122efa4f7a7ef65bc040f95b1 Mon Sep 17 00:00:00 2001 From: interp Date: Tue, 25 Feb 2003 17:36:36 +0000 Subject: [PATCH] Log a single dash (`-') if referer or user-agent header is missing/unknown --- scheme/httpd/logging.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/logging.scm b/scheme/httpd/logging.scm index ee8f2b2..1834e84 100644 --- a/scheme/httpd/logging.scm +++ b/scheme/httpd/logging.scm @@ -136,7 +136,7 @@ (define (get-header headers tag) (cond ((assq tag headers) => cdr) - (else "unknown"))) + (else #f))) ;; does the log-file rotation on signal USR1 (define (make-log-file-rotator log-file http-log-lock) @@ -176,10 +176,10 @@ ; Files conform to CLF are expected to print the original line. (or http-code "-") (or filesize "-") - (if (string? referer) (string-trim referer) "") + (if (string? referer) (string-trim referer) '-) (if (string? user-agent) (string-trim user-agent char-set:whitespace) - ""))) + '-))) (define (maybe-dns-lookup remote-ip)