version 1.6, 2001/04/22 00:34:01 |
version 1.7, 2001/04/22 01:02:27 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.5 2001/04/21 13:54:29 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.6 2001/04/22 00:34:01 takayama Exp $ |
%% http server by sm1 |
%% http server by sm1 |
|
|
/httpd.port 1200 def |
/httpd.port 1200 def |
|
|
} ifelse |
} ifelse |
|
|
/asirweb { |
/asirweb { |
|
[/rrr ] 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 |
|
|
[(sleep 3; netscape -geometry 800x500 http://localhost:) |
[(sleep 3; netscape -geometry 800x500 http://localhost:) |
httpd.port toString |
httpd.port toString |
( &)] cat system |
( &)] cat system |
httpd ; |
httpd ; |
|
] pop |
|
popVariables |
} def |
} def |
|
|
/httpd_startserver { |
/httpd_startserver { |
|
|
arg1 |
arg1 |
} def |
} def |
|
|
|
%% remove GET /?msg= |
/removeGET { |
/removeGET { |
/arg1 set |
/arg1 set |
[/in-removeGET /s /s2 /i /j] pushVariables |
[/in-removeGET /s /s2 /i /j /i0] pushVariables |
[ |
[ |
/s arg1 def |
/s arg1 def |
s 1 copy /s2 set |
s 1 copy /s2 set |
s (array) dc /s set |
s (array) dc /s set |
|
|
|
0 1 s length 1 sub { |
|
/i0 set |
|
s i0 get 61 eq { %% 61 is = |
|
i0 1 add /i0 set |
|
exit |
|
} { } ifelse |
|
} for |
|
|
/j 0 def |
/j 0 def |
10 1 s length 1 sub { |
i0 1 s length 1 sub { |
/i set |
/i set |
s2 j << s i get (string) dc >> put |
s2 j << s i get (string) dc >> put |
j 1 add /j set |
j 1 add /j set |