[BACK]Return to cgi.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/cgi.sm1 between version 1.14 and 1.16

version 1.14, 2013/09/22 05:17:17 version 1.16, 2013/09/25 07:30:52
Line 1 
Line 1 
 % $OpenXM: OpenXM/src/kan96xx/Doc/cgi.sm1,v 1.13 2013/09/22 01:07:38 takayama Exp $  % $OpenXM: OpenXM/src/kan96xx/Doc/cgi.sm1,v 1.15 2013/09/22 08:07:51 takayama Exp $
 %  OpenXM/src/polymake/cgi/cgi-polymake.sh  %  OpenXM/src/polymake/cgi/cgi-polymake.sh
 %   is a shell script to call sm1/polymake as a CGI script.  %   is a shell script to call sm1/polymake as a CGI script.
 %  Override as /doPolymake {doPolymake.OoHG} def if you need.  %  Override as /doPolymake {doPolymake.OoHG} def if you need.
Line 255  def
Line 255  def
      (/tmp/sm1-q-cgi.txt) (w) file /fd set       (/tmp/sm1-q-cgi.txt) (w) file /fd set
      fd body writestring       fd body writestring
      fd closefile       fd closefile
      [(curl) (--form) [key (=@/tmp/sm1-q-cgi.txt)] cat  ff1] /ff set  %     [(curl) (--form) [key (=@/tmp/sm1-q-cgi.txt)] cat  ff1] /ff set
      ff message  %     ff  addStdoutStderr oxshell  @@@stdout /pp set
      ff       [(curl  --form ) [key (=@/tmp/sm1-q-cgi.txt )] cat  ff1 (>/tmp/sm1-q-cgi-out.txt)] cat /ff set
      addStdoutStderr oxshell       ff system
      @@@stdout /pp set       [nl (/tmp/sm1-q-cgi-out.txt) pushfile] cat /pp set
      pp message  
      @@2stderr message  
      (-----) 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       cgi.verbose { pp message } {  } ifelse
      [(cgiHttpToKeyValuePair) pp] extension /pp2 set       [(cgiHttpToKeyValuePair) pp] extension /pp2 set
        pp2 message
 % step 3. Analyze the response.  % step 3. Analyze the response.
      [pp2 (Content-Body) getNode       [pp2 (Content-Body) getNode
       pp2 (oxshell-stdout) getNode        pp2 (oxshell-stdout) getNode
Line 352  def
Line 341  def
  (If not, it calls http://polymake.math.kobe-u.ac.jp/cgi-bin/cgi-polymake.sh)   (If not, it calls http://polymake.math.kobe-u.ac.jp/cgi-bin/cgi-polymake.sh)
  (to make a computation in polymake.)   (to make a computation in polymake.)
  (See doPolymake for the syntax. doPolymake.OoHG may overrides doPolymake.)   (See doPolymake for the syntax. doPolymake.OoHG may overrides doPolymake.)
    (If you use curl to call the server execute)
    (   usePolymake.OoHG.curl)
    (after loading cgi.sm1)
 ]] putUsages  ]] putUsages
 /doPolymake.OoHG  {  /doPolymake.OoHG  {
   /arg1 set    /arg1 set
Line 378  def
Line 370  def
 % cgi-polymake  % cgi-polymake
        (Trying web service.) message         (Trying web service.) message
        pAction pNative  cgiQueryPolymake /doPolymake.OoHG.result set         pAction pNative  cgiQueryPolymake /doPolymake.OoHG.result set
          doPolymake.OoHG.result /@@@doPolymake.vars set
       [(regexec) (Not Found) [doPolymake.OoHG.result 0 get ]]        [(regexec) (Not Found) [doPolymake.OoHG.result 0 get ]]
       extension length 0 eq not {        extension length 0 eq not {
          doPolymake.OoHG.result message           doPolymake.OoHG.result message
Line 428  def
Line 420  def
      (polymake2tfb is not installed in this system.) error       (polymake2tfb is not installed in this system.) error
   } {  } ifelse    } {  } ifelse
 } def  } def
   
   
   /usePolymake.local {
     /doPolymake { doPolymake.local } def
     /polymake.start { polymake.start.local } def
   } def
   
   /usePolymake.OoHG.native {
     /doPolymake { doPolymake.OoHG } def
     /polymake.start { polymake.start.OoHG } def
     /cgiQueryPolymake { cgiQueryPolymake.native } def
   } def
   
   /usePolymake.OoHG.curl {
     /doPolymake { doPolymake.OoHG } def
     /polymake.start { polymake.start.OoHG } def
     /cgiQueryPolymake { cgiQueryPolymake.curl } def
   } def
   
   [(usePolymake.OoHG.native)
   [(doPolymake = doPolymake.OoHG with cgiQueryPolymake.native)
    (cf. doPolymake.OoHG)
   ]] putUsages
   
   [(usePolymake.OoHG.curl)
   [(doPolymake = doPolymake.OoHG with cgiQueryPolymake.curl)
    (It should be used when cgiQueryPolymake.native does not work)
    (over, e.g., a reverse proxy.)
    (The command curl is required.  cf. cgi.verbose, doPolymake.OoHG)
   ]] putUsages
   
   
   
   
   
   
   
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.16
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>