===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd.sm1,v
retrieving revision 1.18
retrieving revision 1.22
diff -u -p -r1.18 -r1.22
--- OpenXM/src/kan96xx/Doc/httpd.sm1	2005/11/21 09:12:22	1.18
+++ OpenXM/src/kan96xx/Doc/httpd.sm1	2013/03/07 02:10:32	1.22
@@ -1,11 +1,20 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.17 2005/11/17 08:15:51 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.21 2012/12/23 01:27:54 takayama Exp $
 %% common modules for httpd on sm1.
 % [(Strict) 1] system_variable  % for debugging.
+/httpd.rawplus 0 def
 /Oxserver_history_variable (Oxserver_history_variable_) def
 /httpd.image.type  
   [(getenv) (OpenXM_PSTOIMG_TYPE)] extension
 def
 
+/httpd_sm1.cookie 
+ [(oxGenPass)] extension 
+def
+/httpd.set-cookie {
+  [(Set-Cookie: httpd_sm1=) httpd_sm1.cookie] cat 
+} def
+
+
 [(getenv) (OXWEB_DEBUG)] extension tag 0 eq {
    /httpd.debug 0 def
 } {  
@@ -135,6 +144,7 @@ def
    (HTTP/0.9 200 OK) sendln
    (Connection: close) sendln
    (Content-Type: text/html) sendln
+   httpd.set-cookie sendln
    0 sendln
 %%   (<FORM NAME="myFORM" METHOD="POST">) sendln
    result sendln
@@ -407,7 +417,7 @@ def
          i 3 add /i set
        } { 
          c 43 eq { % c == +
-           s j 32 put
+           httpd.rawplus { s j 43 put } { s j 32 put } ifelse
            j 1 add /j set
            i 1 add /i set
           } {
@@ -810,8 +820,13 @@ def
      [(getenv) (OX_BROWSER)]  extension /browser set
      {
       browser tag 0 eq {
-        [(sleep 3 ; netscape http://localhost:) portnum ( & ) ] cat
-        /cmd set cmd message
+        [(ostype)] extension 1 get (mac) eq {
+          [(sleep 3 ; open http://localhost:) portnum ( & ) ] cat
+          /cmd set cmd message
+        }{
+          [(sleep 3 ; firefox http://localhost:) portnum ( & ) ] cat
+          /cmd set cmd message
+        }ifelse
         cmd system
         exit
        }{ } ifelse