OpenXM/src/kan96xx/Doc/httpd-rpc.sm1 - diff

Return to httpd-rpc.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

version 1.8, 2002/10/29 00:19:56

version 1.10, 2002/11/03 12:43:03

Line 1

%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.7 2002/10/28 23:55:57 takayama Exp $

%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.9 2002/10/29 10:54:17 takayama Exp $

%% http server by sm1. Used for RPC. Generic example.

[(parse) (httpd.sm1) pushfile] extension pop

%% keyword for rpc

/httpd.textarea.name (rpc) def

/httpd.textarea.name.aaa

[(GET /?) httpd.textarea.name] cat (array) dc

def

/httpd.port 8090 def

[(getenv) (OXWEB_PORT)] extension tag 0 eq {

(Default httpd port : ) messagen

/httpd.port 8090 def

} {

/httpd.port [(getenv) (OXWEB_PORT)] extension .. (integer) dc def

} ifelse

(httpd.port = ) messagen httpd.port message

/httpd.serial 0 def

/httpd.oxasir.timer 1 def %% 1 to use timer, but it accepts only one command

Line 237 oxNoX

Line 246 oxNoX

[(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes HTTP/1.0)] cat

sendln

(<br>) sendln

[$<a href="http://localhost:$ httpd.port toString

[$<a href="http://$ [(sm1.socket) (gethostname) []] extension

$:$ httpd.port toString

$/?msg=httpdAsirMeta+quit"> Shutdown the oxserver (and restart it). </a>$

] cat sendln

(<h3 align="right"><font color="gree">Powered by OpenXM and httpd on Kan/sm1 </font> </h3>_) sendln