version 1.25, 2003/09/14 01:59:56 |
version 1.26, 2005/11/17 08:15:51 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.24 2002/10/24 02:30:15 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.25 2003/09/14 01:59:56 takayama Exp $ |
%% http server by sm1 |
%% http server by sm1 |
|
|
[(parse) (httpd.sm1) pushfile] extension pop |
[(parse) (httpd.sm1) pushfile] extension pop |
|
|
|
|
/webasir { asirweb } def |
/webasir { asirweb } def |
/asirweb { |
/asirweb { |
[/rrr ] pushVariables |
[/rrr /cmd] 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 |
|
|
3] extension |
3] extension |
}{ |
}{ |
%% On unix. |
%% On unix. |
[(sleep 3 ; netscape http://localhost:) httpd.port toString ( & ) ] cat |
httpd.port httpd.startBrowserUnix |
system |
|
} ifelse |
} ifelse |
|
|
httpd ; |
httpd ; |