version 1.17, 2005/11/17 08:15:51 |
version 1.20, 2010/02/08 01:08:39 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.16 2005/02/27 05:28:05 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.19 2005/11/21 12:46:49 takayama Exp $ |
%% common modules for httpd on sm1. |
%% common modules for httpd on sm1. |
|
% [(Strict) 1] system_variable % for debugging. |
/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 |
|
|
[/in-httpd_type /fname /ftype /i /ans] pushVariables |
[/in-httpd_type /fname /ftype /i /ans] pushVariables |
[ |
[ |
/fname arg1 def |
/fname arg1 def |
fname (array) dc /fname set |
fname getFileType /ftype set |
fname reverse /fname set |
|
[ |
/ans (text/plain) def % .txt, .jar, |
0 1 fname length 1 sub { |
|
/i set |
|
fname i get 46 eq { % '.' |
|
exit |
|
} { fname i get } ifelse |
|
} for |
|
] /ftype set |
|
ftype reverse {(string) dc} map cat /ftype set |
|
/ans (text/plain) def |
|
ftype (gif) eq { |
ftype (gif) eq { |
/ans (image/gif) def |
/ans (image/gif) def |
}{ } ifelse |
}{ } ifelse |
|
|
ftype (html) eq ftype (htm) eq or { |
ftype (html) eq ftype (htm) eq or { |
/ans (text/html) def |
/ans (text/html) def |
} { } ifelse |
} { } ifelse |
ftype (txt) eq { |
ftype (wav) eq { |
/ans (text/html) def |
/ans (audio/x-wav) def |
} { } ifelse |
} { } ifelse |
|
ftype (class) eq { |
|
/ans (application/octet-stream) def |
|
} { } ifelse |
/arg1 ans def |
/arg1 ans def |
] pop |
] pop |
popVariables |
popVariables |
|
|
[(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 |
[(sleep 3 ; firefox http://localhost:) portnum ( & ) ] cat |
/cmd set cmd message |
/cmd set cmd message |
cmd system |
cmd system |
exit |
exit |