===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/cgiasir.sm1,v
retrieving revision 1.2
retrieving revision 1.5
diff -u -p -r1.2 -r1.5
--- OpenXM/src/kan96xx/Doc/cgiasir.sm1	2005/02/25 11:30:58	1.2
+++ OpenXM/src/kan96xx/Doc/cgiasir.sm1	2013/02/15 05:39:45	1.5
@@ -1,5 +1,5 @@
-%$Id: cgiasir.sm1,v 1.2 2005/02/25 11:30:58 takayama Exp $
-%$OpenXM: OpenXM/src/kan96xx/Doc/cgiasir.sm1,v 1.1 2005/02/24 06:13:30 takayama Exp $
+%$Id: cgiasir.sm1,v 1.5 2013/02/15 05:39:45 takayama Exp $
+%$OpenXM: OpenXM/src/kan96xx/Doc/cgiasir.sm1,v 1.4 2005/02/27 08:22:56 takayama Exp $
 [(parse) (ox.sm1) pushfile] extension
 [(parse) (cgi.sm1) pushfile] extension
 
@@ -59,6 +59,9 @@
 % CGI_ASIR_ALLOW is not used.
 /cgiAsirAllow
   [
+%% They are required by the system
+     (ox103_reset)
+%%%%%%%%%%%%%%%%%%%%%%%%%%
 %    (primadec)
 %    (fctr)
 %    (dp_gr_main)
@@ -127,6 +130,9 @@ def
     $Execution CPU time limit is $ 
     cgiasir.tlimit toString  (  seconds.) nl nl
     (</pre>) nl
+    [(getenv)  (CGI_ASIR_MSG)] extension tag 0 eq not {
+     [(getenv) (CGI_ASIR_MSG)] extension nl nl
+    } {  } ifelse
     (<form method="POST">) nl
     (<input type=submit>) nl
     (<textarea name="oxMessageBody") nl
@@ -137,6 +143,11 @@ def
 def
 
 /cgiAsir.0 {
+  cgiAsir.0a 
+  cgiAsir.0b
+} def
+
+/cgiAsir.0a {
   /arg1 set
   [/sss /kv /comm /i /acti0 /pError] pushVariables
   [ 
@@ -162,12 +173,16 @@ def
 % Step 3. Calling asir
     oxasir.ccc [ ] eq { ox_cgiAsirConnectMethod } { } ifelse 
     oxasir.ccc cgi.body oxsubmit
+  ] pop
+  popVariables
+} def
+
+/cgiAsir.0b {
+% Step 4. Request the result
     oxasir.ccc oxpopstring /cgi_body set
     % set for cgiReplyInHttp0
     /@@@stdout (NONE) def  /@@@stderr (NONE) def
     /cgi.body cgi_body def    
-  ] pop
-  popVariables
 } def
 
 /cgi.test2 {