From bfab4cc7103381ae338f34738fb3cf333bb85c90 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Sun, 29 Dec 2002 17:47:41 +0000 Subject: [PATCH] Correct leftover from the fork-based implementation: stdin of the CGI script must be the socket's input port. --- scheme/httpd/cgi-server.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm index 33c2f05..9c1a1de 100644 --- a/scheme/httpd/cgi-server.scm +++ b/scheme/httpd/cgi-server.scm @@ -111,7 +111,7 @@ (env (cgi-env req bin-dir (cdr path) request-invariant-cgi-env)) (doit (lambda () - (dup->inport (current-input-port) 0) + (dup->inport (socket:inport (request-socket req)) 0) (dup->outport (current-output-port) 1) (dup 1 2) (apply exec/env filename env argv)))) @@ -199,7 +199,7 @@ ("PATH_TRANSLATED" . ,path-translated) ("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)) ;; ("AUTH_TYPE" . xx) ; Random authentication