home *** CD-ROM | disk | FTP | other *** search
- '**************************************************************************
- '* MSSetup Toolkit Sample 1
- '**************************************************************************
-
- '$DEFINE DEBUG ''Define for script development/debugging
-
- '$INCLUDE 'setupapi.inc'
- '$INCLUDE 'msdetect.inc'
-
- ''Dialog ID's
- CONST WELCOME = 100
- CONST ASKQUIT = 200
- CONST DESTPATH = 300
- CONST EXITFAILURE = 400
- CONST EXITQUIT = 600
- CONST EXITSUCCESS = 700
- CONST OPTIONS = 800
- CONST APPHELP = 900
- CONST FILESEXIST = 1100
- CONST BADPATH = 6400
-
- ''Bitmap ID
- CONST LOGO = 1
- CONST DISKDAY = 6
- CONST DISKMONTH = 1
-
- GLOBAL DEST$ ''Default destination directory.
- GLOBAL OPTCUR$ ''Option selection from option dialog.
-
- DECLARE SUB Install
- DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
- DECLARE FUNCTION CheckFile (szFile$) AS INTEGER
-
-
- INIT:
- CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
- HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
-
- '' SetBitmap CUIDLL$, LOGO
- SetTitle "CPS Anti-Virus for NetWare Demo Setup"
-
- szInf$ = GetSymbolValue("STF_SRCINFPATH")
- IF szInf$ = "" THEN
- szInf$ = GetSymbolValue("STF_CWDDIR") + "CPAVDEMO.INF"
- END IF
- ReadInfFile szInf$
-
- OPTCUR$ = "1"
- DEST$ = "C:\CPAVDEMO"
-
- '$IFDEF DEBUG
- i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
- WinDrive$ = MID$(GetWindowsDir, 1, 1)
- IF IsDriveValid(WinDrive$) = 0 THEN
- i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
- GOTO QUIT
- END IF
- '$ENDIF ''DEBUG
-
-
- WELCOME:
- sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
- IF sz$ = "CONTINUE" THEN
- UIPop 1
- ELSE
- GOSUB ASKQUIT
- GOTO WELCOME
- END IF
-
-
- OPTION:
- SetSymbolValue "RadioDefault", OPTCUR$
- OPTL1:
- sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
- OPTCUR$ = GetSymbolValue("ButtonChecked")
-
- IF sz$ = "CONTINUE" THEN
- UIPop(1)
- ELSEIF sz$ = "REACTIVATE" THEN
- GOTO OPTL1
- ELSE
- GOSUB ASKQUIT
- GOTO OPTION
- END IF
-
-
- GETPATH:
- SetSymbolValue "EditTextIn", DEST$
- SetSymbolValue "EditFocus", "END"
- GETPATHL1:
- sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
- DEST$ = GetSymbolValue("EditTextOut")
-
- IF sz$ = "CONTINUE" THEN
- IF IsDirWritable(DEST$) = 0 THEN
- GOSUB BADPATH
- GOTO GETPATHL1
- END IF
- UIPop 1
- ELSEIF sz$ = "REACTIVATE" THEN
- GOTO GETPATHL1
- ELSEIF sz$ = "BACK" THEN
- UIPop 1
- GOTO OPTION
- ELSE
- GOSUB ASKQUIT
- GOTO GETPATH
- END IF
-
-
- '' Check for some files first
-
-
-
- ' FILENAME$ = MakePath(DEST$, "WNCPAVNT.EXE")
- ' IF CheckFile(FILENAME$) = 1 THEN
- ' GOSUB FILESEXIST
- ' GOTO GETPATH
- ' END IF
-
- ' FILENAME$ = MakePath(DEST$, "NWIPXSPX.DLL")
- ' IF CheckFile(FILENAME$) = 1 THEN
- ' GOSUB FILESEXIST
- ' GOTO GETPATH
- ' END IF
- ' FILENAME$ = MakePath(DEST$, "NWNETAPI.DLL")
- ' IF CheckFile(FILENAME$) = 1 THEN
- ' GOSUB FILESEXIST
- ' GOTO GETPATH
- ' END IF
-
- Install
-
-
- QUIT:
- ON ERROR GOTO ERRQUIT
-
- IF ERR = 0 THEN
- dlg% = EXITSUCCESS
- ELSEIF ERR = STFQUIT THEN
- dlg% = EXITQUIT
- ELSE
- dlg% = EXITFAILURE
- END IF
- QUITL1:
- sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
- IF sz$ = "REACTIVATE" THEN
- GOTO QUITL1
- END IF
- UIPop 1
-
- END
-
- ERRQUIT:
- i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
- END
-
-
-
- BADPATH:
- sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
- IF sz$ = "REACTIVATE" THEN
- GOTO BADPATH
- END IF
- UIPop 1
- RETURN
-
-
-
- ASKQUIT:
- sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
-
- IF sz$ = "EXIT" THEN
- UIPopAll
- ERROR STFQUIT
- ELSEIF sz$ = "REACTIVATE" THEN
- GOTO ASKQUIT
- ELSE
- UIPop 1
- END IF
- RETURN
-
- FILESEXIST:
- sz$ = UIStartDlg(CUIDLL$, FILESEXIST, "FInfo0DlgProc", 0, "")
- IF sz$ = "REACTIVATE" THEN
- GOTO FILESEXIST
- END IF
- UIPop 1
- RETURN
-
-
-
- '**
- '** Purpose:
- '** Builds the copy list and performs all installation operations.
- '** Arguments:
- '** none.
- '** Returns:
- '** none.
- '*************************************************************************
- SUB Install STATIC
-
- SrcDir$ = GetSymbolValue("STF_SRCDIR")
- CreateDir DEST$, cmoNone
-
- OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
- WriteToLogFile ""
- WriteToLogFile " User chose as destination directory: '" + DEST$ + "'"
- WriteToLogFile " User chose option: '" + OPTCUR$ + "'"
- WriteToLogFile ""
- WriteToLogFile "May have had to create the directory: " + DEST$
- WriteToLogFile ""
-
- CreateDir MakePath(DEST$, "US_MASTE"), cmoNone
- CreateDir MakePath(DEST$, "ENGINEER"), cmoNone
- CreateDir MakePath(DEST$, "FINANCE"), cmoNone
- CreateDir MakePath(DEST$, "UK_MASTE"), cmoNone
- CreateDir MakePath(DEST$, "SALES"), cmoNone
-
- 'COPY ALL FILES TO THE ROOT DIRECTORY
- AddSectionFilesToCopyList "program", SrcDir$, DEST$
- 'COPY ALL CFG, LOG, INI FILES TO EACH SERVER
- AddSectionFilesToCopyList "scanner", SrcDir$, MakePath(DEST$, "US_MASTE")
- AddSectionFilesToCopyList "scanner", SrcDir$, MakePath(DEST$, "ENGINEER")
- AddSectionFilesToCopyList "scanner", SrcDir$, MakePath(DEST$, "FINANCE")
- AddSectionFilesToCopyList "scanner", SrcDir$, MakePath(DEST$, "UK_MASTE")
- AddSectionFilesToCopyList "scanner", SrcDir$, MakePath(DEST$, "SALES")
- 'COPY MASTER FILES TO THE MASTER SERVERS
- AddSectionFilesToCopyList "master", SrcDir$, MakePath(DEST$, "US_MASTE")
- AddSectionFilesToCopyList "master", SrcDir$, MakePath(DEST$, "UK_MASTE")
- 'COPY DIFF. INI INFO TO DIFF DOMAINS
- AddSectionFilesToCopyList "server2", SrcDir$, MakePath(DEST$, "UK_MASTE")
- AddSectionFilesToCopyList "server2", SrcDir$, MakePath(DEST$, "ENGINEER")
- 'MAKE THE MASTER CONTAIN DIFF INFO
- AddSectionFilesToCopyList "master1", SrcDir$, MakePath(DEST$, "US_MASTE")
- 'GIVE THESE SERVER DIF CFG DATA
- AddSectionFilesToCopyList "UK_DCONFIG", SrcDir$, MakePath(DEST$, "ENGINEER")
- AddSectionFilesToCopyList "US_DCONFIG", SrcDir$, MakePath(DEST$, "SALES")
- CopyFilesInCopyList
-
- IF OPTCUR$ = "1" THEN
- CreateProgmanGroup "CPS AV for NetWare Demo", "", cmoNone
- ShowProgmanGroup "CPS AV for NetWare Demo", 1, cmoNone
- CreateProgmanItem "CPS AV for NetWare Demo", "CPAV for NetWare Demo", MakePath(DEST$,"WNCPAVNT.EXE"), ",,,,"+DEST$, cmoOverwrite
- CreateProgmanItem "CPS AV for NetWare Demo", "Demo Information", "WRITE.EXE "+MakePath(DEST$,"README.WRI"), "", cmoOverwrite
- CreateProgmanItem "CPS AV for NetWare Demo", "Central Alert Demo", MakePath(DEST$,"wCALERT.EXE"), ",,,,"+DEST$, cmoOverwrite
- END IF
-
- CreateIniKeyValue MakePath(DEST$,"wnuser.ini"), "cps", "BaseDir", DEST$, cmoOverwrite
- CreateIniKeyValue MakePath(DEST$,"wnuser.ini"), "cps", "DataDir", DEST$, cmoOverwrite
- CreateIniKeyValue MakePath(DEST$,"wnuser.ini"), "cps", "LanguageDir", DEST$, cmoOverwrite
- CreateIniKeyValue MakePath(DEST$,"wnuser.ini"), "cps", "SystemDir", DEST$, cmoOverwrite
-
-
- CloseLogFile
-
- END SUB
-
-
-
- '**
- '** Purpose:
- '** Appends a file name to the end of a directory path,
- '** inserting a backslash character as needed.
- '** Arguments:
- '** szDir$ - full directory path (with optional ending "\")
- '** szFile$ - filename to append to directory
- '** Returns:
- '** Resulting fully qualified path name.
- '*************************************************************************
- FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
- IF szDir$ = "" THEN
- MakePath = szFile$
- ELSEIF szFile$ = "" THEN
- MakePath = szDir$
- ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
- MakePath = szDir$ + szFile$
- ELSE
- MakePath = szDir$ + "\" + szFile$
- END IF
- END FUNCTION
-
- FUNCTION CheckFile (szFile$) STATIC AS INTEGER
- IF DoesFileExist(szFile$, femExists) = 1 THEN
- IF GetMonthFromDate(GetDateOfFile(szFile$)) <> DISKMONTH THEN
- CheckFile = 1
- ELSEIF GetDayFromDate(GetDateOfFile(szFile$)) <> DISKDAY THEN
- CheckFile = 1
- ELSE
- CheckFile = 0
- END IF
- ELSE
- CheckFile = 0
- END IF
- END FUNCTION