Return to httpd-asir.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
version 1.25, 2003/09/14 01:59:56 | version 1.29, 2009/02/22 17:30:03 | ||
---|---|---|---|
|
|
||
%% $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.28 2006/02/11 02:34:53 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 ; | ||
|
|
||
/httpd.asirman | /httpd.asirman | ||
("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-jp/man_toc.html") | ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-ja/man_toc.html") | ||
def | def | ||
/httpd.asirman.contrib | /httpd.asirman.contrib | ||
("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-ja/cman-ja_toc.html") | ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/ja/cman-html/cman-ja_toc.html") | ||
def | def | ||
/httpd.asir.intro | /httpd.asir.intro | ||
("http://www.math.sci.kobe-u.ac.jp/~taka/asir-book-html/main") | ("http://www.math.sci.kobe-u.ac.jp/~taka/asir-book-html/main") | ||
|
|
||
msg2 0 get (httpdAsirMeta) eq | msg2 0 get (httpdAsirMeta) eq | ||
msg2 1 get (Pretty) eq and | msg2 1 get (Pretty) eq and | ||
{ | { | ||
httpd.image.type null eq { | httpd.image.type tag 0 eq { | ||
send-page-warning-image | send-page-warning-image | ||
/skip-image goto | /skip-image goto | ||
} { } ifelse | } { } ifelse |