version 1.2, 2005/02/25 11:30:58 |
version 1.5, 2013/02/15 05:39:45 |
|
|
%$Id$ |
%$Id$ |
%$OpenXM: OpenXM/src/kan96xx/Doc/cgiasir.sm1,v 1.1 2005/02/24 06:13:30 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) (ox.sm1) pushfile] extension |
[(parse) (cgi.sm1) pushfile] extension |
[(parse) (cgi.sm1) pushfile] extension |
|
|
|
|
% CGI_ASIR_ALLOW is not used. |
% CGI_ASIR_ALLOW is not used. |
/cgiAsirAllow |
/cgiAsirAllow |
[ |
[ |
|
%% They are required by the system |
|
(ox103_reset) |
|
%%%%%%%%%%%%%%%%%%%%%%%%%% |
% (primadec) |
% (primadec) |
% (fctr) |
% (fctr) |
% (dp_gr_main) |
% (dp_gr_main) |
|
|
$Execution CPU time limit is $ |
$Execution CPU time limit is $ |
cgiasir.tlimit toString ( seconds.) nl nl |
cgiasir.tlimit toString ( seconds.) nl nl |
(</pre>) nl |
(</pre>) nl |
|
[(getenv) (CGI_ASIR_MSG)] extension tag 0 eq not { |
|
[(getenv) (CGI_ASIR_MSG)] extension nl nl |
|
} { } ifelse |
(<form method="POST">) nl |
(<form method="POST">) nl |
(<input type=submit>) nl |
(<input type=submit>) nl |
(<textarea name="oxMessageBody") nl |
(<textarea name="oxMessageBody") nl |
|
|
def |
def |
|
|
/cgiAsir.0 { |
/cgiAsir.0 { |
|
cgiAsir.0a |
|
cgiAsir.0b |
|
} def |
|
|
|
/cgiAsir.0a { |
/arg1 set |
/arg1 set |
[/sss /kv /comm /i /acti0 /pError] pushVariables |
[/sss /kv /comm /i /acti0 /pError] pushVariables |
[ |
[ |
|
|
% Step 3. Calling asir |
% Step 3. Calling asir |
oxasir.ccc [ ] eq { ox_cgiAsirConnectMethod } { } ifelse |
oxasir.ccc [ ] eq { ox_cgiAsirConnectMethod } { } ifelse |
oxasir.ccc cgi.body oxsubmit |
oxasir.ccc cgi.body oxsubmit |
|
] pop |
|
popVariables |
|
} def |
|
|
|
/cgiAsir.0b { |
|
% Step 4. Request the result |
oxasir.ccc oxpopstring /cgi_body set |
oxasir.ccc oxpopstring /cgi_body set |
% set for cgiReplyInHttp0 |
% set for cgiReplyInHttp0 |
/@@@stdout (NONE) def /@@@stderr (NONE) def |
/@@@stdout (NONE) def /@@@stderr (NONE) def |
/cgi.body cgi_body def |
/cgi.body cgi_body def |
] pop |
|
popVariables |
|
} def |
} def |
|
|
/cgi.test2 { |
/cgi.test2 { |