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

Revert to old representation of HTTP-URL:PATH.

This commit is contained in:
sperber 2002-06-08 15:29:29 +00:00
parent f9ae24b133
commit 0d70f66dd7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/core.scm
View File

@ -157,7 +157,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. (skip initial "/") (handler (http-url:path (request:url req)) req) ; (2) Deal with it.
(http-log req http-reply/ok)))) (http-log req http-reply/ok))))
@ -231,7 +231,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 path) ; DON'T Skip initial /. (map unescape-uri (cdr path)) ; Skip initial /.
search search
#f)) #f))

2
scheme/httpd/logging.scm
View File

@ -118,7 +118,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.