World of Ham Radio 1997/WOHR97_AmSoft_(1997-02-01).iso/windows/win_25/prog/packet.mst

Text File | 1997-02-01 | 6KB | 204 lines

'**************************************************************************
'*                       packet.mst
'**************************************************************************


'$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 BADPATH       = 6400

''Bitmap ID
CONST LOGO = 1

GLOBAL DEST$        ''Default destination directory.
GLOBAL DESTA$
GLOBAL DESTB$
GLOBAL DESTC$
GLOBAL DESTD$
GLOBAL DESTE$
GLOBAL DESTF$
GLOBAL OPTCUR$      ''Option selection from option dialog.

DECLARE SUB Install
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING


INIT:
    CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
    HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure

    SetBitmap CUIDLL$, LOGO
    SetTitle "Visual PacketPeT Lite"

    szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
        szInf$ = GetSymbolValue("STF_CWDDIR") + "PACKET.INF"
    END IF
    ReadInfFile szInf$

    OPTCUR$ = "1"
    DEST$ = "C:\PETLITE"
     DESTA$ = "\CONN"
     DESTB$ = "\LOG\CONNECTS"
     DESTC$ = "\MON"
     DESTD$ = "\LOG\MSG_SENT"
     DESTE$ = "\UPLOADS"
     DESTF$ = "\SIGS"


WELCOME:
    sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
    IF sz$ = "CONTINUE" THEN
        UIPop 1
    ELSE
        GOSUB ASKQUIT
        GOTO WELCOME
    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 WELCOME
    ELSE
        GOSUB ASKQUIT
        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 [phone]!", "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

SUB Install STATIC

    SrcDir$ = GetSymbolValue("STF_SRCDIR")
    CreateDir DEST$, cmoNone
    CreateDir DEST$+DESTA$, cmoNone
     CreateDir DEST$+DESTB$, cmoNone
     CreateDir DEST$+DESTD$, cmoNone
     CreateDir DEST$+DESTC$, cmoNone
     CreateDir DEST$+DESTE$, cmoNone
     CreateDir DEST$+DESTF$, 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 ""

     AddSectionFilesToCopyList "petlite", SrcDir$, DEST$
     AddSectionFilesToCopyList "signatures", SrcDir$, DEST$ + DESTF$


     CopyFilesInCopyList

     ini$ = MakePath(DEST$, "pet.ini")
     CreateIniKeyValue ini$, "Install Path", "Path ", DEST$+"\" , cmoOverwrite

     CreateProgmanGroup "Visual PacketPeT Lite", "", cmoNone
     ShowProgmanGroup  "Visual PacketPeT Lite", 1, cmoNone
    CreateProgmanItem "Visual PacketPeT Lite", "PeTLite", MakePath(DEST$,"packet.exe"), "", cmoOverwrite
    CreateProgmanItem "Visual PacketPeT Lite", "PeT Help", "winhelp.exe "+MakePath(DEST$,"packet.hlp"), "", cmoOverwrite
    CreateProgmanItem "Visual PacketPeT Lite", "Readme", "notepad.exe "+MakePath(DEST$,"readme.txt"), "", cmoOverwrite
    CreateProgmanItem "Visual PacketPeT Lite", "Order Blank", "notepad.exe "+MakePath(DEST$,"order.txt"), "", cmoOverwrite
    CreateProgmanItem "Visual PacketPeT Lite", "Register", "notepad.exe "+MakePath(DEST$,"register.txt"), "", cmoOverwrite
    CreateProgmanItem "Visual PacketPeT Lite", "License", "notepad.exe "+MakePath(DEST$,"license.txt"), "", cmoOverwrite
    CreateProgmanItem "Visual PacketPeT Lite", "Full Version", "notepad.exe "+MakePath(DEST$,"retail.txt"), "", cmoOverwrite
    CreateProgmanItem "Visual PacketPeT Lite", "COM Problems?", "notepad.exe "+MakePath(DEST$,"hardware.txt"), "", cmoOverwrite


    AddDos5Help "PACKET", "Packet Terminal program for MSWINDOWS"+chr$(10)+"It can be continued on another line with chr$(10).", cmoNone

    CloseLogFile

END SUB


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