Changeset 2828 for trunk/is_gsdl_cdrom/Script Files/setup.rul

Timestamp:

2001-11-08T17:01:29+13:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/is_gsdl_cdrom/Script Files/setup.rul (modified) (8 diffs)

trunk/is_gsdl_cdrom/Script Files/setup.rul

@@ -69 +69 @@
     prototype EditGsdlsiteCfg();
     prototype EditSetupBat();
-
+    prototype rs(BYREF STRING);
 
     // ----- global variables ------
@@ -366 +366 @@
     endif;
 
-    if (ComponentIsItemSelected(MEDIA, "Local library")) then
+    if (svSetupType = "Local library") then
         if (AddFolderIcon(@FOLDER_NAME, @FOLDER_NAME, "\"" + TARGETDIR ^ "server.exe\"", "",
                          "", 0, "", REPLACE) < 0) then
@@ -552 +552 @@
 
     szTitle = "";
-    szMsg1 = @TEXT_FINISH1;
+    
+    if (svSetupType = "Web Library") then
+        szMsg1 = @TEXT_FINISH2;
+    elseif (svSetupType = "Source Code") then
+        szMsg1 = @TEXT_FINISH3;
+    else
+        szMsg1 = @TEXT_FINISH1;
+    endif;
+    
     szMsg2 = "";
     bOpt1 = TRUE;
@@ -560 +568 @@
     nResult = SdFinish(szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2);
 
-    if (bOpt1) then
-        LaunchAppAndWait(TARGETDIR ^ "README.TXT", "", WAIT);
+    if (bOpt1 = TRUE) then
+        LaunchAppAndWait("notepad", TARGETDIR ^ "README.TXT", WAIT);
     endif;
 
@@ -677 +685 @@
 
 
-// Create the SERVER.TXT file if installing the web library
+// Create and display the SERVER.TXT file if
+// installing the web library
 function CreateServerTxt()
-    STRING szTitle, szMsg;
+    STRING szTitle, szMsg, svTmp;
+    STRING szServerTxt, svCgiBin, svGSDLHOME;
     LIST listInfo;
 
 begin
 
-    if (ComponentIsItemSelected(MEDIA, "Web library") = FALSE) then
+    if (svSetupType != "Web Library") then
         return;
     endif;
     
+    szServerTxt = TARGETDIR ^ "SERVER.TXT";
+    svCgiBin = TARGETDIR ^ "cgi-bin";
+    svGSDLHOME= TARGETDIR;
     szTitle = "";
     szMsg = " ";
@@ -693 +706 @@
     listInfo = ListCreate(STRINGLIST);
 
-    ListAddString(listInfo, "hello", AFTER);
-    
+    ListAddString(listInfo, @TEXT_SERVERTXT_01, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_02, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_03, AFTER);
+    ListAddString(listInfo, " ", AFTER);
+    
+    ListAddString(listInfo, @TEXT_SERVERTXT_04, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_05, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_06, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_07, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_08, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_09, AFTER);
+    ListAddString(listInfo, " ", AFTER);
+    
+    ListAddString(listInfo, @TEXT_SERVERTXT_10, AFTER);
+    Sprintf(svTmp, @TEXT_SERVERTXT_11, szServerTxt);
+    ListAddString(listInfo, svTmp, AFTER);
+    ListAddString(listInfo, " ", AFTER);
+    
+    Sprintf(svTmp, @TEXT_SERVERTXT_12, TARGETDIR);
+    ListAddString(listInfo, svTmp, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_13, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_14, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_15, AFTER);
+    Sprintf(svTmp, @TEXT_SERVERTXT_16, svCgiBin);
+    ListAddString(listInfo, svTmp, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_17, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_18, AFTER);
+    ListAddString(listInfo, " ", AFTER);
+    
+    ListAddString(listInfo, @TEXT_SERVERTXT_19, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_20, AFTER);
+    ListAddString(listInfo, " ", AFTER);
+    
+    rs(svCgiBin);
+    rs(svGSDLHOME);
+    
+    ListAddString(listInfo, "  ScriptAlias /gsdl/cgi-bin \"" + svCgiBin + "/\"", AFTER);
+    ListAddString(listInfo, "    <Directory \"" + svCgiBin + "\">", AFTER);
+    ListAddString(listInfo, "       Options None", AFTER);
+    ListAddString(listInfo, "       AllowOverride None", AFTER);
+    ListAddString(listInfo, "    </Directory>", AFTER);
+    ListAddString(listInfo, " ", AFTER);
+    
+    ListAddString(listInfo, "  Alias /gsdl \"" + svGSDLHOME + "/\"", AFTER);
+    ListAddString(listInfo, "    <Directory \"" + svGSDLHOME + "\">", AFTER);
+    ListAddString(listInfo, "       Options Indexes MultiViews FollowSymLinks", AFTER);
+    ListAddString(listInfo, "       AllowOverride None", AFTER);
+    ListAddString(listInfo, "       Order allow,deny", AFTER);
+    ListAddString(listInfo, "       Allow from all", AFTER);
+    ListAddString(listInfo, "    </Directory>", AFTER);
+    ListAddString(listInfo, " ", AFTER);
+        
+    ListAddString(listInfo, @TEXT_SERVERTXT_21, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_22, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_23, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_24, AFTER);
+    ListAddString(listInfo, " ", AFTER);
+        
+    ListAddString(listInfo, @TEXT_SERVERTXT_25, AFTER);
+    ListAddString(listInfo, @TEXT_SERVERTXT_26, AFTER);
+    ListAddString(listInfo, " ", AFTER);
+        
     SdShowInfoList(szTitle, szMsg, listInfo);
-
+    ListWriteToFile(listInfo, szServerTxt);
+    
+    ListDestroy(listInfo);
+    
 end;
 
@@ -762 +838 @@
 end;
 
+// turn any backslashes in string into forward slashes
+function rs (svString)
+    NUMBER i;
+begin
+
+    for i = 0 to StrLength(svString)
+        if (svString[i] = '\\') then
+            svString[i] = '/';
+        endif;
+    endfor;
+
+end;
+
 ///////////////////////////////////////////////////////////////////////////////
 //
@@ -776 +865 @@
 
 
+