version 1.7, 2002/10/21 01:59:15 |
version 1.10, 2002/10/23 13:38:50 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.6 2002/10/17 13:40:28 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.9 2002/10/21 10:43:52 takayama Exp $ |
%% common modules for httpd on sm1. |
%% common modules for httpd on sm1. |
/Oxserver_history_variable (Oxserver_history_variable_) def |
/Oxserver_history_variable (Oxserver_history_variable_) def |
/httpd.image.type |
/httpd.image.type |
|
|
arg1 |
arg1 |
} def |
} def |
|
|
%% remove GET /?msg= |
%% remove GET /?msg= or msg= |
/removeGET { |
/removeGET { |
/arg1 set |
/arg1 set |
[/in-removeGET /s /s2 /i /j /i0 |
[/in-removeGET /s /s2 /i /j /i0 |
|
|
] pushVariables |
] pushVariables |
[ |
[ |
/s arg1 def |
/s arg1 def |
/httpd.textarea.valid 1 def |
/httpd.textarea.valid 0 def |
s 1 copy /s2 set |
s 1 copy /s2 set |
s (array) dc /s set |
s (array) dc /s set |
/nnn httpd.textarea.name.aaa length 6 sub def |
/nnn httpd.textarea.name.aaa length 6 sub def |
|
|
|
|
[ |
[ |
<< tname length 1 sub >> -1 |
<< tname length 1 sub >> -1 |
<< tname length nnn sub >> { |
<< tname length nnn sub >> dup 0 ge { } { pop 0 } ifelse |
|
{ |
/i set |
/i set |
tname i get |
tname i get |
} for |
} for |
] reverse /tname set |
] reverse /tname set |
(GET /?) (array) dc tname join /tname set |
(GET /?) (array) dc tname join /tname set |
|
|
tname message |
|
httpd.textarea.name.aaa message |
httpd.textarea.name.aaa message |
tname httpd.textarea.name.aaa eq { |
tname httpd.textarea.name.aaa eq { |
/httpd.textarea.valid 1 def |
/httpd.textarea.valid 1 def |
|
|
i0 1 s length 1 sub { |
i0 1 s length 1 sub { |
/i set |
/i set |
s2 j << s i get (string) dc >> put |
s2 j << s i get (string) dc >> put |
|
j s2 length 1 sub lt { s2 j 1 add ( ) put } { } ifelse |
|
%% might cause a BUG. It should be improved. |
j 1 add /j set |
j 1 add /j set |
} for |
} for |
/arg1 s2 def |
/arg1 s2 def |