From 8ed2a48176b50b07984c7e4eac50303ad2bf8eeb Mon Sep 17 00:00:00 2001 From: sperber Date: Tue, 14 Jan 2003 15:02:07 +0000 Subject: [PATCH] Rename URI-PATH-LIST->PATH to URI-PATH->URI and SPLIT-URI-PATH to SPLIT-URI. Also fix paren typo from earlier commit. --- scheme/httpd/cgi-server.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm index 92e40c3..2b01ff2 100644 --- a/scheme/httpd/cgi-server.scm +++ b/scheme/httpd/cgi-server.scm @@ -81,7 +81,7 @@ (define (cgi-handler bin-dir . maybe-cgi-bin-path) (let-optionals maybe-cgi-bin-path - ((cgi-bin-path cgi-default-bin-path))) + ((cgi-bin-path cgi-default-bin-path)) (let ((request-invariant-cgi-env ; environment variables that never change `(("PATH" . ,cgi-bin-path) @@ -177,14 +177,14 @@ (headers (request-headers req)) ;; Compute the $PATH_INFO and $PATH_TRANSLATED strings. - (path-info (uri-path-list->path path-suffix)) ; No encode or .. check. + (path-info (uri-path->uri path-suffix)) ; No encode or .. check. (path-translated (path-list->file-name path-info bin-dir)) ;; Compute the $SCRIPT_PATH string. (url-path (http-url-path (request-url req))) (script-path (take (- (length url-path) (length path-suffix)) url-path)) - (script-name (uri-path-list->path script-path))) + (script-name (uri-path->uri script-path))) (receive (rhost rport) (socket-address->internet-address raddr)