===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- OpenXM/src/kan96xx/Doc/httpd-asir.sm1	2001/04/22 00:34:01	1.6
+++ OpenXM/src/kan96xx/Doc/httpd-asir.sm1	2001/04/22 01:02:27	1.7
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.5 2001/04/21 13:54:29 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.6 2001/04/22 00:34:01 takayama Exp $
 %% http server by sm1
 
 /httpd.port 1200 def
@@ -19,10 +19,20 @@ def
 } ifelse
 
 /asirweb {
+ [/rrr ] 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 
+
   [(sleep 3; netscape -geometry 800x500 http://localhost:)
     httpd.port toString
    ( &)] cat system
    httpd ;
+  ] pop
+  popVariables
 } def
 
 /httpd_startserver {
@@ -333,15 +343,25 @@ def
   arg1
 } def
 
+%% remove GET /?msg=
 /removeGET {
   /arg1 set
-  [/in-removeGET /s /s2 /i /j] pushVariables
+  [/in-removeGET /s /s2 /i /j /i0] pushVariables
   [
      /s arg1 def
      s 1 copy /s2 set
      s (array) dc /s set
+
+     0 1 s length 1 sub {
+       /i0 set
+       s i0 get 61 eq {  %% 61 is = 
+         i0 1 add /i0 set
+         exit
+       } { } ifelse
+     } for 
+
      /j 0 def
-     10 1 s length 1 sub {
+     i0 1 s length 1 sub {
        /i set
        s2 j << s i get (string) dc >> put
        j 1 add /j set