=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/cgi.sm1,v retrieving revision 1.3 retrieving revision 1.12 diff -u -p -r1.3 -r1.12 --- OpenXM/src/kan96xx/Doc/cgi.sm1 2004/09/27 01:20:46 1.3 +++ OpenXM/src/kan96xx/Doc/cgi.sm1 2004/12/29 01:42:13 1.12 @@ -1,8 +1,10 @@ -% $OpenXM: OpenXM/src/kan96xx/Doc/cgi.sm1,v 1.2 2004/09/24 13:15:27 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. +/cgi.verbose 0 def + [(plugin-cgi) [(Key words: ) ( cgiUrlEncodingToKeyValuePair) @@ -39,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 @@ -91,21 +96,36 @@ ]] putUsages % Server-side-script % oxMessageBody=action input-data-for-polymake -% sm1 -q -s "[(parse) (cgi.sm1) pushfile] extension cgiPolymake quit " -% env QUERY_STRING="t?oxMessageBody=FACETS+POINTS+1+0+0%0A" sm1 -q -s "[(parse) (cgi.sm1) pushfile] extension cgiPolymake quit " +% t.t : oxMessageBody=FACETS++POINTS%0A1+0+0+%0A1+1+0+%0A1+0+1%0A +% t?oxMe... +% env CONTENT_LENGTH=57 sm1 -q -s "[(parse) (cgi.sm1) pushfile] extension cgiPolymake quit " ) nl - (
) nl + () nl () nl - () nl (
) nl () nl @@ -138,6 +158,7 @@ def % Step 1. analyze the query string in URL encoding. [(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. comm (array) dc /comm set /i 0 def @@ -167,7 +188,7 @@ def [cgiPolymake.polymakeName (stringInOut://cgi_body.poly) acti0] addStdoutStderr oxshell pop pError [@@@stdout @@@stderr] append /pError set - /cgi.body cgi_body def + /cgi.body cgi_body def ] pop popVariables } def @@ -195,8 +216,8 @@ def /ss arg1 def [[(Content-Body) ss] % [(Content-Type) (text/plain)] - [(oxshell-stdout) @@@stdout] - [(oxshell-stderr) @@@stderr] + [(oxshell-stdout) [(cgiStringToUrlEncoding) @@@stdout] extension] + [(oxshell-stderr) [(cgiStringToUrlEncoding) @@@stderr] extension] ] /sskv set [(cgiKeyValuePairToHttpString) sskv] extension /arg1 set ] pop @@ -205,26 +226,43 @@ def % ------------ client side script --------------- /cgiQueryPolymake.hostname (polymake.math.kobe-u.ac.jp) def -/cgiQueryPolymake.cginame (cgi-bin/cgi-polymake.sh) def +/cgiQueryPolymake.cginame (/cgi-bin/cgi-polymake.sh) def /cgiQueryPolymake { /arg2 set /arg1 set [/saction /sfile /ff /ff1 /sss2 /goo /pp /pp2] pushVariables [ /saction arg1 def /sfile arg2 def % step1. Generate query in URL encoding. - [[(URL) cgiQueryPolymake.cginame] - [(oxMessageBody) - [saction ( ) - sfile nl ] cat - ]] /ff set - [(cgiKeyValuePairToUrlEncodingString) ff] extension /ff1 set - [(GET ) , ff1 , ( HTTP/0.9) , nl , nl ] cat /sss2 set + [(http://) cgiQueryPolymake.hostname cgiQueryPolymake.cginame] cat + /ff1 set +% full URL necessary for virtual host of apache. + [[(oxMessageBody) + [saction ( ) + sfile nl ] cat + ] + ] /ff set + [(cgiKeyValuePairToUrlEncodingString) ff] extension /ff set + [(POST ) , ff1 , ( HTTP/0.9) , nl , +% (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 [(sm1.socket) (write) [goo sss2]] extension goo readHTTP0 /pp set - pp message + + % For the case of error. + [(regexec) (200 OK) [pp]] extension length 0 eq { + (sss2=) message + sss2 message + (pp=) message + pp message + (cgi.sm1: there seems to be an error in the HTTP connection.) + } { } ifelse + + cgi.verbose { pp message } { } ifelse [(sm1.socket) (close) [goo]] extension [(cgiHttpToKeyValuePair) pp] extension /pp2 set @@ -238,8 +276,18 @@ 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 [(doPolymake.OoHG) [(It first looks for local polymake. If there is, it calls the local polymake.) @@ -266,13 +314,22 @@ def @@@polymake.k0.ccc ( QuoteMode(0); ) oxexecutestring [(treeToPolymake) ptree] extension /pNative set %% step 2: calling the polymake - [(which) (polymake)] oxshell tag 0 eq +% [(which) (polymake)] oxshell tag 0 eq + 1 % always call web service { % cgi-polymake (Trying web service.) message pAction pNative cgiQueryPolymake /doPolymake.OoHG.result set + [(regexec) (Not Found) [doPolymake.OoHG.result 0 get ]] + extension length 0 eq not { + doPolymake.OoHG.result message + (The polymake cgi seems to be out of service.) error + } { } ifelse + doPolymake.OoHG.result 0 get /pNative set + + pError doPolymake.OoHG.result rest append /pError set } { % local polymake @@ -294,6 +351,24 @@ def ] pop popVariables arg1 +} def + +/polymake.start.OoHG { + (ox.k0.loaded) boundp { } + { [(parse) (ox.sm1) pushfile] extension + /@@@polymake.k0.ccc [ ] def + } ifelse + @@@polymake.k0.ccc [ ] eq { + k0connectr /@@@polymake.k0.ccc oxk0.ccc def /oxk0.ccc [ ] def + @@@polymake.k0.ccc oxsetmathcap @@@polymake.k0.ccc oxmathcap + } { } ifelse + @@@polymake.k0.ccc 0 get (closed) eq { + k0connectr /@@@polymake.k0.ccc oxk0.ccc def /oxk0.ccc [ ] def + @@@polymake.k0.ccc oxsetmathcap @@@polymake.k0.ccc oxmathcap + } { } ifelse + [(which) (polymake2tfb)] oxshell tag 0 eq { + (polymake2tfb is not installed in this system.) error + } { } ifelse } def