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

Don't lose initial "/" in path-list until handler is invoked.

This commit is contained in:
interp 2002-04-02 20:25:11 +00:00
parent aa1785587b
commit d0efc1f470
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
httpd-core.scm
View File

@ -123,7 +123,7 @@
(format #f "~A - - ~A ~S ~A ~A ~S ~S~%" (format #f "~A - - ~A ~S ~A ~A ~S ~S~%"
(or remote-ip "-") (or remote-ip "-")
(format-date "[~d/~b/~Y:~H:~M:~S +0000]" (date)) ; +0000 as we don't know (format-date "[~d/~b/~Y:~H:~M:~S +0000]" (date)) ; +0000 as we don't know
(string-join (list "/" request-type requested-file protocol)) (string-join (list request-type requested-file protocol))
; Unfortunately, we first split the request line into ; Unfortunately, we first split the request line into
; method/request-type etc. and put it together here. ; method/request-type etc. and put it together here.
; Files conform to CLF are expected to print the original line. ; Files conform to CLF are expected to print the original line.
@ -259,7 +259,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 (http-url:path (request:url req)) req) ; (2) Deal with it. (handler (cdr (http-url:path (request:url req))) req) ; (2) Deal with it. (skipped initial "/")
(http-log req http-reply/ok)))) (http-log req http-reply/ok))))
@ -370,7 +370,7 @@
(make-http-url (make-userhost #f #f (make-http-url (make-userhost #f #f
local-name local-name
(number->string portnum)) (number->string portnum))
(map unescape-uri (cdr path)) ;Skip initial /. (map unescape-uri path) ; DON'T Skip initial /.
search search
#f)) #f))