version 1.12, 2001/08/23 00:16:55 |
version 1.13, 2001/08/23 00:49:00 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.11 2001/08/12 07:20:37 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.12 2001/08/23 00:16:55 takayama Exp $ |
%% http server by sm1 |
%% http server by sm1 |
|
|
[(parse) (httpd.sm1) pushfile] extension pop |
[(parse) (httpd.sm1) pushfile] extension pop |
|
|
/httpd_action { |
/httpd_action { |
[/in-httpd /ff /httpd.com /httpd.result /sss |
[/in-httpd /ff /httpd.com /httpd.result /sss |
/sss.engine /sss.web /err |
/sss.engine /sss.web /err |
|
/oxserver.vname |
] pushVariables |
] pushVariables |
[ |
[ |
{ |
{ |
|
|
} ifelse |
} ifelse |
httpd.com metaCommand { |
httpd.com metaCommand { |
httpd.textarea.valid { |
httpd.textarea.valid { |
|
/oxserver.vname |
|
[Oxserver_history_variable httpd.serial toString] cat |
|
def |
oxasir.ccc |
oxasir.ccc |
[(if (1) {) httpd.com (; };)] cat |
%% original (if (1) {) httpd.com (; };) |
|
[(if (1) {) |
|
oxserver.vname (=) httpd.com |
|
(; };) |
|
oxserver.vname (;) |
|
] cat |
oxexecutestring ; |
oxexecutestring ; |
}{ |
}{ |
send-page-warning exit |
send-page-warning exit |