send error output to stdout (= to client)

2002-09-04 10:29:12 +00:00 · 2002-09-04 10:29:12 +00:00 · 65e8af2952
parent 794412df5a
commit 65e8af2952
1 changed files with 1 additions and 0 deletions
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@ -113,6 +113,7 @@
 	 (doit (lambda ()
 		 (dup->inport  (current-input-port) 0)
 		 (dup->outport (current-output-port) 1)
+		 (dup 1 2)
 		 (apply exec/env filename env argv))))

    (http-syslog (syslog-level debug) "[cgi-server] search: ~s, argv: ~s~%" search argv)