version 1.11, 2002/10/29 07:29:23 |
version 1.12, 2002/10/30 13:23:06 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.10 2002/10/23 13:38:50 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.11 2002/10/29 07:29:23 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 |
[(getenv) (OpenXM_PSTOIMG_TYPE)] extension |
[(getenv) (OpenXM_PSTOIMG_TYPE)] extension |
def |
def |
|
|
|
[(getenv) (OXWEB_DEBUG)] extension tag 0 eq { |
|
/httpd.debug 0 def |
|
} { |
|
/httpd.debug 1 def |
|
} ifelse |
|
[(getenv) (OXWEB_TAKE_LOG)] extension tag 0 eq { |
|
/httpd.take.log 0 def |
|
} { |
|
/httpd.take.log 1 def |
|
} ifelse |
|
|
|
|
/httpd_startserver { |
/httpd_startserver { |
[(sm1.socket) (open) [httpd.port (localhost)]] extension |
[(sm1.socket) (open) [httpd.port (localhost)]] extension |
/httpd.server.fdAndPort set |
/httpd.server.fdAndPort set |
|
|
|
|
/sendln { |
/sendln { |
/arg1 set |
/arg1 set |
[/in-sendln /mmm] pushVariables |
[/in-sendln /mmm /i] pushVariables |
[ arg1 /mmm set |
[ arg1 /mmm set |
mmm tag 5 eq { |
mmm tag 5 eq { |
[mmm 10 (string) dc] cat /mmm set |
[mmm 10 (string) dc] cat /mmm set |
|
|
[(sm1.socket) (select) [httpd.server.fd 0 get 0]] extension { |
[(sm1.socket) (select) [httpd.server.fd 0 get 0]] extension { |
(Warning (sendln): your peer closed the connection. Do not send the data.) message |
(Warning (sendln): your peer closed the connection. Do not send the data.) message |
} { |
} { |
[(sm1.socket) (write) [httpd.server.fd 0 get mmm]] extension message |
[(sm1.socket) (write) [httpd.server.fd 0 get mmm]] extension /i set |
|
httpd.debug { i message } { } ifelse |
} ifelse |
} ifelse |
] pop |
] pop |
popVariables |
popVariables |
|
|
httpd_startserver ; |
httpd_startserver ; |
httpd_action ; |
httpd_action ; |
httpd_stopserver ; |
httpd_stopserver ; |
|
httpd.take.log { (date) system } { } ifelse |
% (sleep 2) system |
% (sleep 2) system |
httpd.serial 1 add /httpd.serial set |
httpd.serial 1 add /httpd.serial set |
} loop |
} loop |
|
|
ss i (,) put |
ss i (,) put |
} { } ifelse |
} { } ifelse |
} for |
} for |
ss message |
httpd.debug { ss message } { } ifelse |
[ ss to_records pop] /arg1 set |
[ ss to_records pop] /arg1 set |
] pop |
] pop |
popVariables |
popVariables |
|
|
] reverse /tname set |
] reverse /tname set |
(GET /?) (array) dc tname join /tname set |
(GET /?) (array) dc tname join /tname set |
|
|
httpd.textarea.name.aaa message |
httpd.debug { httpd.textarea.name.aaa message } { } ifelse |
tname httpd.textarea.name.aaa eq { |
tname httpd.textarea.name.aaa eq { |
/httpd.textarea.valid 1 def |
/httpd.textarea.valid 1 def |
} { |
} { |
/httpd.textarea.valid 0 def |
/httpd.textarea.valid 0 def |
tname message |
tname message |
httpd.textarea.name.aaa { (string) dc } map cat message |
httpd.textarea.name.aaa { (string) dc } map cat message |
(Warning: got an invalid name for the text field.) message |
(Warning: got an invalid name for the text field.) message |
} ifelse |
} ifelse |