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

Return to httpd-asir.sm1 CVS log

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

-version 1.17, 2001/09/20 06:42:37
+version 1.18, 2002/01/13 06:57:43
 Line 1
 Line 1
 Line 1
- %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.16 2001/09/20 05:57:40 takayama Exp $
+ %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.17 2001/09/20 06:42:37 takayama Exp $
  %% http server by sm1
  [(parse) (httpd.sm1) pushfile] extension pop
 Line 34  def
 Line 34  def
 Line 34  def
    /httpd.port 1200 rrr add def
    httpd.port message
-   [(sleep 3; netscape -geometry 800x500 http://localhost:)
+   %%[(sleep 3; netscape -geometry 800x500 http://localhost:)
-     httpd.port toString
+   %%  httpd.port toString
-    ( &)] cat system
+   %% ( &)] cat system
+    [(ostype)] extension 0 get
+    (windows) eq {
+      %% On windows.
+       [(forkExec)
+        [
+          (c:\windows\command\start)
+          (iexplore)   %% Starting internet explorer (TM).
+          [(http://localhost:) httpd.port toString] cat
+        ]
+        [  ]
+] extension
+    }{
+       %% On unix.
+       [(sleep 3 ; netscape http://localhost:) httpd.port toString ( & ) ] cat
+       system
+    } ifelse
     httpd ;
    ] pop
    popVariables