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

replace calls of HTTP-URL->STRING (relict of old URL parser) 

with calls of HTTP-URL->URL-STRING
This commit is contained in:
vibr 2005-04-06 11:44:28 +00:00
parent 17a46a7e71
commit 0de6fe79b4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,7 +254,7 @@
((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 (http-url->string (request-url req)) (string-append (http-url->url-string (request-url req))
"/"))) "/")))
(else (make-error-response (status-code forbidden) req))))) (else (make-error-response (status-code forbidden) req)))))

4
scheme/httpd/response.scm
View File

@ -255,7 +255,7 @@
(lambda (port options) (lambda (port options)
(generic-title port) (generic-title port)
(format port "The method ~A is not allowed on the requested resource ~A.~%" (format port "The method ~A is not allowed on the requested resource ~A.~%"
(request-method req) (http-url->string (request-url req))) (request-method req) (http-url->url-string (request-url req)))
(close-html port (cdr extras))))) (close-html port (cdr extras)))))
;; This error response requires one arg: ;; This error response requires one arg:
@ -284,7 +284,7 @@
(lambda (port options) (lambda (port options)
(title-html port "Resource not found") (title-html port "Resource not found")
(format port "The requested resource ~A was not found on this server.~%" (format port "The requested resource ~A was not found on this server.~%"
(http-url->string (request-url req))) (http-url->url-string (request-url req)))
(close-html port extras)))) (close-html port extras))))
((eq? code (status-code internal-error)) ((eq? code (status-code internal-error))