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

make-host-name-handler now uses get-header from sunet-utilities.scm

This commit is contained in:
vibr 2004-08-14 22:03:19 +00:00
parent 8cf841bad3
commit ef48e4e5ae
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/httpd/handlers.scm
View File

@ -48,9 +48,12 @@
(make-predicate-handler
(lambda (path req)
;; we expect only one host-header-field
(let ((body (string-trim (get-header (request-headers req) 'host))))
(or (string-ci=? hostname body)
(string-prefix-ci? (string-append hostname ":") body))))
(let ((maybe-val (get-header (request-headers req) 'host)))
(if maybe-val
(let ((val (string-trim maybe-val)))
(or (string-ci=? hostname val)
(string-prefix-ci? (string-append hostname ":") val)))
(http-error (status-code bad-request) "No Host: header"))))
handler default-handler))
;; selects handler according to path-prefix