===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/cgi.sm1,v
retrieving revision 1.4
retrieving revision 1.6
diff -u -p -r1.4 -r1.6
--- OpenXM/src/kan96xx/Doc/cgi.sm1	2004/09/27 08:32:05	1.4
+++ OpenXM/src/kan96xx/Doc/cgi.sm1	2004/09/28 12:20:39	1.6
@@ -1,8 +1,10 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/cgi.sm1,v 1.3 2004/09/27 01:20:46 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Doc/cgi.sm1,v 1.5 2004/09/27 11:18:23 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.
 
+/cgi.verbose 0 def
+
 [(plugin-cgi)
 [(Key words: )
  ( cgiUrlEncodingToKeyValuePair)
@@ -141,7 +143,7 @@ def
   [ 
     /sss arg1 def
 % Step 1.  analyze the query string in URL encoding.
-    [(cgiUrlEncodingToKeyValuePair) [(?) sss] cat] extension /kv set
+    [(cgiUrlEncodingToKeyValuePair) sss] extension /kv set
     kv (oxMessageBody) getNode /comm set
 %   [nl nl] cat message sss message kv message  % for debug.
 % Step 2. Extract action part and file part for polymake. 
@@ -230,7 +232,7 @@ def
         [80 cgiQueryPolymake.hostname]] extension 0 get /goo set
      [(sm1.socket) (write) [goo sss2]]  extension 
      goo readHTTP0 /pp set
-     pp message
+     cgi.verbose { pp message } {  } ifelse
      [(sm1.socket) (close) [goo]] extension
      [(cgiHttpToKeyValuePair) pp] extension /pp2 set