scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added HTTP-SYSLOG call when a reply-code is not handled.

This commit is contained in:
interp 2002-04-14 16:58:49 +00:00
parent 15d1ab7b23
commit c83ffe0ad4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
httpd-core.scm
View File

@ -263,7 +263,7 @@
(parse-http-request sock options))) ; (1) Parse request. (parse-http-request sock options))) ; (1) Parse request.
(handler (handler
(httpd-options-path-handler options))) (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)))) (http-log req http-reply/ok))))
@ -609,7 +609,9 @@ the requested method (~A).~%"
(request:method req)) (request:method req))
(if message (format out "<P>~a~%" message))))) (if message (format out "<P>~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 (cond
(html-ok? (html-ok?