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?