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

adapt calls of make-error-response: 

no URI header field in 1.1
This commit is contained in:
vibr 2004-07-29 16:09:31 +00:00
parent 5e14a326b9
commit 63e4761c58
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/cgi-server.scm
View File

@ -260,8 +260,7 @@
(if loc (if loc
(if (uri-has-protocol? (string-trim loc)) (if (uri-has-protocol? (string-trim loc))
(make-error-response (status-code moved-perm) req (make-error-response (status-code moved-perm) req loc)
loc loc)
(make-redirect-response (string-trim loc))) (make-redirect-response (string-trim loc)))
;; Send the response header back to the client ;; Send the response header back to the client
(make-response ;code message seconds mime extras body (make-response ;code message seconds mime extras body

1
scheme/httpd/file-dir-handler.scm
View File

@ -254,7 +254,6 @@
((directory) ; Send back a redirection "foo" -> "foo/" ((directory) ; Send back a redirection "foo" -> "foo/"
(make-error-response (make-error-response
(status-code moved-perm) req (status-code moved-perm) req
(string-append (request-uri req) "/")
(string-append (http-url->string (request-url req)) (string-append (http-url->string (request-url req))
"/"))) "/")))