version 1.18, 2005/11/21 09:12:22 |
version 1.22, 2013/03/07 02:10:32 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.17 2005/11/17 08:15:51 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.21 2012/12/23 01:27:54 takayama Exp $ |
%% common modules for httpd on sm1. |
%% common modules for httpd on sm1. |
% [(Strict) 1] system_variable % for debugging. |
% [(Strict) 1] system_variable % for debugging. |
|
/httpd.rawplus 0 def |
/Oxserver_history_variable (Oxserver_history_variable_) def |
/Oxserver_history_variable (Oxserver_history_variable_) def |
/httpd.image.type |
/httpd.image.type |
[(getenv) (OpenXM_PSTOIMG_TYPE)] extension |
[(getenv) (OpenXM_PSTOIMG_TYPE)] extension |
def |
def |
|
|
|
/httpd_sm1.cookie |
|
[(oxGenPass)] extension |
|
def |
|
/httpd.set-cookie { |
|
[(Set-Cookie: httpd_sm1=) httpd_sm1.cookie] cat |
|
} def |
|
|
|
|
[(getenv) (OXWEB_DEBUG)] extension tag 0 eq { |
[(getenv) (OXWEB_DEBUG)] extension tag 0 eq { |
/httpd.debug 0 def |
/httpd.debug 0 def |
} { |
} { |
|
|
(HTTP/0.9 200 OK) sendln |
(HTTP/0.9 200 OK) sendln |
(Connection: close) sendln |
(Connection: close) sendln |
(Content-Type: text/html) sendln |
(Content-Type: text/html) sendln |
|
httpd.set-cookie sendln |
0 sendln |
0 sendln |
%% (<FORM NAME="myFORM" METHOD="POST">) sendln |
%% (<FORM NAME="myFORM" METHOD="POST">) sendln |
result sendln |
result sendln |
|
|
i 3 add /i set |
i 3 add /i set |
} { |
} { |
c 43 eq { % c == + |
c 43 eq { % c == + |
s j 32 put |
httpd.rawplus { s j 43 put } { s j 32 put } ifelse |
j 1 add /j set |
j 1 add /j set |
i 1 add /i set |
i 1 add /i set |
} { |
} { |
|
|
[(getenv) (OX_BROWSER)] extension /browser set |
[(getenv) (OX_BROWSER)] extension /browser set |
{ |
{ |
browser tag 0 eq { |
browser tag 0 eq { |
[(sleep 3 ; netscape http://localhost:) portnum ( & ) ] cat |
[(ostype)] extension 1 get (mac) eq { |
/cmd set cmd message |
[(sleep 3 ; open http://localhost:) portnum ( & ) ] cat |
|
/cmd set cmd message |
|
}{ |
|
[(sleep 3 ; firefox http://localhost:) portnum ( & ) ] cat |
|
/cmd set cmd message |
|
}ifelse |
cmd system |
cmd system |
exit |
exit |
}{ } ifelse |
}{ } ifelse |