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

Correct leftover from the fork-based implementation: stdin of the CGI 

script must be the socket's input port.
This commit is contained in:
mainzelm 2002-12-29 17:47:41 +00:00
parent e7aa14ee73
commit bfab4cc710
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

@ -111,7 +111,7 @@
(env (cgi-env req bin-dir (cdr path) request-invariant-cgi-env)) (env (cgi-env req bin-dir (cdr path) request-invariant-cgi-env))
(doit (lambda () (doit (lambda ()
(dup->inport (current-input-port) 0) (dup->inport (socket:inport (request-socket req)) 0)
(dup->outport (current-output-port) 1) (dup->outport (current-output-port) 1)
(dup 1 2) (dup 1 2)
(apply exec/env filename env argv)))) (apply exec/env filename env argv))))
@ -199,7 +199,7 @@
("PATH_TRANSLATED" . ,path-translated) ("PATH_TRANSLATED" . ,path-translated)
("SCRIPT_NAME" . ,script-name) ("SCRIPT_NAME" . ,script-name)
("REMOTE_HOST" . ,(host-name-or-ip raddr)) ; ("REMOTE_HOST" . ,(host-name-or-ip raddr))
("REMOTE_ADDR" . ,(format-internet-host-address rhost)) ("REMOTE_ADDR" . ,(format-internet-host-address rhost))
;; ("AUTH_TYPE" . xx) ; Random authentication ;; ("AUTH_TYPE" . xx) ; Random authentication