OpenXM/src/kan96xx/Doc/httpd-asir.sm1 - diff

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.27, 2005/11/21 09:12:22

Line 1

%% $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.26 2005/11/17 08:15:51 takayama Exp $

%% http server by sm1

[(parse) (httpd.sm1) pushfile] extension pop

Line 47 def

/webasir { asirweb } def

/asirweb {

[/rrr ] pushVariables

[/rrr /cmd] pushVariables

[

%% This procedure to generate port number might fail.

[(oxGenPass)] extension . (integer) dc /rrr set

Line 73 def

3] extension

}{

%% On unix.

[(sleep 3 ; netscape http://localhost:) httpd.port toString ( & ) ] cat

httpd.port httpd.startBrowserUnix

system

} ifelse

httpd ;

Line 282 def

Line 281 def

msg2 0 get (httpdAsirMeta) eq

msg2 1 get (Pretty) eq and

{

httpd.image.type null eq {

httpd.image.type tag 0 eq {

send-page-warning-image

/skip-image goto

} { } ifelse