version 1.29, 2009/02/22 17:30:03 |
version 1.31, 2014/08/28 11:27:34 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.28 2006/02/11 02:34:53 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.30 2010/02/08 01:08:39 takayama Exp $ |
%% http server by sm1 |
%% http server by sm1 |
|
|
[(parse) (httpd.sm1) pushfile] extension pop |
[(parse) (httpd.sm1) pushfile] extension pop |
|
|
/httpd.port 1200 rrr add def |
/httpd.port 1200 rrr add def |
httpd.port message |
httpd.port message |
|
|
%%[(sleep 3; netscape -geometry 800x500 http://localhost:) |
%%[(sleep 3; firefox -geometry 800x500 http://localhost:) |
%% httpd.port toString |
%% httpd.port toString |
%% ( &)] cat system |
%% ( &)] cat system |
[(ostype)] extension 0 get |
[(ostype)] extension 0 get |
|
|
] pop |
] pop |
popVariables |
popVariables |
arg1 |
arg1 |
|
} def |
|
|
|
/webasir2 { |
|
[/rrr /cmd /mypid /lockname] pushVariables |
|
[ |
|
%% This procedure to generate port number might fail. |
|
[(oxGenPass)] extension . (integer) dc /rrr set |
|
rrr << rrr 20000 idiv 20000 mul >> sub /rrr set |
|
/httpd.port 1200 rrr add def |
|
httpd.port message |
|
|
|
[(getpid)] extension (dollar) dc /mypid set |
|
/httpd.textarea.name randomName def |
|
[(/tmp/webasir-) mypid (.txt)] cat /lockname set |
|
[(outputObjectToFile) lockname |
|
[httpd.port nl httpd.textarea.name nl ] cat |
|
] extension |
|
lockname message |
|
[(cat ) lockname] cat (system) nl message |
|
httpd ; |
|
[(rm -f ) lockname] cat system |
|
] pop |
|
popVariables |
} def |
} def |