version 1.2, 2005/02/25 11:30:58 |
version 1.4, 2005/02/27 08:22:56 |
|
|
%$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.3 2005/02/27 07:08:11 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) |
|
|
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 { |