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

Don't look at (getenv "PATH") when determining the PATH set for the 

CGI script.
This commit is contained in:
sperber 2003-01-10 13:31:06 +00:00
parent 722135a77e
commit 9a9d91fe92
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -81,10 +81,10 @@
(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" . ,(and (getenv "PATH") cgi-bin-path)) `(("PATH" . ,cgi-bin-path)
("SERVER_SOFTWARE" . ,sunet-version-identifier) ("SERVER_SOFTWARE" . ,sunet-version-identifier)
("SERVER_NAME" . ,(host-info:name (host-info (system-name)))) ("SERVER_NAME" . ,(host-info:name (host-info (system-name))))
("GATEWAY_INTERFACE" . "CGI/1.1")))) ("GATEWAY_INTERFACE" . "CGI/1.1"))))