PC Pro 1995 April/PCPRO_595.ISO/fprot/install.dat

INSTALL Professional project | 1995-01-15 | 11.8 KB | 467 lines

/*
 *   F-PROT Professional Installation Program
 *   Copyright (C) 1993,94 Command Software Systems
 *
 *   Edited by Steven Brittin @ Command Software
 *   Date      = August 17, 1994
 *   #Disk     = 2
 */

@DefineProject
    @Name = "F-PROT Professional"
    @Version = "2.16"
    /*
     * @OutDrive = the drive that one wants the F-PROT program on.
     * @SubDir   = the directory or path located on the OutDrive
     *              that one wants F-PROT to be place in.
     */
    @OutDrive = C
    @SubDir = "\\F-PROT"
@EndProject

/*
 * The following block is for system administrators to set the variables
 * for the questions that would normall2y be asked during installation.
 * IN PLACES WHERE A "\" IS NEEDED PLEASE PLACE "\\" IN ORDER FOR IT TO
 * BE READ CORRECTLY BY THE PROGRAM.
 */
@DefineVars
    /*
     * All variables with the True and False capability must be printed
     * the First letter capital and the rest lower case; otherwise, it may
     * not work correctly.
     * @Mode sets the type of installation.  QUESTION allows the user to
     * input the variables for the setup of the program during installation.
     * MESSAGE tells the user which defaults are being used but will not let
     * him/her change the settings.  SILENT displays minimal information and
     * only prompts the user to tell him/her that his/her configuration files
     * have been changed.
     */
    @QString @Mode             = "QUESTION" // QUESTION,MESSAGE,SILENT

    /*
     * @WinDrive is the hard drive letter where the Windows program is
     * located at.
     * @WinDirectory is the directory or path where the Windows program
     * is located on the WinDrive
     * @WinFProt if set to true loads the windows support for this program
     * and modifies the win.ini file appropriately; if set to false it
     * aborts the windows installation.  If the specified Windows directory
     * is not existant then windows install still aborts.
     */
    @Drive   @WinDrive         = C
    @Dir     @WinDirectory     = "\\WINDOWS"
    @Integer @WinFProt         = @True


    /* Use either NOVCAST or BANCAST and any command line options desired:
     * @QString @Broadcast =
     *  "NOVCAST /GROUP=NET-PROT"
     *  "NOVCAST /USER=SUPERVISOR"
     *  "BANCAST /GROUP=Chicago Sales@WCTUS"
     *  "BANCAST /USER=Joe@Tech@Command /LOG"
     */
    @QString @Broadcast  = "NOVCAST"


    /*
     * @FProtUpgrade searches for a previous version; if set to true install
     * automatically aborts the install no matter what.
     * @Upgrade if set to true aborts the installation process if a previous
     * version of F-PROT is found on OutDrive at SubDir; if set to false
     * it continues to load even though it found a previos version.
     */
    @Integer @FProtUpgrade     = @False
    @Integer @Upgrade          = @False

    /*
     * @ChangeAuto if set to true it adds lines to the AUTOEXEC.BAT
     * file; if set to false, install will not add lines to the AUTOEXEC.BAT
     * @BatSetup if set to true will place lines for the AUTOEXEC.BAT
     * file above the last line in the AUTOEXEC.BAT file; if set to false
     * it will place lines at the bottom of the AUTOEXEC.BAT file.
     */
    @Integer @ChangeAuto = @True
    @Integer @BatSetup   = @True

    /*
     * @Options are the switches for an F-PROT line in the autoexec.bat.
     * If you do not want the line in the Autoexec.bat, place the word SKIP
     * in quotes.  All switches within the quotes should have a "/"
     * first, followed by a valid switch which is listed in the manual.
     * @FPDATA is the path for the environment variable FP-DATA. To not set
     * the environment variable, place SKIP inbetween the quotations.
     * Remember to place two \'s instead of one for each occurence.
     * @SOPTIONS is the options you can add to the F-PROT that runs when
     * the installation is done.  If left blank it brings up the F-PROT
     * interactive menuing system. If SKIP is placed in the quotations it
     * does not execute F-PROT after installation.
     */
    @QString @Options    = "SKIP"
    @QString @FPDATA     = "SKIP"
    @QString @SOPTIONS   = ""

    @Integer @AlreadyInstalled
@EndVars

@If (@StrFind ( @Mode , "SILENT" ) != 0 )
   /* Introduction */
   @Display
      @Cls

              F-PROT Professional @Version

    Welcome to the @Name installation program!
    This program will install @Name v@Version
    on your computer.

    If you are installing from a network or a single floppy,
    look at the README.DOC file for instructions on file setup.

      @PAUSE
   @EndDisplay
@Endif

@If (@StrFind ( @Mode, "QUESTION" ) == 0 )
   @GetOutDrive                                    // get the output drive
      @Cls
   Please select the drive to install @Name.
    @Suppress A                             // skip A
    @Suppress B                             // skip B
















   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the disk drive to install to and then press [Enter].
   @EndOutDrive

   @GetSubdir
      @Default = "@Subdir"
      @Prompt = "Enter the name of the sub-directory to install F-PROT:"
   @EndSubdir
@Endif

@If (@StrFind ( @Mode, "MESSAGE" )==0)
   @Display
   @Cls

   The destination disk and directory is @OutDrive:@Subdir

   @Pause
   @EndDisplay
@Endif

/*
 * Checks for an all-ready existing copy of F-PROT.exe at the
 * destination drive/directory. If there set the variable FProtUpgrade.
 */
@If (@Exists "@OutDrive:\\@SubDir\\F-PROT.EXE")
   @If (@StrFind ( @Mode, "QUESTION")==0)
      @GetGroups

    @Name appears to be installed. Select "Yes" if you
    are installing an update or have deleted some files you wish to
    re-install.

    Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move
    the bar to the option you wish to choose and then press [Enter].

     @LocalWindow(12, 38)

     @Set y = "Yes"
     @Set n = "No"

      @EndGroups
      @If ('n'[= @Group )
     @FProtUpgrade = @True
      @else
     @FProtUpgrade = @False
      @EndIf
   @Else
      @FProtUpgrade = @Upgrade
   @Endif
   @If (@StrFind ( @Mode , "MESSAGE") == 0 )
      @Display
      @CLS


  Another version of F-PROT has been detected on the machine.

      @Pause
      @EndDisplay
   @Endif
@Endif

/* Write the files from Disk1 to Destination */
@DefineDisk
  @Label = "Disk 1/1"
    @File README.DOC
    @File VIRSTOP.EXE
    @File ENGLISH.TX0
    @File F-PROT.EXE
    @File SIGN.DEF
    @File UPDATE.BAT
    @File FIXDISK.EXE
    @File CS-TSR.COM
    @File F-TEST.COM
    @File LOGIN.COM
    @File REBOOT.COM
    @File V-CHECK.COM
    @File B-CHECK.COM
    @File VIR-HELP.ENG
    @File BANCAST.EXE
    @File CHECK.EXE
    @File NOVCAST.EXE
    @File VINESMSG.EXE
    @File VSCONFIG.EXE
    @File VINESMSG.PIF
@EndDisk

/* Pending Value of FProtUpgrade the installation is aborted or continued */
@If (@FProtUpgrade)
   @Display

    Installation aborted.


       @Pause
   @EndDisplay
   @Exit
@Endif

@If (@StrFind( @Mode, "QUESTION" ) == 0 )
   @GetGroups

   Would you like to install Windows support for Virstop?

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the option you wish to choose and then press [Enter].

      @LocalWindow( 10, 38)
      @Set a = "Yes"
      @Set b = "No"
   @EndGroups
   @If ('a' [= @Group)
      @WinFProt = @True
   @Else
      @WinFProt = @False
   @Endif
@Endif

@If (@WinFProt)
   @If (@StrFind ( @Mode , "QUESTION")==0)
      @GetOutDrive @WinDrive           // get the output drive
      @Cls
    Select the drive where Microsoft Windows is installed.
    @Suppress A                             // skip A
    @Suppress B                             // skip B
















    Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
    bar to the disk drive to install to and then press [Enter].
      @EndOutDrive

      @GetSubDir @WinDirectory



     @Default = "@WinDirectory"
     @Prompt = "Enter the Windows directory."
      @EndSubdir
   @Endif
   @If ( @StrFind ( @Mode, "MESSAGE" ) == 0 )
      @Display
     @Cls


       The windows drive and directory are @WinDrive:@WinDirectory

     @Pause
      @EndDisplay
   @Endif
@Endif

@If ( @WinFProt )
   @If (@Exists "@WinDrive:\\@WinDirectory\\NUL")
   @Else
      @WinFProt = @FALSE
      @Display
      @Cls


      No Windows directory found.  Discontinuing windows support.

      @Pause
      @EndDisplay
   @EndIf
@Endif

/* Pending Value of WinFProt, the windows support is setup. */
@If (@WinFProt)
    @DefineDisk
    @Label = "Disk 1/1"
    @File VIRSTOP.DLL @Out @WinDrive:\@WinDirectory\*.*
    @File WVIRSTOP.EXE @Out @WinDrive:\@WinDirectory\*.*
    @EndDisk
    @If (@Spawn ("WVIRSTOP @WinDrive:\\@WinDirectory /QUIET") == 0)
       @If (@StrFind ( @Mode , "SILENT") != 0 )
      @Display

    Windows support for Virstop successfully installed in WIN.INI.


         @Pause
      @EndDisplay
       @Endif
    @Else
    @Display

    An error occurred and WVIRSTOP was not added to your WIN.INI.


    @Pause
    @EndDisplay
    @Endif
@Endif

@If (@StrFind ( @Mode, "QUESTION") == 0 )
   @FlushGroups()
   @GetGroups
    Does your computer boot to Microsoft Windows or a menu system?
    If you answer "Yes" then VIRSTOP and NOVCAST will be added just
    before the last line of your AUTOEXEC.BAT. If you answer "No", then
    the lines will be added at the end of your AUTOEXEC.BAT.

    Use the arrow keys to make your selection.

           @LocalWindow(10,38)
        @Set a = "Yes"
        @Set b = "No"

   @Endgroups
   @If ('a' [= @Group)
      @BatSetup = @True
   @Else
      @BatSetup = @False
   @EndIf
@Endif

/*
 * Pending the value of BatSetup the proper routine for AUTOEXEC.BAT
 * insertion is selected.
 * Pending the value of ChangeAuto the Autoexec insertion routine is
 * executed.
 */
@If (@StrFind ( @Mode, "QUESTION")==0)
   @GetGroups



    Do you wish to modify your AUTOEXEC.BAT?

    @LocalWindow(10,38)
    @Set y = "Yes"
    @Set n = "No"
   @EndGroups
   @If ( 'y' [= @Group )
      @ChangeAuto = @True
   @Else
      @ChangeAuto = @False
   @Endif
@EndIf

@If ( @ChangeAuto )
   @If ( @BatSetup )
      @SetAutoexec
     @Overwrite
     @AUTOINSERTNEXTTOLAST
     @If ( @StrFind ( @FPDATA, "SKIP" ) != 0 )
          @Verbatim "=Set FP-Data=@FPDATA"
     @EndIf
     @Verbatim "@OutDrive:\\@SubDir\\VIRSTOP"
     @Verbatim "@OutDrive:\\@SubDir\\@Broadcast"
     @If ( @StrFind ( @Options, "SKIP" ) != 0 )
       @Verbatim "@OutDrive:\\@SubDir\\F-PROT.EXE @OPTIONS"
     @Endif
      @EndAutoexec
   @Else
      @SetAutoexec
     @Overwrite
     @AUTOINSERTLAST
     @If ( @StrFind ( @FPDATA, "SKIP" ) != 0 )
          @Verbatim " Set FP-Data=@FPDATA"
     @EndIf
     @Verbatim "@OutDrive:\\@SubDir\\VIRSTOP"
     @Verbatim "@OutDrive:\\@SubDir\\@Broadcast"
     @If ( @StrFind ( @Options, "SKIP" ) != 0 )
       @Verbatim "@OutDrive:\\@SubDir\\F-PROT.EXE @OPTIONS"
     @Endif
      @EndAutoexec
   @Endif
@Endif


/* Conclusionary code */
@Finish
    @If (@Spawn ("@OutDrive:\\@Subdir\\FIXDISK INSTALL") == 0)
       @If (@StrFind ( @Mode , "SILENT") != 0 )

    FIXDISK successfully installed


         @Pause
       @Endif
    @Else

    An error occurred and FIXDISK was not installed


    @Pause
    @Endif
@CLS
@If ( @StrFind ( @Mode, "SILENT" ) != 0 )
    The @Name installation is complete.
    Thank you for choosing Command Software Systems!

    @Name will now run. To customize Virstop's
    alert message or default switches, run VSCONFIG.EXE from DOS.

    Should @Name report a virus, please refer
    to your documentation for instructions on how to proceed.

    @Pause
@EndIf
    @ChDrive @OutDrive
    @ChDir   "@SubDir"
    @If ( @StrFind ( @SOPTIONS , "SKIP" ) != 0 )
       @Execute("F-PROT.EXE @SOPTIONS")
    @EndIf
@EndFinish