===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/cgi.sm1,v
retrieving revision 1.9
retrieving revision 1.12
diff -u -p -r1.9 -r1.12
--- OpenXM/src/kan96xx/Doc/cgi.sm1	2004/11/23 01:37:47	1.9
+++ OpenXM/src/kan96xx/Doc/cgi.sm1	2004/12/29 01:42:13	1.12
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/cgi.sm1,v 1.8 2004/11/22 12:30:32 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Doc/cgi.sm1,v 1.11 2004/11/23 02:38:46 takayama Exp $
 %  OpenXM/src/polymake/cgi/cgi-polymake.sh
 %   is a shell script to call sm1/polymake as a CGI script.
 %  Override as /doPolymake {doPolymake.OoHG} def if you need.
@@ -41,7 +41,10 @@
    [[(URL),(/index.html)]
    ] /kv set
    [(cgiKeyValuePairToUrlEncodingString) kv] extension /sss set
-   [(GET ) , sss , ( HTTP/0.9) , nl , nl ] cat /sss2 set
+%   [(GET ) , sss , ( HTTP/0.9) , nl , nl ] cat /sss2 set
+   [(GET ) , sss , ( HTTP/0.9) ,  nl ,
+    (HOST: ) , url , nl
+    nl ] cat /sss2 set
    
    sss2 message
    [(sm1.socket) (connect) [80 url]] extension 0 get /goo set
@@ -99,7 +102,14 @@
 /cgiPolymake {
   {
    [(getenv) (CONTENT_LENGTH)] extension /cgi.content_length set
+   cgi.content_length isString {
+   } {
+       cgiPolymake.errorMessage message  exit
+   } ifelse 
    cgi.content_length .. (integer) dc /cgi.content_length set
+   cgi.content_length 1 lt {
+       cgiPolymake.errorMessage message  exit
+   } { } ifelse
    [(read) 0 cgi.content_length] extension /cgi.query_string set
    cgi.query_string isString { 
      cgi.query_string length 0 eq  {
@@ -233,9 +243,10 @@ def
      ] /ff set
      [(cgiKeyValuePairToUrlEncodingString) ff] extension /ff set
      [(POST ) , ff1 , ( HTTP/0.9) , nl , 
-      (Connection: Keep-Alive) , nl ,
-      (Content-length: ) , ff length (string) dc , nl ,
-      ff ] cat /sss2 set
+%      (Connection: Keep-Alive) , nl ,
+      (HOST: ) cgiQueryPolymake.hostname , nl ,     
+      (Content-length: ) , ff length (dollar) dc , nl , nl 
+      ff nl] cat /sss2 set
 % step 2. Call the server and get the response in pp  
      [(sm1.socket) (connect) 
         [80 cgiQueryPolymake.hostname]] extension 0 get /goo set
@@ -265,6 +276,15 @@ def
   arg1
 } def
 
+/cgi.test1 {
+  (FACETS)
+  [(POINTS) nl
+   (1 0 0 ) nl
+   (1 1 0 ) nl
+   (1 0 1 ) nl
+  ] cat
+  cgiQueryPolymake message
+} def
 % Overrides doPolymake
 %/doPolymake { doPolymake.OoHG } def
 %/polymake.start { polymake.start.OoHG } def