version 1.2, 2014/08/30 22:47:20 |
version 1.3, 2014/08/31 07:53:57 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir2.sm1,v 1.1 2014/08/30 11:29:12 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir2.sm1,v 1.2 2014/08/30 22:47:20 takayama Exp $ |
%% Asir server to be called from a cgi program. |
%% Asir server to be called from a cgi program. |
|
|
[(parse) (httpd-asir.sm1) pushfile] extension pop |
[(parse) (httpd-asir.sm1) pushfile] extension pop |
|
|
|
|
%% export CGI_ASIR_ALLOW="[(fctr) (quit)]" |
%% export CGI_ASIR_ALLOW="[(fctr) (quit)]" |
%% export WEBASIR_TYPE="fctr" |
%% export WEBASIR_TYPE="fctr" |
|
%% export OX_ASIR_LOAD_FILE="/private/taka/abc.rr" |
%% Start sm1 and webasir2, connect by asir-port/cgi/webasir2.c |
%% Start sm1 and webasir2, connect by asir-port/cgi/webasir2.c |
%% Top level script |
%% Top level script |
%% GET /?key=1%2B3%3B [two nl] |
%% GET /?key=1%2B3%3B [two nl] |
%% GET /?msg=httpdAsirMeta+quit HTTP/1.1 [two nl] |
%% GET /?msg=httpdAsirMeta+quit HTTP/1.1 [two nl] |
/httpd-asir2.quit 0 def |
/httpd-asir2.quit 0 def |
/webasir2 { |
/webasir2 { |
[/rrr /cmd /mypid /lockname /mytype] pushVariables |
[/rrr /cmd /mypid /lockname /mytype /lofile] pushVariables |
[ |
[ |
%% This procedure to generate port number might fail. |
%% This procedure to generate port number might fail. |
[(oxGenPass)] extension . (integer) dc /rrr set |
[(oxGenPass)] extension . (integer) dc /rrr set |