===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -p -r1.32 -r1.33
--- OpenXM/src/kan96xx/Doc/httpd-asir.sm1	2014/08/29 11:58:05	1.32
+++ OpenXM/src/kan96xx/Doc/httpd-asir.sm1	2014/08/30 11:29:12	1.33
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.31 2014/08/28 11:27:34 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.32 2014/08/29 11:58:05 takayama Exp $
 %% http server by sm1
 
 [(parse) (httpd.sm1) pushfile] extension pop
@@ -334,24 +334,3 @@ def
   arg1
 } def
 
-/webasir2 {
- [/rrr /cmd /mypid /lockname] pushVariables
- [
-  %% This procedure to generate port number might fail.
-  [(oxGenPass)] extension . (integer) dc  /rrr set
-  rrr << rrr 20000 idiv 20000 mul >> sub /rrr set
-  /httpd.port 1200 rrr add def
-  httpd.port message 
-
-  [(getpid)] extension (dollar) dc /mypid set
-  [(/tmp/webasir-) mypid (.txt)] cat /lockname set
-  [(outputObjectToFile) lockname 
-    [httpd.port nl httpd.textarea.name nl ] cat
-  ] extension 
-  lockname message
-  [(cat ) lockname] cat (system) nl message
-  httpd ;
-  [(rm -f ) lockname] cat system
- ] pop
- popVariables
-} def