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

Rename URI-PATH-LIST->PATH to URI-PATH->URI and SPLIT-URI-PATH to 

SPLIT-URI.

Also fix paren typo from earlier commit.
This commit is contained in:
sperber 2003-01-14 15:02:07 +00:00
parent 62c597e7ec
commit 8ed2a48176
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -81,7 +81,7 @@
(define (cgi-handler bin-dir . maybe-cgi-bin-path) (define (cgi-handler bin-dir . maybe-cgi-bin-path)
(let-optionals (let-optionals
maybe-cgi-bin-path 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 (let ((request-invariant-cgi-env ; environment variables that never change
`(("PATH" . ,cgi-bin-path) `(("PATH" . ,cgi-bin-path)
@ -177,14 +177,14 @@
(headers (request-headers req)) (headers (request-headers req))
;; Compute the $PATH_INFO and $PATH_TRANSLATED strings. ;; 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)) (path-translated (path-list->file-name path-info bin-dir))
;; Compute the $SCRIPT_PATH string. ;; Compute the $SCRIPT_PATH string.
(url-path (http-url-path (request-url req))) (url-path (http-url-path (request-url req)))
(script-path (take (- (length url-path) (length path-suffix)) (script-path (take (- (length url-path) (length path-suffix))
url-path)) url-path))
(script-name (uri-path-list->path script-path))) (script-name (uri-path->uri script-path)))
(receive (rhost rport) (receive (rhost rport)
(socket-address->internet-address raddr) (socket-address->internet-address raddr)