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

send error output to stdout (= to client)

This commit is contained in:
interp 2002-09-04 10:29:12 +00:00
parent 794412df5a
commit 65e8af2952
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,6 +113,7 @@
(doit (lambda () (doit (lambda ()
(dup->inport (current-input-port) 0) (dup->inport (current-input-port) 0)
(dup->outport (current-output-port) 1) (dup->outport (current-output-port) 1)
(dup 1 2)
(apply exec/env filename env argv)))) (apply exec/env filename env argv))))
(http-syslog (syslog-level debug) "[cgi-server] search: ~s, argv: ~s~%" search argv) (http-syslog (syslog-level debug) "[cgi-server] search: ~s, argv: ~s~%" search argv)