From c83ffe0ad456dec4c88bf58411181392ad4e8811 Mon Sep 17 00:00:00 2001 From: interp Date: Sun, 14 Apr 2002 16:58:49 +0000 Subject: [PATCH] added HTTP-SYSLOG call when a reply-code is not handled. --- httpd-core.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/httpd-core.scm b/httpd-core.scm index 4ca6654..60963c4 100644 --- a/httpd-core.scm +++ b/httpd-core.scm @@ -263,7 +263,7 @@ (parse-http-request sock options))) ; (1) Parse request. (handler (httpd-options-path-handler options))) - (handler (cdr (http-url:path (request:url req))) req) ; (2) Deal with it. (skipped initial "/") + (handler (cdr (http-url:path (request:url req))) req) ; (2) Deal with it. (skip initial "/") (http-log req http-reply/ok)))) @@ -609,7 +609,9 @@ the requested method (~A).~%" (request:method req)) (if message (format out "

~a~%" message))))) - (else (if html-ok? (generic-title)))) + (else + (http-syslog (syslog-level info) "Skipping unhandled reply code ~A.~%" reply-code) + (if html-ok? (generic-title)))) (cond (html-ok?