| version 1.17, 2005/11/17 08:15:51 |
version 1.18, 2005/11/21 09:12:22 |
|
|
| %% $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.17 2005/11/17 08:15:51 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 |
|
|
| [/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 |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to httpd.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc