home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_1_1994.iso / 00083 / s / approach / disk1 / approach.ms_ / approach.bin
Text File  |  1993-08-18  |  50KB  |  1,404 lines
  1. '** $Header:   F:\newproj\install3\vcs\approach.msv   2.3   04 Aug 1993 17:05:00   JLevine  $
  2. '**************************************************************************
  3. '**                       Approach installation script
  4. '**************************************************************************
  5. '**
  6. '** Modifications:
  7. '** $Log:   F:\newproj\install3\vcs\approach.msv  $
  8. '** 
  9. '**    Rev 2.3   04 Aug 1993 17:05:00   JLevine
  10. '** 2.1 release
  11. '** 
  12. '**    Rev 2.2   13 Jul 1993 17:18:54   JLevine
  13. '** DriveType stuff
  14. '** 
  15. '**    Rev 2.1   12 Jul 1993 23:37:30   JLevine
  16. '** 2.1 installer
  17. '** 
  18. '**    Rev 2.0   21 Jun 1993 15:59:18   JLevine
  19. '** No change.
  20. '** 
  21. '**    Rev 1.4   02 Apr 1993 11:01:48   JLevine
  22. '** 2.03 changes
  23. '** 
  24. '**    Rev 1.3   02 Dec 1992 16:39:50   JLevine
  25. '** OurLoadString, localizable strings
  26. '** 
  27. '**    Rev 1.2   01 Dec 1992 10:23:38   JLevine
  28. '** 2.01i installer
  29. '** 
  30. '**    Rev 1.1   21 Oct 1992 10:35:16   JLevine
  31. '** Changes for UK release
  32. '** 
  33. '**    Rev 1.0   16 Oct 1992 16:04:10   JLevine
  34. '** Initial revision.
  35. '**
  36.  
  37. '$DEFINE NODEBUG  ''Define DEBUG for script development/debugging
  38.  
  39. '$INCLUDE 'setupapi.inc'
  40. '$INCLUDE 'msdetect.inc'
  41. '$INCLUDE 'msregdb.inc'
  42. '$INCLUDE 'approach.inc'
  43.  
  44. ''Dialog ID's
  45. CONST WELCOME          = 100 
  46. CONST WELCOMENODE    = 101
  47. CONST ASKQUIT          = 200
  48. CONST DESTPATH         = 300
  49. CONST EXITFAILURE      = 400
  50. CONST EXITQUIT         = 600
  51. CONST EXITSUCCESS      = 700
  52. CONST EXITNETWORKSUCCESS   = 701
  53. CONST OPTIONS          = 800
  54. CONST INSTOPTS            = 801
  55. CONST TEMPLATEOPTS    = 802
  56. CONST INSTSHARE        = 803
  57. CONST NETINSTOPTS    = 804
  58. CONST NETLICENSEOPTS = 805
  59. 'CONST LOTUSAPPDIR    = 806
  60. CONST APPHELP          = 900
  61. CONST APPHELPNOBACK    = 901
  62. CONST APPHELPNOCONT    = 902
  63. CONST APPINSTHELP        = 903
  64. CONST APPTEMPLATEHELP = 904
  65. CONST APPSHAREHELP     = 905
  66. CONST APPCUSTINSTHELP = 906
  67. CONST APPHELPYESNO    = 907
  68. CONST APPLICENSEHELP  = 908
  69. CONST APPNETHELP      = 909
  70. 'CONST LOTUSAPPHELP    = 910
  71. 'CONST COMMONDIRHELP   = 911
  72. 'CONST COMMONDIR       = 1000 
  73. CONST CUSTINST         = 6200
  74. CONST TOOBIGCUST        = 6300
  75. CONST TOOBIGFULL        = 6301
  76. CONST TOOBIGMIN        = 6302
  77. CONST BADPATH          = 6400
  78. CONST    CDCONFIRMINFO    = 7300
  79. CONST CDBADNAME        = 7700
  80. CONST BILLBOARD_REG  = 8000
  81. CONST BILLBOARD_2    = 8001
  82. CONST BILLBOARD_3    = 8002
  83. CONST BILLBOARD_4    = 8003   
  84.  
  85. CONST LOGO         = 2
  86.  
  87. ''File Types
  88. CONST APPFILES     = 1            ''Approach
  89. CONST OPTFILES1     = 2            ''Examples
  90. CONST OPTFILES2    = 3            ''Templates
  91. CONST OPTFILES3     = 4            ''Paradox
  92. CONST OPTFILES4     = 5            ''Oracle
  93. CONST OPTFILES5     = 6            ''SQL Server
  94. CONST OPTFILES6    = 7        ''ODBC
  95. CONST NUMFILETYPES = OPTFILES6
  96.  
  97. '' For templates
  98. CONST TEMPLATEREADME = 1        '' Do template readme files
  99. CONST SMALLBIZ         = 2            '' Do smallbiz templates
  100. CONST LARGEBIZ         = 3            '' Do largebiz templates
  101. CONST NUMTEMPLATES = LARGEBIZ
  102.  
  103. GLOBAL DEST$        ''Default destination directory.
  104. GLOBAL WINDRIVE$    ''Windows drive letter.
  105. 'GLOBAL STATUSBARDEST$
  106. 'GLOBAL ICONBARDEST$
  107. 'GLOBAL LOTUSAPPDIR$
  108. GLOBAL LICENSEDEST$  '' Licenser destination directory.
  109. GLOBAL LICENSEUTIL$  '' Licenser utility directory.
  110.  
  111. GLOBAL OPT1OPT$     ''Option selection from OptFiles1 option dialog.
  112. GLOBAL OPT2OPT$     ''Option selection from OptFiles2 option dialog.
  113. GLOBAL OPT3OPT$     ''Option selection from OptFiles2 option dialog.
  114. GLOBAL OPT4OPT$     ''Option selection from OptFiles2 option dialog.
  115. GLOBAL OPT5OPT$      ''Option selection from OptFiles5 option dialog
  116. GLOBAL OPT6OPT$     ''Option selection from OptFiles6 option dialog
  117.  
  118. ''CustInst list symbol names
  119. GLOBAL APPNEEDS$    ''Option list costs per drive
  120. GLOBAL OPT1NEEDS$
  121. GLOBAL OPT2NEEDS$
  122. GLOBAL OPT3NEEDS$
  123. GLOBAL OPT4NEEDS$
  124. GLOBAL OPT5NEEDS$
  125. GLOBAL OPT6NEEDS$
  126. GLOBAL LICENSEUTILNEEDS$
  127. GLOBAL EXTRACOSTS$  ''List of extra costs to add per drive
  128. GLOBAL BIGLIST$     ''List of option files cost calc results (boolean)
  129.  
  130. ''Dialog list symbol names
  131. GLOBAL CHECKSTATES$
  132. GLOBAL STATUSTEXT$
  133. GLOBAL DRIVETEXT$
  134.  
  135. GLOBAL HELPPROC$
  136. GLOBAL CUIDLL$
  137.  
  138. '' Flags
  139. GLOBAL instDiskFull%
  140. GLOBAL winDiskFull%
  141.  
  142. DECLARE SUB AddOptFilesToCopyList (ftype%)
  143. DECLARE SUB CreateOptDir (ftype%, DEST$) 
  144. DECLARE SUB RecalcOptFiles (ftype%)
  145. DECLARE SUB RecalcPath
  146. DECLARE SUB SetDriveStatus
  147. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  148. DECLARE FUNCTION CompareLists(szList1$, szList2$) AS INTEGER
  149. DECLARE SUB CopyList(szList1$, szList2$)
  150. DECLARE SUB DoBadPathDlg
  151. 'DECLARE FUNCTION DoPathDlg() AS STRING
  152. DECLARE FUNCTION ValidateNewPath(oldPath$, newPath$) AS INTEGER
  153. DECLARE SUB ChangePathText(newPath$) 
  154. DECLARE SUB DoAskQuitDlg
  155. DECLARE SUB DoWelcomeDlg(szUserName$, szCompanyName$)
  156. DECLARE FUNCTION OurIsDirWritable(newPath$) AS INTEGER
  157.  
  158. INIT:
  159.     SetTitle GetString(STANDARD_CAPTION)
  160.     SetAbout GetString(COPYRIGHT_NAME), GetString(COPYRIGHT_NOTICE)
  161.  
  162. '' Hack to make node installations simpler    
  163.     IF GetSymbolValue("STF_MODE") = "ADMIN" THEN
  164.         SetSymbolValue "STF_MODE", "NODE"
  165.     END IF
  166.  
  167.      instDiskFull% = 0
  168.      winDiskFull% = 0
  169.     CUIDLL$ = "mscuistf.dll"            ''custom user interface dll
  170.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  171.  
  172.     SetBitmap CUIDLL$, LOGO
  173.      dummy% = ShowWindow (HwndFrame(), SW_SHOWMAXIMIZED)
  174.  
  175.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  176.  
  177.     
  178.     IF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  179.        LICENSEUTIL$ = WINDRIVE$ + ":\LICENSER"
  180.        DEST$ = ""
  181.        LICENSEDEST$ = ""
  182.          
  183.        FOR i% = 1 TO 26 STEP 1
  184.           IF DriveType(i%) = DRIVE_REMOTE THEN
  185.              NetDrive$ = CHR$(i%+ASC("A")-1)
  186.              IF (DEST$ = "") AND (OurIsDirWritable(NetDrive$+GetString(NETWORK_DIR)) = 1) THEN
  187.                 DEST$ = NetDrive$+GetString(NETWORK_DIR)
  188.              ENDIF
  189.  
  190.              IF (LICENSEDEST$ = "") AND (OurIsDirWritable(NetDrive$+GetString(NETLICENSE_DIR)) = 1) THEN
  191.                 LICENSEDEST$ = NetDrive$+GetString(NETLICENSE_DIR)
  192.              END IF
  193.  
  194.              IF (DEST$ <> "") AND (LICENSEDEST$ <> "") THEN
  195.                 EXIT FOR
  196.              ENDIF
  197.           END IF
  198.        NEXT i%
  199.  
  200.        IF DEST$ = "" THEN
  201.           DEST$ = WINDRIVE$ + GetString(NETWORK_DIR)
  202.        END IF
  203.          
  204.        IF LICENSEDEST$ = "" THEN
  205.           LICENSEDEST$ = WINDRIVE$ + GetString(NETLICENSE_DIR)
  206.        END IF
  207.     ELSE
  208.        DEST$ = WINDRIVE$ + ":\APPROACH"
  209.     END IF
  210.  
  211.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  212.     IF szInf$ = "" THEN
  213.         szInf$ = GetSymbolValue("STF_CWDDIR")
  214.     END IF
  215.     szInf$ = szInf$ + "APPROACH.INF"
  216.    
  217. '
  218. ' Guess at a location for lotusapp & shared files
  219. '
  220.     LotIni1$ = GetWindowsDir
  221.      LotIni$ = LotIni1$+"LOTUS.INI"
  222. '   ICONBARDEST$ = GetIniKeyString(LotIni$, "Icon Palette", "Program Path")
  223. '   STATUSBARDEST$ = GetIniKeyString(LotIni$, "Status Bar", "Program Path")
  224. '
  225. '    IF GetSymbolValue("STF_MODE") = "NORMAL" THEN
  226. '         LOTUSAPPDIR$ = GetIniKeyString(LotIni$, "Lotus Applications", "Common Directory")
  227. '      IF LOTUSAPPDIR$ = "" THEN
  228. '           LOTUSAPPDIR$ = LotIni1$+"LOTUSAPP"
  229. '       ENDIF
  230. '
  231. '       IF ICONBARDEST$ = "" THEN
  232. '          ICONBARDEST$ = LOTUSAPPDIR$
  233. '       ENDIF
  234. '
  235. '       IF STATUSBARDEST$ = "" THEN
  236. '           STATUSBARDEST$ = LOTUSAPPDIR$
  237. '       ENDIF
  238. '    ELSEIF GetSymbolValue("STF_MODE") = "NODE" THEN
  239. '       LOTUSAPPDIR$ = GetIniKeyString(LotIni$, "Lotus Applications", "Net Common Directory")
  240. '       LOTUSAPPDIR2$ = GetIniKeyString(GetSymbolValue("STF_SRCDIR")+"INSTALL.INI", "Save Section", "Server Common Directory")
  241. '
  242. '       IF (LOTUSAPPDIR$ = "") OR ((LOTUSAPPDIR2$ <> "") AND (MID$(LOTUSAPPDIR$, 2) <> MID$(LOTUSAPPDIR2$, 2))) THEN
  243. '           LOTUSAPPDIR$ = LOTUSAPPDIR2$
  244. '       ENDIF
  245. '
  246. '       IF DoesDirExist(LOTUSAPPDIR$) = 0 THEN
  247. '           LOTUSAPPDIR$ = MID$(GetSymbolValue("STF_SRCDIR"), 1, 1) + MID$(LOTUSAPPDIR$, 2)
  248. '       ENDIF
  249. '    ELSEIF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  250. '         LOTUSAPPDIR$ = GetIniKeyString(LotIni$, "Lotus Applications", "Net Common Directory")
  251. '       IF LOTUSAPPDIR$ = "" THEN
  252. '           LOTUSAPPDIR$ = MID$(DEST$, 1, 1)+":\LOTUSAPP"
  253. '       ENDIF
  254. '    ENDIF
  255.  
  256.     ReadInfFile szInf$
  257.  
  258.     ''CustInst list symbols
  259.     CHECKSTATES$ = "CheckItemsState"
  260.     STATUSTEXT$  = "StatusItemsText"
  261.     DRIVETEXT$   = "DriveStatusText"
  262.     FOR k% = APPFILES TO NUMFILETYPES STEP 1
  263.         AddListItem STATUSTEXT$, ""
  264.     NEXT k%
  265.     FOR l% = 1 TO 7 STEP 1
  266.         AddListItem DRIVETEXT$, ""
  267.     NEXT l%
  268.     ReplaceListItem DRIVETEXT$, 7, DEST$
  269.  
  270.     ''Disk cost list symbols
  271.     APPNEEDS$   = "AppNeeds"
  272.     OPT1NEEDS$  = "Opt1Needs"
  273.     OPT2NEEDS$  = "Opt2Needs"
  274.     OPT3NEEDS$  = "Opt3Needs"
  275.     OPT4NEEDS$  = "Opt4Needs"
  276.     OPT5NEEDS$  = "Opt5Needs"
  277.     OPT6NEEDS$  = "Opt6Needs"
  278.     EXTRACOSTS$ = "ExtraCosts"
  279.     BIGLIST$    = "BigList"
  280.     FOR m% = APPFILES TO NUMFILETYPES STEP 1
  281.         AddListItem BIGLIST$, ""
  282.     NEXT m%
  283.     FOR n% = 1 TO 26 STEP 1
  284.         AddListItem EXTRACOSTS$, "0"
  285.     NEXT n%
  286.  
  287.     OPT1OPT$ = "1"
  288.     OPT2OPT$ = "WhichTemplates"
  289.  
  290.     FOR o% = APPFILES TO NUMFILETYPES STEP 1
  291.         AddListItem CHECKSTATES$, "ON"
  292.     NEXT o%
  293.  
  294.     ''File Option Variables
  295.     IF GetSymbolValue("STF_MODE") = "NODE" THEN        
  296.        IF DoesFileExist(GetSymbolValue("STF_SRCDIR") + GetString(EXAMPLES_DIR) + "\" + GetSectionKeyFilename("Tutorial", "Tutorial Example File"), femExists) = 0 THEN 
  297.          ReplaceListItem CHECKSTATES$, OPTFILES1, "DISABLED"
  298.          OPT1OPT$ = "-1"
  299.        ELSE
  300.          OPT1OPT$ = "1"
  301.        ENDIF
  302.      
  303.        numTempls% = 0
  304.  
  305.        IF DoesFileExist(GetSymbolValue("STF_SRCDIR") + GetString(TEMPLATES_DIR) + "\" + GetSectionKeyFilename("Template Readme", "Template Documentation"), femExists) = 0 THEN
  306.            AddListItem OPT2OPT$, "DISABLED"
  307.        ELSE
  308.            AddListItem OPT2OPT$, "ON"
  309.            numTempls% = numTempls% + 1
  310.        ENDIF
  311.  
  312.        IF DoesFileExist(GetSymbolValue("STF_SRCDIR") + GetString(TEMPLATES_DIR) + "\" + GetString(SMALLBIZ_DIR) + "\" + GetSectionKeyFilename("Smallbiz Templates", "Small Business Template"), femExists) = 0 THEN
  313.            AddListItem OPT2OPT$, "DISABLED"
  314.        ELSE
  315.            AddListItem OPT2OPT$, "ON"
  316.            numTempls% = numTempls% + 1
  317.        ENDIF
  318.  
  319.        IF DoesFileExist(GetSymbolValue("STF_SRCDIR") + GetString(TEMPLATES_DIR) + "\" + GetString(LARGEBIZ_DIR) + "\" + GetSectionKeyFilename("Largebiz Templates", "Large Business Template"), femExists) = 0 THEN 
  320.            AddListItem OPT2OPT$, "DISABLED"
  321.        ELSE
  322.            AddListItem OPT2OPT$, "ON"
  323.            numTempls% = numTempls% + 1
  324.        ENDIF
  325.  
  326.        IF numTempls% = 0 THEN
  327.           ReplaceListItem CHECKSTATES$, OPTFILES2, "DISABLED"
  328.        ELSEIF numTempls% = 3 THEN
  329.           ReplaceListItem CHECKSTATES$, OPTFILES2, "ON"
  330.        ELSE
  331.             SetSymbolValue "IsMixed" + STR$(OPTFILES2), "MIXED"
  332.           ReplaceListItem CHECKSTATES$, OPTFILES2, "MIXED"
  333.        ENDIF
  334.  
  335.        FOR p% = OPTFILES3 TO NUMFILETYPES STEP 1
  336.           ReplaceListItem CHECKSTATES$, p%, "DISABLED"
  337.        NEXT p%
  338.  
  339.        OPT3OPT$ = "-1"
  340.        OPT4OPT$ = "-1"
  341.        OPT5OPT$ = "-1"
  342.        OPT6OPT$ = "-1"
  343.     ELSE
  344.        FOR q% = 1 TO NUMTEMPLATES STEP 1
  345.            AddListItem OPT2OPT$, "ON"
  346.        NEXT q%
  347.        OPT3OPT$ = "1"
  348.        OPT4OPT$ = "1"
  349.        OPT5OPT$ = "1"
  350.        OPT6OPT$ = "1"
  351.     ENDIF 
  352.  
  353. '$IFDEF DEBUG                 
  354.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  355. '$ENDIF ''DEBUG
  356.  
  357.  
  358. WELCOME:
  359.     IF GetSymbolValue("STF_MODE") = "NODE" THEN            
  360. WELCOMENODE_LOOP:
  361.        sz$ = UIStartDlg(CUIDLL$, WELCOMENODE, "FInfoDlgProc", APPHELPNOBACK, HELPPROC$)
  362.  
  363.        IF sz$ = "CONTINUE" THEN
  364. ' Make sure they entered a user name
  365.           UIPop 1
  366.        ELSEIF sz$ = "EXIT" THEN
  367.           DoAskQuitDlg
  368.           GOTO WELCOMENODE_LOOP 
  369.        ELSE 
  370.           GOTO WELCOMENODE_LOOP
  371.        END IF
  372.     ELSE
  373.        DoWelcomeDlg szUserName$, szCompanyName$
  374.     ENDIF
  375.  
  376. INSTOPTS:
  377.     SetSymbolValue "EditTextIn", DEST$  
  378.     SetSymbolValue "EditFocus", "END"
  379.  
  380.     RecalcPath
  381.     SetDriveStatus
  382.  
  383. INSTOPTS_LOOP:
  384.        sz$ = UIStartDlg(CUIDLL$, INSTOPTS, "FInstOptsDlgProc", APPINSTHELP, HELPPROC$)
  385.  
  386.     opt$ = GetSymbolValue("ButtonChecked")
  387.      
  388.     IF sz$ = "CONTINUE" THEN
  389.         newInstPath$ = GetSymbolValue("EditTextOut")
  390.         instPathRC% = ValidateNewPath(DEST$, newInstPath$) 
  391.  
  392.           IF instPathRC% > 0 THEN
  393.                 ChangePathText(newInstPath$)
  394.         ELSEIF instPathRC% < 0 THEN 
  395.                 GOTO INSTOPTS_LOOP
  396.         END IF
  397.  
  398.         UIPop 1
  399.         IF opt$ = "1" THEN                            '' Full install
  400.                FOR r% = APPFILES TO NUMFILETYPES STEP 1
  401.                 IF GetListItem(CHECKSTATES$, r%) <> "DISABLED" THEN
  402.                       ReplaceListItem CHECKSTATES$, r%, "ON"
  403.                 ENDIF
  404.                NEXT r%
  405.             RecalcPath
  406.             SetDriveStatus
  407.                 IF instDiskFull% = 1 OR winDiskFull% = 1 THEN
  408.                    GOSUB TOOBIGFULL
  409.                SetSymbolValue "EditTextIn", DEST$  
  410.                 GOTO INSTOPTS_LOOP
  411.              END IF
  412.                 GOTO INSTALL
  413.          ELSEIF opt$ = "2" THEN                    '' Custom install
  414.              RecalcPath
  415.              SetDriveStatus
  416.                GOTO CUSTINST
  417.         ELSEIF opt$ = "3" THEN                     '' Minimum install
  418.                 ReplaceListItem CHECKSTATES$, APPFILES, "ON"
  419.                FOR s% = APPFILES+1 TO NUMFILETYPES STEP 1
  420.                 IF GetListItem(CHECKSTATES$, s%) <> "DISABLED" THEN
  421.                       ReplaceListItem CHECKSTATES$, s%, "OFF"
  422.                 ENDIF
  423.                NEXT s%
  424.             RecalcPath
  425.             SetDriveStatus
  426.                 IF instDiskFull% = 1 OR winDiskFull% = 1 THEN
  427.                 GOSUB TOOBIGMIN
  428.                SetSymbolValue "EditTextIn", DEST$  
  429.                 GOTO INSTOPTS_LOOP
  430.              END IF
  431.                 GOTO INSTALL
  432.           END IF
  433.     ELSEIF sz$ = "REACTIVATE" THEN
  434. '        RecalcPath
  435. '        SetDriveStatus
  436.           opt$ = ""
  437.         GOTO INSTOPTS_LOOP
  438.      ELSEIF sz$ = "EXIT" THEN
  439.         DoAskQuitDlg
  440.           opt$ = ""
  441.         GOTO INSTOPTS_LOOP
  442.     ELSEIF sz$ = "PATH" THEN
  443.        newPath$ = GetSymbolValue("EditTextOut")
  444.        pathDummy% = ValidateNewPath(DEST$, newPath$) 
  445.          IF pathDummy% < 0 THEN
  446.            GOTO INSTOPTS_LOOP
  447.        ELSEIF pathDummy > 0 THEN 
  448.            ChangePathText(newPath$) 
  449. '           RecalcPath
  450. '           SetDriveStatus
  451.        END IF
  452.        GOTO INSTOPTS_LOOP
  453.     ELSE
  454.           UIPop 1
  455.           GOTO WELCOME    
  456.     END IF
  457.  
  458.   
  459. CUSTINST:
  460.     SetSymbolValue "EditTextIn", DEST$  
  461.     SetSymbolValue "EditFocus", "END"
  462.  
  463. CUSTINST_LOOP:
  464.     sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", APPCUSTINSTHELP, HELPPROC$)
  465.  
  466.     IF sz$ = "CONTINUE" THEN
  467.         ''Install only if it will fit.
  468.         newPath$ = GetSymbolValue("EditTextOut")
  469.         pathDummy% = ValidateNewPath(DEST$, newPath$) 
  470.           IF pathDummy% < 0 THEN
  471.             GOTO CUSTINST_LOOP
  472.         ELSEIF pathDummy > 0 THEN 
  473.             ChangePathText(newPath$) 
  474.         END IF
  475.           IF instDiskFull% = 1 OR winDiskFull% = 1 THEN
  476.            GOSUB TOOBIGCUST
  477.            GOTO CUSTINST_LOOP
  478.         END IF
  479.         UIPop 1
  480.         GOTO INSTALL
  481.     ELSEIF sz$ = "PATH" THEN
  482.         newPath$ = GetSymbolValue("EditTextOut")
  483.         pathDummy% = ValidateNewPath(DEST$, newPath$) 
  484.           IF pathDummy% < 0 THEN
  485.            GOTO CUSTINST_LOOP
  486.         ELSEIF pathDummy > 0 THEN 
  487.            ChangePathText(newPath$) 
  488.            RecalcPath
  489.            SetDriveStatus
  490.         END IF
  491.            GOTO CUSTINST_LOOP
  492.     ELSEIF sz$ = "CHK1" THEN
  493.         RecalcOptFiles APPFILES
  494.         SetDriveStatus
  495.         GOTO CUSTINST_LOOP
  496.     ELSEIF sz$ = "CHK2" THEN
  497.         RecalcOptFiles OPTFILES1
  498.         SetDriveStatus
  499.         GOTO CUSTINST_LOOP
  500.     ELSEIF sz$ = "CHK3" THEN
  501.         RecalcOptFiles OPTFILES2
  502.         SetDriveStatus
  503.         GOTO CUSTINST_LOOP
  504.     ELSEIF sz$ = "CHK4" THEN
  505.         RecalcOptFiles OPTFILES3
  506.         SetDriveStatus
  507.         GOTO CUSTINST_LOOP
  508.     ELSEIF sz$ = "CHK5" THEN
  509.         RecalcOptFiles OPTFILES4
  510.         SetDriveStatus
  511.         GOTO CUSTINST_LOOP
  512.     ELSEIF sz$ = "CHK6" THEN
  513.         RecalcOptFiles OPTFILES5
  514.         SetDriveStatus
  515.         GOTO CUSTINST_LOOP
  516.     ELSEIF sz$ = "CHK7" THEN
  517.         RecalcOptFiles OPTFILES6
  518.         SetDriveStatus
  519.         GOTO CUSTINST_LOOP
  520.     ELSEIF sz$ = "BTN3" THEN
  521.         GOTO OPTFILES2
  522.     ELSEIF sz$ = "REACTIVATE" THEN
  523.         RecalcPath
  524.         SetDriveStatus
  525.         GOTO CUSTINST_LOOP
  526.     ELSEIF sz$ = "EXIT" THEN
  527.         DoAskQuitDlg
  528.         GOTO CUSTINST_LOOP
  529.     ELSEIF sz$ = "BACK" THEN
  530.         UIPop 1            
  531.         GOTO INSTOPTS
  532.     ELSE
  533.         GOTO CUSTINST_LOOP
  534.     END IF                
  535.  
  536. INSTALL:
  537.  
  538. '    
  539. ' Refine location for lotusapp & shared files
  540. '
  541. '    IF GetSymbolValue("STF_MODE") = "NODE" THEN
  542. ' Do we even need to know the LOTUSAPPDIR?
  543. '       IF (ICONBARDEST$ = "") OR (DoesDirExist(ICONBARDEST$) = 0) OR (STATUSBARDEST$ = "") OR (DoesDirExist(STATUSBARDEST$) = 0) THEN
  544. 'LOTUSAPPDRIVE:
  545. '           SetSymbolValue "EditTextIn", ""
  546. 'LOTUSAPPDRIVE_LOOP:
  547. '                  
  548. '           sz$ = UIStartDlg(CUIDLL$, COMMONDIR, "FEditDlgProc", COMMONDIRHELP, HELPPROC$)
  549. '
  550. '           IF sz$ = "CONTINUE" THEN
  551. '              newLotAppDir$ = MID$(GetSymbolValue("EditTextOut"), 1, 1)+MID$(LOTUSAPPDIR$, 2)
  552. '              IF DoesDirExist(newLotAppDir$) = 0 THEN
  553. '                 DoBadPathDlg
  554. '                 GOTO LOTUSAPPDRIVE_LOOP
  555. '              END IF 
  556. '              LOTUSAPPDIR$ = newLotAppPath$
  557. '              UIPop 1
  558. '           ELSEIF sz$ = "REACTIVATE" THEN
  559. '              GOTO LOTUSAPPDRIVE_LOOP
  560. '           ELSEIF sz$ = "EXIT" THEN
  561. '              DoAskQuitDlg
  562. '              GOTO LOTUSAPPDRIVE_LOOP
  563. '           ELSE
  564. '              UIPop 1
  565. '              GOTO INSTOPTS
  566. '           END IF
  567. '
  568. '           IF (ICONBARDEST$ = "") OR (DoesDirExist(ICONBARDEST$) = 0) THEN
  569. '              ICONBARDEST$ = LOTUSAPPDIR$
  570. '           ENDIF   
  571. '
  572. '           IF (STATUSBARDEST$ = "") OR (DoesDirExist(STATUSBARDEST$) = 0) THEN
  573. '              STATUSBARDEST$ = LOTUSAPPDIR$
  574. '           ENDIF
  575. '       ENDIF
  576. ' 
  577. '    ELSEIF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  578.      IF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  579. 'LOTUSAPPDIR:
  580. '       SetSymbolValue "EditTextIn", LOTUSAPPDIR$
  581. 'LOTUSAPPDIR_LOOP:
  582. '       sz$ = UIStartDlg(CUIDLL$, LOTUSAPPDIR, "FEditDlgProc", LOTUSAPPHELP, HELPPROC$)
  583. '
  584. '       IF sz$ = "CONTINUE" THEN
  585. '          newLotAppPath$ = GetSymbolValue("EditTextOut")
  586. '          IF ValidateNewPath(LOTUSAPPDIR$, newLotAppPath$) < 0 THEN
  587. '             GOTO LOTUSAPPDIR_LOOP
  588. '          END IF 
  589. '          LOTUSAPPDIR$ = newLotAppPath$
  590. '          UIPop 1
  591. '       ELSEIF sz$ = "REACTIVATE" THEN
  592. '          GOTO LOTUSAPPDIR_LOOP
  593. '       ELSEIF sz$ = "EXIT" THEN
  594. '          DoAskQuitDlg
  595. '          GOTO LOTUSAPPDIR_LOOP
  596. '       ELSE
  597. '          UIPop 1
  598. '          GOTO INSTOPTS
  599. '       END IF
  600. '
  601. '       ICONBARDEST$ = LOTUSAPPDIR$
  602. '       STATUSBARDEST$ = LOTUSAPPDIR$
  603. '
  604. NETOPTS:
  605.        SetSymbolValue "EditTextIn", LICENSEUTIL$    
  606.  
  607. NETOPTS_LOOP:
  608.         sz$ = UIStartDlg(CUIDLL$, NETINSTOPTS, "FEditDlgProc", APPNETHELP, HELPPROC$)
  609.  
  610.        IF sz$ = "CONTINUE" THEN
  611.              newLicUtilPath$ = GetSymbolValue("EditTextOut")
  612.  
  613.            IF ValidateNewPath(LICENSEUTIL$, newLicUtilPath$) < 0 THEN
  614.                GOTO NETOPTS_LOOP
  615.            END IF
  616.            LICENSEUTIL$ = newLicUtilPath$
  617.            UIPop 1
  618.        ELSEIF sz$ = "REACTIVATE" THEN
  619.            GOTO NETOPTS_LOOP
  620.         ELSEIF sz$ = "EXIT" THEN
  621.            DoAskQuitDlg
  622.            GOTO NETOPTS_LOOP
  623.        ELSE
  624.              UIPop 1
  625.              GOTO INSTOPTS
  626.        END IF
  627.  
  628. NETOPTS2:
  629.        SetSymbolValue "EditTextIn", LICENSEDEST$
  630.  
  631. NETOPTS2_LOOP:
  632.         sz$ = UIStartDlg(CUIDLL$, NETLICENSEOPTS, "FEditDlgProc", APPLICENSEHELP, HELPPROC$)
  633.  
  634.        IF sz$ = "CONTINUE" THEN
  635.                newLicPath$ = GetSymbolValue("EditTextOut")
  636.  
  637.            IF ValidateNewPath(LICENSEDEST$, newLicPath$) < 0 THEN
  638.                GOTO NETOPTS2_LOOP
  639.            END IF
  640.  
  641.            IF CountDirs(newLicPath$) <> 1 THEN
  642.               DoBadPathDlg
  643.               GOTO NETOPTS2_LOOP
  644.            END IF
  645.  
  646.            LICENSEDEST$ = newLicPath$
  647.            UIPop 1
  648.        ELSEIF sz$ = "REACTIVATE" THEN
  649.            GOTO NETOPTS2_LOOP
  650.         ELSEIF sz$ = "EXIT" THEN
  651.            DoAskQuitDlg
  652.            GOTO NETOPTS2_LOOP
  653.        ELSE
  654.              UIPop 1
  655.              GOTO NETOPTS
  656.        END IF
  657.      ENDIF
  658.  
  659.     ClearCopyList
  660.      FOR t% = APPFILES TO NUMFILETYPES STEP 1
  661.         AddOptFilesToCopyList t%
  662.          CreateOptDir t%, DEST$ 
  663.      NEXT t%
  664.  
  665. '' Grab important initialization information from the APPROACH.INI
  666.      AppIni1$ = GetWindowsDir
  667.      AppIni$ = AppIni1$+"APPROACH.INI"
  668.     IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
  669.          oldParadoxUserName$ = GetIniKeyString(AppIni$, "Approach", "sParadoxUserName")
  670.          oldParadoxNetFilePath$ = GetIniKeyString(AppIni$, "Approach", "sParadoxNetFilePath")
  671.          olddBaseFileSharingMethod$ = GetIniKeyString(AppIni$, "Approach", "sdBaseFileSharingMethod")
  672.          oldSQLReadOnly$ = GetIniKeyString(AppIni$, "SQL", "ReadOnly")
  673.      ELSE
  674.          oldParadoxUserName$ = ""
  675.          oldParadoxNetFilePath$ = ""
  676.          olddBaseFileSharingMethod$ = ""
  677.          oldSQLReadOnly$ = ""
  678.      END IF
  679.  
  680.      SetRestartDir GetSymbolValue("STF_CWDDIR")
  681.  
  682.     AddToBillboardList CUIDLL$, BILLBOARD_REG, "FBillboardDlgProc", 50
  683.     AddToBillboardList CUIDLL$, BILLBOARD_2, "FBillboardDlgProc", 50
  684.     AddToBillboardList CUIDLL$, BILLBOARD_3, "FBillboardDlgProc", 50       
  685.     AddToBillboardList CUIDLL$, BILLBOARD_4, "FBillboardDlgProc", 50
  686.  
  687.     CopyFilesInCopyList 
  688.  
  689.     ClearBillboardList
  690.  
  691. '' Don't version stamp or update INI or setup progman groups or register unless we're 
  692. '' installing APPROACH.EXE
  693.     IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
  694. '' Version stamp
  695.        IF GetSymbolValue("STF_MODE") <> "NODE" THEN            
  696.           IF szCompanyName$ = "" THEN
  697.              szCompanyName$ = " "
  698.           ENDIF
  699.           szData$ = CHR$(LEN(szUserName$)) + szUserName$ + CHR$(LEN(szCompanyName$)) + szCompanyName$
  700.           StampResource "Approach Files", "Approach Executable", DEST$, 6, 51, szData$, LEN(szData)
  701.        ENDIF
  702.    
  703.        IF GetSymbolValue("STF_MODE") <> "NETWORK" THEN
  704. '' Initialize uninitialized information into APPROACH.INI
  705.            IF oldParadoxUserName$ <> "" THEN
  706.               CreateIniKeyValue AppIni$, "Approach", "sParadoxUserName", oldParadoxUserName$, cmoNone
  707.            END IF
  708.            IF oldParadoxNetFilePath$ <> "" THEN
  709.                CreateIniKeyValue AppIni$, "Approach", "sParadoxNetFilePath", oldParadoxNetFilePath$, cmoNone
  710.            END IF
  711.            IF olddBaseFileSharingMethod$ <> "" THEN
  712.                CreateIniKeyValue AppIni$, "Approach", "sdBaseFileSharingMethod", olddBaseFileSharingMethod$, cmoNone
  713.            END IF
  714.            IF oldSQLReadOnly$ <> "" THEN
  715.                CreateIniKeyValue AppIni$, "SQL", "ReadOnly", oldSQLReadOnly$, cmoNone     
  716.            END IF
  717.       
  718. '' Change sParadoxSort to match current language
  719.            IF GetIniKeyString(AppIni$, "Approach", "sParadoxSort") = "" THEN
  720.                  language$ = UCASE$(GetIniKeyString("WIN.INI", "intl", "sLanguage"))
  721.                SELECT CASE language$
  722.                    CASE "ENU"
  723.                        CreateIniKeyValue AppIni$, "Approach", "sParadoxSort", "ASCII", cmoNone
  724.                    CASE "NOR", "DAN"
  725.                        CreateIniKeyValue AppIni$, "Approach", "sParadoxSort", "NORDAN", cmoNone                
  726.                    CASE "SVE", "FIN"
  727.                        CreateIniKeyValue AppIni$, "Approach", "sParadoxSort", "SWEDFIN", cmoNone                
  728.                    CASE ELSE
  729.                        CreateIniKeyValue AppIni$, "Approach", "sParadoxSort", "INTL", cmoNone
  730.                END SELECT    
  731.            END IF
  732.    
  733. '' icon path
  734.           CreateIniKeyValue AppIni$, "SmartIcons", "IconPath", DEST$+"\", cmoNone
  735.  
  736. '' Approach LOTUS.INI item
  737.           CreateIniKeyValue LotIni$, "Lotus Applications", "APPROACH", DEST$+"\APPROACH.EXE Lotus Approach", cmoNone
  738. '' Icon bar path & status bar path
  739. '          CreateIniKeyValue LotIni$, "Icon Palette", "Program Path", ICONBARDEST$, cmoNone
  740. '          CreateIniKeyValue LotIni$, "Status Bar", "Program Path", STATUSBARDEST$, cmoNone
  741. '
  742. '          IF (STATUSBARDEST$ = LOTUSAPPDIR$) OR (ICONBARDEST$ = LOTUSAPPDIR$) THEN
  743. '             IF GetSymbolValue("STF_MODE") = "NODE" THEN
  744. '                CreateIniKeyValue LotIni$, "Lotus Applications", "Net Common Directory", LOTUSAPPDIR$, cmoNone       
  745. '             ELSE
  746. '                CreateIniKeyValue LotIni$, "Lotus Applications", "Common Directory", LOTUSAPPDIR$, cmoNone       
  747. '             END IF
  748. '          END IF
  749. '       ELSE
  750. '          CreateIniKeyValue Dest$+"INSTALL.INI", "Save Section", "Server Common Directory", LOTUSAPPDIR$, cmoNone       
  751.        END IF
  752.                
  753. '' Create progman groups
  754.        IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
  755.            Lotus$ = GetString(LOTUSAPPS_NAME)
  756.              Approach$ = GetString(APPROACH_NAME)
  757.            CreateProgmanGroup Lotus$, "", cmoNone
  758.            ShowProgmanGroup  Lotus$, 1, cmoNone
  759.            IF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  760.               CreateProgmanItem Lotus$, GetString(LICENSER_NAME), MakePath(LICENSEUTIL$,"licenser.exe"), "", cmoOverwrite
  761.            ELSEIF GetSymbolValue("STF_MODE") = "NODE" THEN
  762.               CreateProgmanItem Lotus$, Approach$, MakePath(GetSymbolValue("STF_SRCDIR"),"approach.exe"), ",,,,"+DEST$, cmoOverwrite
  763.               CreateProgmanItem Lotus$, GetString(APPROACH_README), "write.exe "+MakePath(GetSymbolValue("STF_SRCDIR"),"readme.wri"), "", cmoOverwrite
  764.            ELSE
  765.               CreateProgmanItem Lotus$, Approach$, MakePath(DEST$,"approach.exe"), "", cmoOverwrite
  766.               CreateProgmanItem Lotus$, GetString(APPROACH_README), "write.exe "+MakePath(DEST$,"readme.wri"), "", cmoOverwrite
  767.            END IF
  768.        END IF
  769.    
  770.    
  771. '' Register Approach -- delete any previous registration information, and add current info.
  772. REGISTER:
  773.         DeleteRegKey ".vew"
  774.         DeleteRegKey "ApproachView"
  775.         CreateRegKey ".vew"
  776.         CreateRegKeyValue ".vew", "ApproachView"
  777.    
  778.         CreateRegKey "ApproachView"
  779.        CreateRegKeyValue "ApproachView", "Approach View File"
  780.         CreateRegKeyValue "ApproachView\shell\print\command", MakePath(DEST$,"approach.exe")+" /p %1"
  781.         CreateRegKeyValue "ApproachView\shell\open\command", MakePath(DEST$,"approach.exe")+" %1"
  782.     END IF
  783.  
  784. ' Windows files 
  785. WINFILES:
  786.      IF RestartListEmpty() = 0 THEN
  787.         IF (GetWindowsMajorVersion() = 3) AND (GetWindowsMinorVersion() = 0) THEN
  788.              i% = DoMsgBox(GetString(ERROR_INUSE), GetString(STANDARD_CAPTION), MB_OK+MB_ICONHAND)
  789.          ELSE
  790. RESTART:
  791.              i% = DoMsgBox(GetString(ERROR_RESTART), GetString(STANDARD_CAPTION), MB_YESNO+MB_ICONHAND)
  792.              IF i% = IDYES THEN
  793.                  i% = ExitExecRestart()    
  794.                     ' If the installer is still running, there's a problem.  Windows may have already told them.
  795.                     GOTO RESTART
  796.               END IF
  797.          END IF
  798.      END IF
  799.                           
  800. QUIT:
  801.     ON ERROR GOTO ERRQUIT
  802.  
  803.     IF ERR = 0 THEN
  804.        IF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  805.            dlg% = EXITNETWORKSUCCESS
  806.         ELSE 
  807.            dlg% = EXITSUCCESS
  808.         ENDIF
  809.     ELSEIF ERR = STFQUIT THEN
  810.         dlg% = EXITQUIT
  811.     ELSE
  812.         dlg% = EXITFAILURE
  813.     END IF
  814. QUITL1:
  815.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo1DlgProc", 0, "")
  816.     IF sz$ = "REACTIVATE" THEN
  817.         GOTO QUITL1
  818.     END IF
  819.     UIPop 1
  820.     END
  821.  
  822. ERRQUIT:
  823.     i% = DoMsgBox(GetString(ERROR_GENERAL), GetString(STANDARD_CAPTION), MB_OK+MB_TASKMODAL+MB_ICONHAND)
  824.     END
  825.  
  826.  
  827. OPTFILES2:
  828.      newopt$ = "CheckItemsOut"
  829.     sz$ = UIStartDlg(CUIDLL$, TEMPLATEOPTS, "FTemplateOptionsDlgProc", APPTEMPLATEHELP, HELPPROC$)
  830.  
  831.     IF sz$ = "CONTINUE" THEN
  832.         UIPop 1
  833.         IF CompareLists(newopt$, OPT2OPT$) <> 0 THEN
  834.                 CopyList OPT2OPT$, newopt$
  835.                 IF (GetListItem(OPT2OPT$, TEMPLATEREADME) = "OFF") AND (GetListItem(OPT2OPT$, SMALLBIZ) = "OFF") AND (GetListItem(OPT2OPT$, LARGEBIZ) = "OFF") THEN
  836.                     RemoveSymbol "IsMixed" + STR$(OPTFILES2)
  837.                     ReplaceListItem CHECKSTATES$, OPTFILES2, "OFF"
  838.                 ELSEIF (GetListItem(OPT2OPT$, TEMPLATEREADME) = "ON") AND (GetListItem(OPT2OPT$, SMALLBIZ) = "ON") AND (GetListItem(OPT2OPT$, LARGEBIZ) = "ON") THEN
  839.                     RemoveSymbol "IsMixed" + STR$(OPTFILES2)
  840.                     ReplaceListItem CHECKSTATES$, OPTFILES2, "ON"
  841.                 ELSE
  842.                     SetSymbolValue "IsMixed" + STR$(OPTFILES2), "MIXED"
  843.                     ReplaceListItem CHECKSTATES$, OPTFILES2, "MIXED"
  844.                 END IF
  845.             RecalcOptFiles OPTFILES2
  846.             SetDriveStatus
  847.         END IF
  848.         GOTO CUSTINST
  849.     ELSEIF sz$ = "REACTIVATE" THEN
  850.         RecalcPath
  851.         SetDriveStatus
  852.         GOTO OPTFILES2
  853.     ELSEIF sz$ = "BUTTON" THEN
  854.         IF CompareLists(newopt$, OPT2OPT$) <> 0 THEN
  855.                 CopyList OPT2OPT$, newopt$
  856.                 IF (GetListItem(OPT2OPT$, TEMPLATEREADME) = "OFF") AND (GetListItem(OPT2OPT$, SMALLBIZ) = "OFF") AND (GetListItem(OPT2OPT$, LARGEBIZ) = "OFF") THEN
  857.                     RemoveSymbol "IsMixed" + STR$(OPTFILES2)
  858.                     ReplaceListItem CHECKSTATES$, OPTFILES2, "OFF"
  859.                 ELSEIF (GetListItem(OPT2OPT$, TEMPLATEREADME) = "ON") AND (GetListItem(OPT2OPT$, SMALLBIZ) = "ON") AND (GetListItem(OPT2OPT$, LARGEBIZ) = "ON") THEN
  860.                     RemoveSymbol "IsMixed" + STR$(OPTFILES2)
  861.                     ReplaceListItem CHECKSTATES$, OPTFILES2, "ON"
  862.                 ELSE
  863.                     SetSymbolValue "IsMixed" + STR$(OPTFILES2), "MIXED"
  864.                     ReplaceListItem CHECKSTATES$, OPTFILES2, "MIXED"
  865.                 END IF
  866.             RecalcOptFiles OPTFILES2
  867.             SetDriveStatus
  868.         END IF
  869.         GOTO OPTFILES2
  870.     ELSEIF sz$ = "EXIT" THEN
  871.         DoAskQuitDlg
  872.         GOTO OPTFILES2
  873.     ELSE
  874.         UIPop 1
  875.         GOTO CUSTINST_LOOP
  876.     END IF
  877.  
  878.  
  879. TOOBIGCUST:
  880.     sz$ = UIStartDlg(CUIDLL$, TOOBIGCUST, "FInfo1DlgProc", 0, "")
  881.     IF sz$ = "REACTIVATE" THEN
  882.         RecalcPath
  883.         SetDriveStatus
  884.         GOTO TOOBIGCUST
  885.     END IF
  886.     UIPop 1
  887.     RETURN
  888.  
  889. TOOBIGFULL:
  890.     sz$ = UIStartDlg(CUIDLL$, TOOBIGFULL, "FInfo1DlgProc", 0, "")
  891.     IF sz$ = "REACTIVATE" THEN
  892.         RecalcPath
  893.         SetDriveStatus
  894.         GOTO TOOBIGFULL
  895.     END IF
  896.     UIPop 1
  897.     RETURN
  898.  
  899.  
  900. TOOBIGMIN:
  901.     sz$ = UIStartDlg(CUIDLL$, TOOBIGMIN, "FInfo1DlgProc", 0, "")
  902.     IF sz$ = "REACTIVATE" THEN
  903.         RecalcPath
  904.         SetDriveStatus
  905.         GOTO TOOBIGMIN
  906.     END IF
  907.     UIPop 1
  908.     RETURN
  909.  
  910. SUB CreateOptDir (ftype%, DEST$) STATIC
  911.     IF (GetListItem(CHECKSTATES$, ftype%) <> "OFF") AND (GetListItem(CHECKSTATES$, ftype%) <> "DISABLED") THEN
  912.         SrcDir$ = GetSymbolValue("STF_SRCDIR")
  913.          CreateDir DEST$, cmoNone
  914.         IF (ftype% = APPFILES) THEN
  915. '            IF (GetSymbolValue("STF_MODE") <> "NODE") THEN
  916. '               CreateDir LOTUSAPPDIR$, cmoNone
  917. '            ENDIF
  918.             IF (GetSymbolValue("STF_MODE") = "NETWORK") THEN
  919.                IF (FValidFATDir(LICENSEDEST$+"\APPROACH.V21") = 0) THEN
  920.                   CreateDir LICENSEDEST$+"APPROACH.V21", cmoNone
  921.                ELSE
  922.                   CreateDir LICENSEDEST$+"\APPROACH.V21", cmoNone
  923.                ENDIF
  924.                CreateDir LICENSEUTIL$, cmoNone
  925.             ENDIF
  926.         ELSEIF ftype% = OPTFILES1 THEN
  927.                 CreateDir DEST$+"\"+GetString(EXAMPLES_DIR), cmoNone
  928.         ELSEIF ftype% = OPTFILES2 THEN
  929.               IF (GetListItem(OPT2OPT$, TEMPLATEREADME) = "ON") OR (GetListItem(OPT2OPT$, SMALLBIZ) = "ON") OR (GetListItem(OPT2OPT$, LARGEBIZ) = "ON") THEN
  930.                      CreateDir DEST$+"\"+GetString(TEMPLATES_DIR), cmoNone
  931.                  ENDIF
  932.                 IF (GetListItem(OPT2OPT$, SMALLBIZ) = "ON") THEN
  933.                      CreateDir DEST$+"\"+GetString(TEMPLATES_DIR)+"\"+GetString(SMALLBIZ_DIR), cmoNone
  934.                 ENDIF
  935.                 IF (GetListItem(OPT2OPT$, LARGEBIZ) = "ON") THEN
  936.                     CreateDir DEST$+"\"+GetString(TEMPLATES_DIR)+"\"+GetString(LARGEBIZ_DIR), cmoNone
  937.                 ENDIF
  938.         END IF
  939.         SrcDir$ = ""
  940.     END IF
  941. END SUB
  942.  
  943.  
  944. '**
  945. '** Purpose:
  946. '**     Adds the specified option files to the copy list.
  947. '** Arguments:
  948. '**     ftype%  - type of files to add, one of the following:
  949. '**             APPFILES, OPTFILES1, OPTFILES2
  950. '** Returns:
  951. '**     none.
  952. '*************************************************************************
  953. SUB AddOptFilesToCopyList (ftype%) STATIC
  954.  
  955.     IF (GetListItem(CHECKSTATES$, ftype%) <> "OFF") AND (GetListItem(CHECKSTATES$, ftype%) <> "DISABLED") THEN
  956.         SrcDir$ = GetSymbolValue("STF_SRCDIR")           
  957.         IF ftype% = APPFILES THEN
  958.  
  959. ' HACK ALERT!  We need to copy shell.dll and ver.dll FIRST, so that we can be 
  960. ' sure they they've actually been copied.  We will then use them during the 
  961. ' following lines.
  962.             IF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  963.                    AddSectionFilesToCopyList "Ver/Shell", SrcDir$, DEST$
  964.             ELSE
  965.                    IF IsWindowsShared() = 0 THEN
  966.                        AddSectionFilesToCopyList "Ver/Shell", SrcDir$, GetWindowsSysDir()
  967.                    ELSE
  968.                        AddSectionFilesToCopyList "Ver/Shell", SrcDir$, GetWindowsDir()
  969.                    ENDIF
  970.             ENDIF
  971.  
  972.             AddSectionFilesToCopyList "Approach Files", SrcDir$, DEST$
  973.             IF GetSymbolValue("STF_MODE") = "NODE" THEN
  974.                AddSectionFilesToCopyList "Design Iconbars", SrcDir$+"ICONS\DESGNICO\", DEST$+"\ICONS\DESGNICO"
  975.                AddSectionFilesToCopyList "Browse Iconbars", SrcDir$+"ICONS\BROWSICO\", DEST$+"\ICONS\BROWSICO"
  976.                AddSectionFilesToCopyList "Find Iconbars", SrcDir$+"ICONS\FINDICO\", DEST$+"\ICONS\FINDICO"
  977.                AddSectionFilesToCopyList "Preview Iconbars", SrcDir$+"ICONS\PREVICO\", DEST$+"\ICONS\PREVICO"
  978.             ELSE
  979.                AddSectionFilesToCopyList "Lotus Icon Bar Files", SrcDir$, DEST$
  980.                AddSectionFilesToCopyList "Lotus Status Bar Files", SrcDir$, DEST$
  981.                AddSectionFilesToCopyList "Design Iconbars", SrcDir, DEST$+"\ICONS\DESGNICO"
  982.                AddSectionFilesToCopyList "Browse Iconbars", SrcDir, DEST$+"\ICONS\BROWSICO"
  983.                AddSectionFilesToCopyList "Find Iconbars", SrcDir, DEST$+"\ICONS\FINDICO"
  984.                AddSectionFilesToCopyList "Preview Iconbars", SrcDir, DEST$+"\ICONS\PREVICO"
  985.             ENDIF
  986.  
  987. '            IF (GetSymbolValue("STF_MODE") <> "NODE") OR (ICONBARDEST$ <> LOTUSAPPDIR$)
  988. '               AddSectionFilesToCopyList "Lotus Icon Bar Files", SrcDir$, ICONBARDEST$
  989. '            ENDIF
  990.  
  991. '            IF (GetSymbolValue("STF_MODE") <> "NODE") OR (STATUSBARDEST$ <> LOTUSAPPDIR$)
  992. '               AddSectionFilesToCopyList "Lotus Status Bar Files", SrcDir$, STATUSBARDEST$
  993. '            ENDIF
  994.                
  995.             IF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  996.                    AddSectionFilesToCopyList "Approach Initialization", SrcDir$, DEST$
  997.                    AddSectionFilesToCopyList "Windows Help", SrcDir$, DEST$
  998.                    AddSectionFilesToCopyList "Windows", SrcDir$, DEST$
  999.                AddSectionFilesToCopyList "Installation", SrcDir$, DEST$
  1000.                AddSectionFilesToCopyList "Lotus Licenser Files", SrcDir$, LICENSEUTIL$
  1001.             ELSE
  1002.                    AddSectionFilesToCopyList "Approach Initialization", SrcDir$, GetWindowsDir()
  1003.                AddSectionFilesToCopyList "Windows Help", SrcDir$, GetWindowsDir()
  1004.                    IF IsWindowsShared() = 0 THEN
  1005.                        AddSectionFilesToCopyList "Windows", SrcDir$, GetWindowsSysDir()
  1006.                    ELSE
  1007.                        AddSectionFilesToCopyList "Windows", SrcDir$, GetWindowsDir()
  1008.                    ENDIF
  1009.             ENDIF
  1010.  
  1011.             IF GetSymbolValue("STF_MODE") = "NORMAL" THEN
  1012.                AddSectionFilesToCopyList "Workstation File", SrcDir$, DEST$
  1013.             ENDIF
  1014.         ELSEIF ftype% = OPTFILES1 THEN
  1015.             IF GetSymbolValue("STF_MODE") = "NODE" THEN
  1016.                AddSectionFilesToCopyList "Tutorial", SrcDir$+GetString(EXAMPLES_DIR), DEST$+"\"+GetString(EXAMPLES_DIR)
  1017.             ELSE
  1018.                AddSectionFilesToCopyList "Tutorial", SrcDir$, DEST$+"\"+GetString(EXAMPLES_DIR)
  1019.             END IF
  1020.                MakeListFromSectionKeys "Dummy", "Tutorial"
  1021.                 IF GetListLength("Dummy") = 0 THEN
  1022.                     ReplaceListItem CHECKSTATES$, ftype%, "DISABLED"
  1023.                 ENDIF
  1024.         ELSEIF ftype% = OPTFILES2 THEN
  1025.               IF (GetListItem(CHECKSTATES$, ftype%) = "ON") OR (GetListItem(OPT2OPT$, TEMPLATEREADME) = "ON") THEN
  1026.                 IF GetSymbolValue("STF_MODE") = "NODE" THEN
  1027.                        AddSectionFilesToCopyList "Template Readme", SrcDir$+GetString(TEMPLATES_DIR), DEST$+"\"+GetString(TEMPLATES_DIR)
  1028.                 ELSE
  1029.                        AddSectionFilesToCopyList "Template Readme", SrcDir$, DEST$+"\"+GetString(TEMPLATES_DIR)
  1030.                 ENDIF
  1031.                      MakeListFromSectionKeys "Dummy", "Template Readme"
  1032.                      IF GetListLength("Dummy") = 0 THEN
  1033.                          ReplaceListItem OPT2OPT$, TEMPLATEREADME, "DISABLED"
  1034.                      ENDIF
  1035.                 ENDIF
  1036.                 IF (GetListItem(CHECKSTATES$, ftype%) = "ON") OR (GetListItem(OPT2OPT$, SMALLBIZ) = "ON") THEN
  1037.                 IF GetSymbolValue("STF_MODE") = "NODE" THEN
  1038.                    AddSectionFilesToCopyList "Smallbiz Templates", SrcDir$+GetString(TEMPLATES_DIR)+"\"+GetString(SMALLBIZ_DIR), DEST$+"\"+GetString(TEMPLATES_DIR)+"\"+GetString(SMALLBIZ_DIR)
  1039.                 ELSE
  1040.                    AddSectionFilesToCopyList "Smallbiz Templates", SrcDir$, DEST$+"\"+GetString(TEMPLATES_DIR)+"\"+GetString(SMALLBIZ_DIR)
  1041.                 ENDIF
  1042.                      MakeListFromSectionKeys "Dummy", "Smallbiz Templates"
  1043.                      IF GetListLength("Dummy") = 0 THEN
  1044.                          ReplaceListItem OPT2OPT$, SMALLBIZ, "DISABLED"
  1045.                      ENDIF
  1046.                 ENDIF
  1047.                 IF (GetListItem(CHECKSTATES$, ftype%) = "ON") OR (GetListItem(OPT2OPT$, LARGEBIZ) = "ON") THEN
  1048.                 IF GetSymbolValue("STF_MODE") = "NODE" THEN
  1049.                    AddSectionFilesToCopyList "Largebiz Templates", SrcDir$+GetString(TEMPLATES_DIR)+"\"+GetString(LARGEBIZ_DIR), DEST$+"\"+GetString(TEMPLATES_DIR)+"\"+GetString(LARGEBIZ_DIR)
  1050.                 ELSE
  1051.                    AddSectionFilesToCopyList "Largebiz Templates", SrcDir$, DEST$+"\"+GetString(TEMPLATES_DIR)+"\"+GetString(LARGEBIZ_DIR)
  1052.                  ENDIF
  1053.                      MakeListFromSectionKeys "Dummy", "Largebiz Templates"
  1054.                      IF GetListLength("Dummy") = 0 THEN
  1055.                          ReplaceListItem OPT2OPT$, LARGEBIZ, "DISABLED"
  1056.                      ENDIF
  1057.                 ENDIF
  1058.                 IF (GetListItem(OPT2OPT$, TEMPLATEREADME) = "DISABLED") AND (GetListItem(OPT2OPT$, SMALLBIZ) = "DISABLED") AND (GetListItem(OPT2OPT$, LARGEBIZ) = "DISABLED") THEN
  1059.                      ReplaceListItem CHECKSTATES$, ftype%, "DISABLED"
  1060.                 ENDIF
  1061.         ELSEIF ftype% = OPTFILES3 THEN
  1062.             AddSectionFilesToCopyList "Paradox", SrcDir$, DEST$
  1063.                MakeListFromSectionKeys "Dummy", "Paradox"
  1064.                 IF GetListLength("Dummy") = 0 THEN
  1065.                     ReplaceListItem CHECKSTATES$, ftype%, "DISABLED"
  1066.                 ENDIF
  1067.         ELSEIF ftype% = OPTFILES4 THEN
  1068.             AddSectionFilesToCopyList "Oracle", SrcDir$, DEST$
  1069.                MakeListFromSectionKeys "Dummy", "Oracle"
  1070.                 IF GetListLength("Dummy") = 0 THEN
  1071.                     ReplaceListItem CHECKSTATES$, ftype%, "DISABLED"
  1072.                 ENDIF
  1073.         ELSEIF ftype% = OPTFILES5 THEN
  1074.             AddSectionFilesToCopyList "SQL Server", SrcDir$, DEST$
  1075.                MakeListFromSectionKeys "Dummy", "SQL Server"
  1076.                 IF GetListLength("Dummy") = 0 THEN
  1077.                     ReplaceListItem CHECKSTATES$, ftype%, "DISABLED"
  1078.                 ENDIF
  1079.         ELSEIF ftype% = OPTFILES6 THEN
  1080.             AddSectionFilesToCopyList "ODBC", SrcDir$, DEST$
  1081.                MakeListFromSectionKeys "Dummy", "ODBC"
  1082.                 IF GetListLength("Dummy") = 0 THEN
  1083.                     ReplaceListItem CHECKSTATES$, ftype%, "DISABLED"
  1084.                 ENDIF
  1085.         END IF
  1086.         SrcDir$ = ""
  1087.     END IF
  1088. END SUB
  1089.  
  1090.  
  1091. '**
  1092. '** Purpose:
  1093. '**     Recalculates disk space for the given option files and sets
  1094. '**      the status info symbol "StatusItemsText".
  1095. '** Arguments:
  1096. '**     ftype% - type of files to add, one of the following:
  1097. '**             APPFILES, OPTFILES1, OPTFILES2, OPTFILES3, OPTFILES4
  1098. '** Returns:
  1099. '**     none.
  1100. '*************************************************************************
  1101. SUB RecalcOptFiles (ftype%) STATIC
  1102.     CursorSave% = ShowWaitCursor()
  1103.     ClearCopyList
  1104.     AddOptFilesToCopyList ftype%
  1105.  
  1106.     fExtra% = 0
  1107.     IF ftype% = APPFILES THEN
  1108.         ListSym$ = APPNEEDS$
  1109.         IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
  1110.             ''Add extra cost to Windows drive for ini/progman, etc.
  1111.             ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  1112.             ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
  1113.             fExtra% = 1
  1114.         END IF
  1115.     ELSEIF ftype% = OPTFILES1 THEN
  1116.         ListSym$ = OPT1NEEDS$
  1117.     ELSEIF ftype% = OPTFILES2 THEN
  1118.         ListSym$ = OPT2NEEDS$
  1119.     ELSEIF ftype% = OPTFILES3 THEN
  1120.         ListSym$ = OPT3NEEDS$
  1121.     ELSEIF ftype% = OPTFILES4 THEN
  1122.         ListSym$ = OPT4NEEDS$
  1123.     ELSEIF ftype% = OPTFILES5 THEN
  1124.         ListSym$ = OPT5NEEDS$
  1125.     ELSEIF ftype% = OPTFILES6 THEN
  1126.         ListSym$ = OPT6NEEDS$
  1127.     END IF
  1128.  
  1129.     StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "")
  1130.  
  1131.     cost& = 0
  1132.     FOR u% = 1 TO 26 STEP 1
  1133.         cost&  = cost& + VAL(GetListItem(ListSym$, u%))
  1134.     NEXT u%
  1135.     ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + GetString(KB_STRING)
  1136.  
  1137.     IF StillNeed& > 0 THEN
  1138.         ReplaceListItem BIGLIST$, ftype%, "YES"
  1139.     ELSE
  1140.         ReplaceListItem BIGLIST$, ftype%, ""
  1141.     END IF
  1142.  
  1143.     IF fExtra% THEN
  1144.         ReplaceListItem EXTRACOSTS$, ndrive%, "0"
  1145.     END IF
  1146.     RestoreCursor CursorSave%
  1147.     ListSym$ = ""
  1148. END SUB
  1149.  
  1150.  
  1151. '**
  1152. '** Purpose:
  1153. '**     Recalculates disk space and sets option status info according
  1154. '**     to the current destination path.
  1155. '** Arguments:
  1156. '**     none.
  1157. '** Returns:
  1158. '**     none.
  1159. '*************************************************************************
  1160. SUB RecalcPath STATIC
  1161.  
  1162.     CursorSave% = ShowWaitCursor()
  1163.  
  1164.      FOR v% = APPFILES TO NUMFILETYPES STEP 1
  1165.         RecalcOptFiles v%
  1166.      NEXT v%
  1167.     RestoreCursor CursorSave%
  1168. END SUB
  1169.  
  1170.  
  1171. '**
  1172. '** Purpose:
  1173. '**     Sets drive status info according to latest disk space calcs.
  1174. '** Arguments:
  1175. '**     none.
  1176. '** Returns:
  1177. '**     none.
  1178. '*************************************************************************
  1179. SUB SetDriveStatus STATIC
  1180.  
  1181.      k$ = GetString(KB_STRING)
  1182.     drive$ = MID$(DEST$, 1, 1)
  1183.     ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1
  1184.     cost& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(OPT1NEEDS$, ndrive%)) + VAL(GetListItem(OPT2NEEDS$, ndrive%)) + VAL(GetListItem(OPT3NEEDS$, ndrive%)) + VAL(GetListItem(OPT4NEEDS$, ndrive%)) + VAL(GetListItem(OPT5NEEDS$, ndrive%)) 
  1185.     cost& = cost& + VAL(GetListItem(OPT6NEEDS$, ndrive%))
  1186.     free& = GetFreeSpaceForDrive(drive$)
  1187.      IF cost& > free& THEN
  1188.          instDiskFull% = 1
  1189.      ELSE
  1190.          instDiskFull% = 0
  1191.      ENDIF
  1192.     ReplaceListItem DRIVETEXT$, 1, drive$ + ":"
  1193.     ReplaceListItem DRIVETEXT$, 2, STR$(cost& / 1024) + k$
  1194.     ReplaceListItem DRIVETEXT$, 3, STR$(free& / 1024) + k$
  1195.  
  1196.     IF drive$ = WINDRIVE$ THEN
  1197.         ReplaceListItem DRIVETEXT$, 4, ""
  1198.         ReplaceListItem DRIVETEXT$, 5, ""
  1199.         ReplaceListItem DRIVETEXT$, 6, ""
  1200.     ELSE
  1201.         ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  1202.         cost& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(OPT1NEEDS$, ndrive%)) + VAL(GetListItem(OPT2NEEDS$, ndrive%)) + VAL(GetListItem(OPT3NEEDS$, ndrive%)) + VAL(GetListItem(OPT4NEEDS$, ndrive%)) + VAL(GetListItem(OPT5NEEDS$, ndrive%))
  1203.         cost& = cost& + VAL(GetListItem(OPT6NEEDS$, ndrive%))
  1204.         IF cost& = 0 THEN
  1205.                 winDiskFull% = 0        
  1206.             ReplaceListItem DRIVETEXT$, 4, ""
  1207.             ReplaceListItem DRIVETEXT$, 5, ""
  1208.             ReplaceListItem DRIVETEXT$, 6, ""
  1209.         ELSE
  1210.             free& = GetFreeSpaceForDrive(WINDRIVE$)
  1211.             ReplaceListItem DRIVETEXT$, 4, WINDRIVE$ + ":"
  1212.             ReplaceListItem DRIVETEXT$, 5, STR$(cost& / 1024) + k$
  1213.             ReplaceListItem DRIVETEXT$, 6, STR$(free& / 1024) + k$
  1214.                 IF cost& > free& THEN
  1215.                     winDiskFull% = 1       
  1216.                  ELSE
  1217.                     winDiskFull% = 0
  1218.                 ENDIF
  1219.         END IF
  1220.     END IF
  1221. END SUB
  1222.  
  1223.  
  1224. '**
  1225. '** Purpose:
  1226. '**     Appends a file name to the end of a directory path,
  1227. '**     inserting a backslash character as needed.
  1228. '** Arguments:
  1229. '**     szDir$  - full directory path (with optional ending "\")
  1230. '**     szFile$ - filename to append to directory
  1231. '** Returns:
  1232. '**     Resulting fully qualified path name.
  1233. '*************************************************************************
  1234. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  1235.     IF szDir$ = "" THEN
  1236.         MakePath = szFile$
  1237.     ELSEIF szFile$ = "" THEN
  1238.         MakePath = szDir$
  1239.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  1240.         MakePath = szDir$ + szFile$
  1241.     ELSE
  1242.         MakePath = szDir$ + "\" + szFile$
  1243.     END IF
  1244. END FUNCTION
  1245.  
  1246. '**
  1247. '** Purpose:
  1248. '**     Compares two lists.
  1249. '** Arguments:
  1250. '**     szList1$, szList2$ - List names
  1251. '** Returns:
  1252. '**     The index where the lists differ, or 0 if they are the same. 
  1253. '*************************************************************************
  1254. FUNCTION CompareLists(szList1$, szList2$) STATIC AS INTEGER
  1255.     list1Len% = GetListLength(szList1)
  1256.      list2Len% = GetListLength(szList2)
  1257.      IF (list1Len% < list2Len%) THEN
  1258.          CompareLists = list1Len% + 1
  1259.      ELSEIF (list1Len% > list2Len%) THEN
  1260.          CompareLists = list2Len% + 1
  1261.      ELSE
  1262.          i% = list1Len
  1263.           WHILE GetListItem(szList1$, i%) = GetListItem(szList2$, i%)
  1264.             i% = i% - 1
  1265.                 IF i% = 0 THEN
  1266.                 EXIT WHILE
  1267.                 END IF
  1268.           WEND
  1269.           CompareLists = i%
  1270.      END IF
  1271. END FUNCTION
  1272.  
  1273.  
  1274. '**
  1275. '** Purpose:
  1276. '**     Copies szList2 into szList1.
  1277. '** Arguments:
  1278. '**     szList1$, szList2$ - List names
  1279. '*************************************************************************
  1280. SUB CopyList(szList1$, szList2$) STATIC
  1281.     RemoveSymbol(szList1)
  1282.      FOR w% = 1 TO GetListLength(szList2) STEP 1
  1283.          AddListItem szList1$, GetListItem(szList2$, w%) 
  1284.     NEXT w%
  1285. END SUB
  1286.  
  1287.  
  1288. SUB DoBadPathDlg STATIC
  1289. BADPATH_LOOP:
  1290.        sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo1DlgProc", 0, "") 
  1291.     IF sz$ = "CONTINUE" THEN
  1292.        UIPop 1
  1293.     ELSE
  1294.        GOTO BADPATH_LOOP
  1295.     ENDIF
  1296. END SUB
  1297.  
  1298.  
  1299. SUB DoAskQuitDlg STATIC
  1300.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  1301.      WHILE sz$ = "REACTIVATE"
  1302.         sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  1303.      WEND
  1304.  
  1305.     IF sz$ = "EXIT" THEN
  1306.         UIPopAll
  1307.         ERROR STFQUIT
  1308.     ELSE
  1309.         UIPop 1
  1310.     END IF
  1311. END SUB
  1312.  
  1313.  
  1314. SUB DoWelcomeDlg(szUserName$, szCompanyName$) STATIC
  1315. WELCOME_LOOP:
  1316.     SetSymbolValue "WelcomeUserName", szUserName$
  1317.     SetSymbolValue "WelcomeCompanyName", szCompanyName$
  1318.  
  1319.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELPNOBACK, HELPPROC$)
  1320.  
  1321.     IF sz$ = "CONTINUE" THEN
  1322. ' Make sure they entered a user name
  1323.         IF LEN(RTRIM$(LTRIM$(GetSymbolValue("WelcomeUserName")))) = 0 THEN
  1324. CDBADNAME_LOOP:
  1325.            sz2$ = UIStartDlg(CUIDLL$, CDBADNAME, "FInfo1DlgProc", 0, "")
  1326.            IF sz2$ = "REACTIVATE" THEN
  1327.               GOTO CDBADNAME_LOOP
  1328.            END IF
  1329.            UIPop 1
  1330.            GOTO WELCOME_LOOP
  1331.         ELSE
  1332. VERIFY_NAMES:
  1333.            sz2$ = UIStartDlg(CUIDLL$, CDCONFIRMINFO, "FInfo0DlgProc", APPHELPYESNO, HELPPROC$)
  1334.            IF sz2$ = "CONTINUE" THEN
  1335.               szUserName$ = RTRIM$(LTRIM$(GetSymbolValue("WelcomeUserName")))
  1336.               szCompanyName$ = RTRIM$(LTRIM$(GetSymbolValue("WelcomeCompanyName")))
  1337.               UIPop 2
  1338.            ELSEIF sz2$ = "BACK" THEN
  1339.               UIPop 1
  1340.               GOTO WELCOME_LOOP
  1341.            ELSE
  1342.               GOTO VERIFY_NAMES
  1343.            END IF 
  1344.         END IF
  1345.     ELSEIF sz$ = "EXIT" THEN
  1346.         DoAskQuitDlg
  1347.         GOTO WELCOME_LOOP 
  1348.     ELSE 
  1349.        GOTO WELCOME_LOOP
  1350.     END IF
  1351. END SUB
  1352.  
  1353. FUNCTION ValidateNewPath(oldPath$, newPath$) STATIC AS INTEGER
  1354.    ''Validate new path.
  1355.    IF (FValidFATDir(newPath$) = 0) OR (OurIsDirWritable(newPath$) = 0) THEN
  1356.      DoBadPathDlg
  1357.      ValidateNewPath% = -1 
  1358.    ELSE   
  1359.       IF (oldPath$ <> newPath$) AND (oldPath$ <> newPath$+"\") AND (oldPath$+"\" <> newPath$) THEN
  1360.          ValidateNewPath% = 1
  1361.       ELSE
  1362.          ValidateNewPath% = 0
  1363.       END IF
  1364.    END IF
  1365. END FUNCTION
  1366.  
  1367. SUB ChangePathText(newPath$) STATIC
  1368.    DEST$ = newPath$
  1369. ''Truncate display if too long.
  1370.    IF LEN(newPath$) > 23 THEN
  1371.       ReplaceListItem DRIVETEXT$, 7, MID$(DEST$, 1, 23)+"..."
  1372.    ELSE
  1373.       ReplaceListItem DRIVETEXT$, 7, DEST$
  1374.    END IF
  1375. END SUB
  1376.     
  1377. FUNCTION OurIsDirWritable(newPath$) STATIC AS INTEGER
  1378.    SPLITPATH newPath$, drive$, dir$, filename$, ext$
  1379.  
  1380. ' Order very important here
  1381.    IF IsDirWritable(newPath$) <> 0 THEN
  1382.       OurIsDirWritable% = 1
  1383. '         For some reason, the FValidDrive must not be in the same OR clause as IsDriveValid below
  1384.    ELSEIF FValidDrive(drive$) = 0 THEN    
  1385.       OurIsDirWritable% = 0
  1386.    ELSEIF (DoesDirExist(newPath$) <> 0) OR (DoesFileExist(newPath$, femExists) <> 0) OR (IsDriveValid(drive$) = 0) THEN 
  1387.       OurIsDirWritable% = 0
  1388.    ELSE
  1389. WRITE_LOOP:
  1390.       oldDir$ = dir$   
  1391.       IF (IsDirWritable(drive$ + dir$) <> 0) THEN
  1392.          OurIsDirWritable% = 1
  1393.       ELSE 
  1394.          dir$ = MID$(dir$, 1, LEN(dir$)-1)
  1395.          IF dir$ <> oldDir$ THEN
  1396.             GOTO WRITE_LOOP
  1397.          ELSE
  1398.             OurIsDirWritable% = 0
  1399.          ENDIF
  1400.       ENDIF         
  1401.    ENDIF
  1402. END FUNCTION
  1403.  
  1404.