From 57c9012d49ada75296009eeed37a48f88b4ddb21 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 29 Sep 2008 21:18:37 -0500
Subject: [PATCH] Debug CGI

---
 basis/http/server/cgi/cgi.factor | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/basis/http/server/cgi/cgi.factor b/basis/http/server/cgi/cgi.factor
index fb24fec8d9..e618249ff4 100755
--- a/basis/http/server/cgi/cgi.factor
+++ b/basis/http/server/cgi/cgi.factor
@@ -1,9 +1,9 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: namespaces kernel assocs io.files io.streams.duplex
-combinators arrays io.launcher io http.server.static http.server
-http accessors sequences strings math.parser fry urls
-urls.encoding ;
+combinators arrays io.launcher io.encodings.binary io
+http.server.static http.server http accessors sequences strings
+math.parser fry urls urls.encoding calendar ;
 IN: http.server.cgi
 
 : cgi-variables ( script-path -- assoc )
@@ -44,14 +44,15 @@ IN: http.server.cgi
 : <cgi-process> ( name -- desc )
     <process>
         over 1array >>command
-        swap cgi-variables >>environment ;
+        swap cgi-variables >>environment
+        1 minutes >>timeout ;
 
 : serve-cgi ( name -- response )
     <raw-response>
     200 >>code
     "CGI output follows" >>message
     swap '[
-        _ output-stream get swap <cgi-process> <process-stream> [
+        _ output-stream get swap <cgi-process> binary <process-stream> [
             post-request? [ request get post-data>> raw>> write flush ] when
             input-stream get swap (stream-copy)
         ] with-stream