OS/2 Shareware BBS: 35 Internet/35-Internet.zip/lyrisos2.exe/INSTALL.DAT

Text File | 1996-01-13 | 21KB | 742 lines

// Lyris installation script for OS/2
// Copyright 1996 Walter Shelby Group Ltd.
// http://www.shelby.com  [e-mail]

@DefineProject
  @Name = "Lyris"
  @Version = "1.0"
  @OutDrive = C
  @SubDir = "\\LYRIS"
  @Immediate = @True
@EndProject

@NumberOfDisks = 1

@DefineVars
  @Dir        @PerlDir    = "\\PERL\\"
  @Drive      @PerlDrive  = C

  @Dir        @PLibDir    = "\\PERL\\LIB"
  @Drive      @PLibDrive  = C

  @Dir        @LyrisDir   = "\\LYRIS\\"
  @Drive      @LyrisDrive = C

  @Dir        @CgiDir     = "\\"
  @Drive      @CgiDrive   = C

  @Dir        @GifDir     = "\\"
  @Drive      @GifDrive   = C

  @Dir        @NetscapeDir = "\\NETSCAPE"
  @Drive      @NetscapeDrive   = C

  @Drive      @OS2Drive   = C

  @QString    @Hostname   = ""
  @QString    @DnsServer  = ""

  @QString    @FinalConf  = ""

  @Integer    @SlashPos   = 0
  @QString    @CgiUrl     = ""

  // needed by uninstaller
  @QString @UIScriptPath = ""
  @QString @TmpStr = ""   // Needed for @Backslash function, needed for events.dat
  @Integer @Position = 0  // Needed for @Backslash function, needed for events.dat
  @Integer @Index  = 0    // Needed for @UnMkDir,  needed for events.dat
  @Dir @TempDir = ""
  @QString @TempString

@EndVars

  @IncludeScript("EVENTS.DAT")
  @IncludeScript("REXXUTIL.DAT")

///////////////////////////////////
// Display Welcome
///////////////////////////////////

  @Display
    Welcome to Lyris Setup for OS/2

    This program will install Lyris on your computer.

    Note: this program will create an uninstall icon, so that if
    you decide that Lyris does not meet your needs, you will
    be able to easily remove it from your computer.

    By installing this product, you accept the terms of the Software
    License agreement as specified in the "license.txt" file.

  @pause
  @EndDisplay


///////////////////////////////////
// New or Upgrade
///////////////////////////////////

NewOrUpgrade:

  //@FlushOptions()
  @ClearOption(1000)
  @ClearOption(1001)
  @GetOption
  @Cls
    Is this a new installation of Lyris, or are you upgrading
    an existing, already installed copy of Lyris?

    @Option 1000 = "New installation"
    @Option 1001 = "Upgrade"
    @Option 1002 = "Exit Setup Program"
  @EndOption

  // exit installation
  @if (@OptionIsSet(1002))
    @Exit
  @endif

///////////////////////////////////
// Show requirements
///////////////////////////////////

  // show requirements if new installation
  @if (@OptionIsSet(1000))
    @Display
      Before installing Lyris the first time, please confirm
      that your system meets these requirements.

      In order to install Lyris, you will need:

        * A TCP/IP Internet or Intranet connection
        * Netscape Navigator for OS/2
        * A Web Server installed on this machine (recommended)
        * A CGI directory configured on your web server
        * 10 megabytes of disk space

        * You must NOT be running an SMTP server (such as UltiMail)

      @pause
    @EndDisplay
  @Endif

///////////////////////////////////
// Select Server destination
///////////////////////////////////

@GetOutDrive @LyrisDrive
@Cls
@if (@OptionIsSet(1000))
  Install the Lyris Server to which drive?
@else
  On which drive is your Lyris Server installed?
@endif

@EndOutDrive


@GetSubDir @LyrisDir
  @Cls
  @if (@OptionIsSet(1000))
    Into which directory do you want to install the Lyris Server?
  @else
    On which directory is your Lyris Server installed?
  @endif

@EndSubDir

// for upgrade, check to see if Lyris really is installed there.
@if (@OptionIsSet(1001))
  @if (@Exists("@LyrisDrive:@LyrisDir\\lyris.exe"))
    // file exists, so do nothing, update will be OK
  @else
    // file does not exist, so notify and make them try again
    @Display
      Sorry, but the directory @LyrisDrive:@LyrisDir does not have
      Lyris installed.

      In order to upgrade an existing Lyris installation, you must
      specify a directory where the file "LYRIS.EXE" exists.
      @pause
    @EndDisplay
    @goto NewOrUpgrade
  @endif
@endif


///////////////////////////////////
// Ask for Netscape location
///////////////////////////////////

NetscapeLocation:

@if (@OptionIsSet(1000))
@GetOutDrive @NetscapeDrive
  @Cls
  On which drive is Netscape Navigator for OS/2 installed?

@EndOutDrive


@GetSubDir @NetscapeDir
  @cls
  On which directory is Netscape Navigator for OS/2 installed?

@EndSubDir

  @if (@Exists("@NetscapeDrive:@NetscapeDir\\netscape.exe"))
    // file exists, so do nothing, update will be OK
  @else
    // file does not exist, so notify and make them try again
    @Display
      Sorry, but the directory @NetscapeDrive:@NetscapeDir does not have
      Netscape Navigator for OS/2 installed.

      In order to install Lyris, you must have Netscape
      Navigator for OS/2 already installed.

      You can download Netscape Navigator for OS/2 from
      www.software.ibm.com

      To continue, specify a directory with "NETSCAPE.EXE".

      @pause
    @EndDisplay
    @goto NetscapeLocation
  @endif
@endif

///////////////////////////////////
// Ask if Startup (for new install)
///////////////////////////////////

  @if (@OptionIsSet(1000))
    //@FlushOptions()
    @ClearOption(2000)
    @ClearOption(2001)
    @GetOption
      @Cls
      Should the Lyris Server start automatically when you start OS/2?









      Note: If you choose "Start Lyris Server Automatically",
      your STARTUP.CMD file will be modified to do this.

      @Option 2000 = "Start Lyris Server Automatically"
      @Option 2001 = "I will start the Lyris Server Myself"
      @Option 2002 = "Exit Setup Program"


    @EndOption

    // exit installation
    @if (@OptionIsSet(2002))
      @Exit
    @endif
  @endif

///////////////////////////////////
// GIFS
///////////////////////////////////

GetGifs:
  // ask if should copy GIFs
  //@FlushOptions()
  @ClearOption(3000)
  @ClearOption(3001)
  @GetOption
    @Cls
    Lyris requires that several GIF graphic files be available in your Web
    Server's HTML document directory.  Would you like to copy these now?

    @Option 3000 = "Yes, please do this for me"
    @Option 3001 = "No, I will copy them myself"
    @Option 3002 = "Exit Setup Program"

  @EndOption

  // exit installation
  @if (@OptionIsSet(3002))
    @Exit
  @endif

  // ask for GIF destination
  @if (@OptionIsSet(3000))
    @GetOutDrive @GifDrive
      @Cls
      On what drive is your Web server document directory located?
    @EndOutDrive

    @GetSubDir @GifDir
      @Cls
      In what directory is your Web server document directory located?
    @EndSubDir

    @if (@DirExists("@GifDrive:@GifDir"))
    @else
      @Display
        Sorry, your Web Server Document directory must already exist.
        @pause
      @EndDisplay
      @goto GetGifs
    @endif
  @endif


///////////////////////////////////
// CGI
///////////////////////////////////

GetCgi:

  @ClearOption(4000)
  @ClearOption(4001)
  //@FlushOptions()
  @GetOption
    @Cls
    Lyris requires that several programs be available in your Web Server's
    CGI directory.  Would you like to copy these now?

    @Option 4000 = "Yes, please do this for me"
    @Option 4001 = "No, I will copy them myself"
    @Option 4002 = "Exit Setup Program"

  @EndOption

  // exit installation
  @if (@OptionIsSet(4002))
    @Exit
  @endif

  @if (@OptionIsSet(4000))

    @GetOutDrive @CgiDrive
      @Cls
      On what drive is your Web server CGI directory located?

      @EndOutDrive

      @GetSubDir @CGIDir
      @Cls
      In what directory is your Web server CGI directory located?
    @EndSubDir

    @if (@DirExists("@CgiDrive:@CGIDir"))
    @else
      @Display
        Sorry, your Web Server CGI directory must already exist.
        @pause
      @EndDisplay
      @goto GetCgi
    @endif

    @SlashPos = @StrRFind("@CGIDir", "\\")
    @CgiUrl = @StrMid("@CGIDir", @SlashPos + 1, 999)

  @endif

///////////////////////////////////
// Create DBs?
///////////////////////////////////

  //@FlushOptions()
  @ClearOption(5000)
  @ClearOption(5001)

  @if (@OptionIsSet(1000))
    @GetOption
      @Cls
      Lyris uses a number of database files for storing information.
      Would you like to create these?









      These files are necessary in order for Lyris to function.

      @Option 5000 = "Yes, please do this for me"
      @Option 5001 = "No, I will run \"lyris dbcreate\" myself"
      @Option 5002 = "Exit Setup Program"
    @EndOption
  @else
    @GetOption
      @Cls
      Do you want Lyris to use your current Lyris databases, or delete
      and recreate them?








      If you are unsure what to do, Exit the Setup Program and make
      a backup of your \LYRIS\DB directory before proceeding.

      @Option 5001 = "Use the existing databases"
      @Option 5000 = "Delete and recreate them (all existing data will be lost)"
      @Option 5002 = "Exit Setup Program"
    @EndOption
  @endif

  // exit installation
  @if (@OptionIsSet(5002))
    @Exit
  @endif

  @if (@OptionIsSet(5000))
GetHostName:
    @GetString @Hostname
      Please enter the full Internet host name of this machine:

      For example, if your machine name is "luna" and your domain name
      is "acme.com", then your host machine name is "luna.acme.com"

      @EndString
      @if(@StrLen("@Hostname") < 2)
        @Display
          Sorry, you must enter your machine name in order to continue.
          @pause
        @EndDisplay
        @goto GetHostName
      @endif
GetDns:
    @GetString @DnsServer
      Please enter the TCP/IP address of your DNS server:

      For example: 207.105.6.2
    @EndString

    @if(@StrLen("@DnsServer") < 2)
      @Display
        Sorry, you must enter your DNS Server in order to continue.
        @pause
      @EndDisplay
      @goto GetDns
    @endif

  @endif

///////////////////////////////////
// Perl
///////////////////////////////////

  //@FlushOptions()
  @ClearOption(6000)
  @ClearOption(6001)
  @GetOption
    @Cls
    Lyris requires that Perl be installed on your system.
    Would you like to install it now?

    @Option 6000 = "Yes, please do this for me"
    @Option 6001 = "No, I will install Perl myself"
    @Option 6002 = "Exit Setup Program"

  @EndOption

  // exit installation
  @if (@OptionIsSet(6002))
    @Exit
  @endif

  @if (@OptionIsSet(6000))
    @GetOutDrive @PerlDrive
      @Cls
      Install Perl to what drive?

      @EndOutDrive

    @GetSubDir @PerlDir
      @Cls
      Install Perl to what directory?

    @EndSubDir
  @endif

GetPerlLib:
  @if (@OptionIsSet(6001))
    @ClearOption(7000)
    @ClearOption(7001)
    //@FlushOptions()
    @GetOption
      @Cls
      Lyris requires several Perl library files to be installed on your
      system.  Would you like to install these now?

      @Option 7000 = "Yes, please do this for me"
      @Option 7001 = "No, I will copy these files myself"
      @Option 7002 = "Exit Setup Program"

    @EndOption
  @endif

  // exit installation
  @if (@OptionIsSet(7002))
    @Exit
  @endif
  @if (@OptionIsSet(7000))
    @GetOutDrive @PLibDrive
      @Cls
      Install Perl Library files to what drive?

      @EndOutDrive

    @GetSubDir @PLibDir
      @Cls
      Install Perl Library Files to what directory?

    @EndSubDir

    @if (@DirExists("@PLibDrive:@PLibDir"))
    @else
      @Display
        Sorry, your Perl Library directory must already exist.
        @pause
      @EndDisplay
      @goto GetPerlLib
    @endif

  @endif

///////////////////////////////////
// Final confirmation
///////////////////////////////////

  @FinalConf = "Lyris Setup is about to do the following:\n\n    "

  @if (@OptionIsSet(1000))
    @FinalConf = "@FinalConf * Install Lyris Server in @LyrisDrive:@LyrisDir\n    "
  @else
    @FinalConf = "@FinalConf * Upgrade Lyris Installation in @LyrisDrive:@LyrisDir\n    "
  @endif

  @if (@OptionIsSet(2000))
    @FinalConf = "@FinalConf * Lyris Server will start automatically\n    "
  @endif

  @if (@OptionIsSet(3000))
    @FinalConf = "@FinalConf * Copy graphic files to @GifDrive:@GifDir\\LYRIS\n    "
  @endif

  @if (@OptionIsSet(4000))
    @FinalConf = "@FinalConf * Copy CGI programs to @CgiDrive:@CgiDir\n    "
  @endif

  @if (@OptionIsSet(5000))
    @FinalConf = "@FinalConf * Create Lyris Database files\n    "
    @FinalConf = "@FinalConf     Hostname: @Hostname\n    "
    @FinalConf = "@FinalConf     DNS Server: @DnsServer\n    "
  @else
    @FinalConf = "@FinalConf * Do not create Lyris database files\n    "
  @endif

  @if (@OptionIsSet(6000))
    @FinalConf = "@FinalConf * Install Perl to @PerlDrive:@PerlDir\n    "
  @endif

  @if (@OptionIsSet(7000))
    @FinalConf = "@FinalConf * Install Perl library files to @PLibDrive:@PLibDir\n    "
  @endif

  @Display
   @FinalConf
  @pause
  @EndDisplay

///////////////////////////////////
// Do Installation
///////////////////////////////////

// Copy files

    @GetOS2Drive(@OS2Drive)

  // initialize uninstaller
  @MkDir("@LyrisDrive:@LyrisDir")

  // remove old uninstall script, if there is one
  @Delete("@LyrisDrive:@LyrisDir\\install.dat")

  @CreateUIDISKID("@LyrisDrive:@LyrisDir")
  @CreateUIScriptHdr("@LyrisDrive:@LyrisDir")
  @TempDir = "@LyrisDrive:@LyrisDir"
  @UIScriptPath = "@LyrisDrive:@LyrisDir"
  @MapEventHandlers()

  // add a uninstall command to remove the Lyris directory
  @UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@RmDir(\"@LyrisDrive:@LyrisDir\")\n")
  //@UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@Delete(\"@LyrisDrive:@LyrisDir\\DELICONS.CMD\")\n")
  //@UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@Spawn(\"@LyrisDrive:@LyrisDir\\DELICONS.CMD\")\n")

  //@UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@Delete(\"@LyrisDrive:@LyrisDir\\DISK.ID\")\n")
  @UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@Delete(\"@LyrisDrive:@LyrisDir\\README.HTM\")\n")
  @UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@Delete(\"@LyrisDrive:@LyrisDir\\LYRWEB.CMD\")\n")
  @UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@Delete(\"@LyrisDrive:@LyrisDir\\README.CMD\")\n")

// copy the files
@DefineDisk
  @Label = "Lyris"

  @BeginLib ROOT.RED
    @File *.* @Out @LyrisDrive:@LyrisDir\\*.*
  @EndLib

  @BeginLib WEB.RED
    @File *.* @Out @LyrisDrive:@LyrisDir\\WEB\\*.*
    @if (@OptionIsSet(4000))
      @File *.* @Out @CgiDrive:@CgiDir\\*.*
    @endif
  @EndLib

  @BeginLib GRAPHICS.RED
    @File *.* @Out @LyrisDrive:@LyrisDir\\GRAPHICS\\*.*

    @if (@OptionIsSet(3000))
      @File *.* @Out @GifDrive:@GifDir\\lyris\\*.*
    @endif

  @EndLib

  @BeginLib EMXBIN.RED
    @File *.* @Out @LyrisDrive:@LyrisDir\\EMX\\BIN\\*.*
    @File *.* @Out @OS2Drive:\\OS2\\*.*
  @EndLib

  @BeginLib EMXDLL.RED
    @File *.* @Out @LyrisDrive:@LyrisDir\\EMX\\DLL\\*.*
    @File *.* @Out @OS2Drive:\\OS2\DLL\\*.*
  @EndLib

  @BeginLib PERLBIN.RED
    @File *.* @Out @LyrisDrive:@LyrisDir\\PERL\\BIN\\*.*

    @if(@OptionIsSet(6000))
      @File *.* @Out @PerlDrive:@PerlDir\BIN\\*.*
    @endif
  @EndLib

  @BeginLib PERLLIB.RED
    @File *.* @Out @LyrisDrive:@LyrisDir\\PERL\\LIB\\*.*

    @if(@OptionIsSet(6000))
      @File *.* @Out @PerlDrive:@PerlDir\\LIB\\*.*
    @endif

    @if(@OptionIsSet(7000))
      @File *.* @Out @PerlDrive:@PerlDir\\LIB\\*.*
    @endif
  @EndLib

  // copy install program and rename it to be uninstall
  @File INSTALL.EXE @Out @LyrisDrive:@LyrisDir\\UNINSTAL.EXE

@EndDisk

  // make CGI temp directory
  @if (@OptionIsSet(4000))
    @TempString = "@CgiDrive:@CgiDir\\TEMP"
    @MkDir(@TempString)
  @endif

  // add startup command
  @if (@OptionIsSet(2000))
    @Write("@OS2Drive:\\STARTUP.CMD", "PT", "\nstart @LyrisDrive:@LyrisDir\\LYRIS.EXE\n")
  @endif

  // create readme.htm
  @Write("@LyrisDrive:@LyrisDir\\README.HTM", "wr", "<html><head><title>Lyris Readme</title><body bgcolor=\"#ffffff\" text=\"#606060\" link=\"#008cc3\" vlink=\"#008cc3\" alink=\"#ffffff\"><h3>Readme file for @Hostname</h3><p><img src=\"graphics\\line.gif\"><p>\n")
  @Write("@LyrisDrive:@LyrisDir\\README.HTM", "at", "<b>Lyris Web Interface</b><p>The Lyris web interface for your machine should be accessible from:<ul>\n")
  @Write("@LyrisDrive:@LyrisDir\\README.HTM", "at", "<li><a href=\"http://@Hostname/@CgiUrl/lyris.cmd\">http://@Hostname/@CgiUrl/lyris.cmd</a><br></ul>Note: your Lyris Server must be running in order for the Web Interface to function correctly.<p>\n")
  @Write("@LyrisDrive:@LyrisDir\\README.HTM", "at", "<img src=\"graphics\\line.gif\"><p><b>Lyris Documentation</b><p>The Lyris manual can be read online at: <a href=\"http://www.lyris.com/help/\">http://www.lyris.com/help/</a><p>\n")
  @Write("@LyrisDrive:@LyrisDir\\README.HTM", "at", "<img src=\"graphics\\line.gif\"><p><b>Technical Support</b><p>If you need technical support, click here: <a href=\"http://www.lyris.com/forms/\">http://www.lyris.com/forms/</a><p><img src=\"graphics\\line.gif\"></body>\n")

  // create databases and store dns server in lyris database
  @if (@OptionIsSet(5000))
    @Write("@LyrisDrive:@LyrisDir\\lyrcmd.cmd", "wr", "@@echo off\ncls\n@LyrisDrive:\ncd\\@LyrisDir\n@LyrisDrive:@LyrisDir\\LYRIS.EXE dbcreate\ncls\n@LyrisDrive:@LyrisDir\\LYRIS.EXE dns @DnsServer\nstart @LyrisDrive:@LyrisDir\\LYRIS.EXE\ndel @LyrisDrive:@LyrisDir\\lyrcmd.cmd\nexit")
    @ExecuteREXXCMDFile("@LyrisDrive:@LyrisDir\\lyrcmd.cmd")
    @UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@RmDir(\"@LyrisDrive:@LyrisDir\\DB\")\n")
    @UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@Delete(\"@LyrisDrive:@LyrisDir\\DB\\*.*\")\n")
    @UNDO("@UIScriptPath\\BODY.DAT", "PT", "@@RmDir(\"@LyrisDrive:@LyrisDir\\MAILQ\")\n")
  @endif

  @if ((@OptionIsSet(4000)) && (@OptionIsSet(6000)))
    @Write("@LyrisDrive:@LyrisDir\\LYRWEB.CMD", "wr", "@@@NetscapeDrive:@NetscapeDir\\netscape.exe http://@hostname/@CgiUrl/lyris.cmd\n")
  @endif

  // rexx script to display readme file
  @Write("@LyrisDrive:@LyrisDir\\README.CMD", "wr", "@@@NetscapeDrive:@NetscapeDir\\netscape.exe file:///readme.htm\n")

  // write out lyris.cmd CGI script
  @if ((@OptionIsSet(4000)) && (@OptionIsSet(6000)))
    @Write("@CgiDrive:@CgiDir\\LYRIS.CMD", "wr", "@@@PerlDrive:@PerlDir\\BIN\\PERL.EXE @CgiDrive:@CgiDir\\LYRIS.PL\n")
  @endif

  // create OS/2 icons on the desktop
  @CreateREXXCMDFile("@LyrisDrive:@LyrisDir\\rxscript.cmd")
  @CreateWPFolder("Lyris", "WP_DESKTOP", "LYRIS_FOLDER", "")

  // add command to create OBJECT (icon)
  @CreateWPIcon("LYRIS_FOLDER", "Lyris Server", "@LyrisDrive:@LyrisDir\\LYRIS.EXE", "@LyrisDrive:@LyrisDir\\LYRIS.ICO", "@LyrisDrive:@LyrisDir", "")
  @CreateWPIcon("LYRIS_FOLDER", "Read This First!", "@LyrisDrive:@LyrisDir\\README.CMD", "@LyrisDrive:@LyrisDir\\NETSCAPE.ICO", "@LyrisDrive:@LyrisDir", "")

  @if ((@OptionIsSet(4000)) && (@OptionIsSet(6000)))
    @CreateWPIcon("LYRIS_FOLDER", "Lyris Web Interface", "@LyrisDrive:@LyrisDir\\LYRWEB.CMD", "@LyrisDrive:@LyrisDir\\NETSCAPE.ICO", "@LyrisDrive:@LyrisDir", "")
  @endif

  @CreateWPIcon("LYRIS_FOLDER", "Lyris Manual", "@LyrisDrive:@LyrisDir\\GUIDE.CMD", "@LyrisDrive:@LyrisDir\\GUIDE.ICO", "@LyrisDrive:@LyrisDir", "")

  @if (@OptionIsSet(1000))
    @CreateWPIcon("LYRIS_FOLDER", "Uninstall Lyris", "@LyrisDrive:@LyrisDir\\DELICONS.CMD", "@LyrisDrive:@LyrisDir\\UNINSTAL.ICO", "@LyrisDrive:@LyrisDir", "")
  @endif

  @FinishREXXCMDFile("@LyrisDrive:@LyrisDir\\rxscript.cmd")
  @ExecuteREXXCMDFile("@LyrisDrive:@LyrisDir\\rxscript.cmd")
  @Delete("@LyrisDrive:@LyrisDir\\rxscript.cmd")

  // add uninstaller patch for the desktop icons
  //@Write("@LyrisDrive:@LyrisDir\\DELICONS.CMD", "wr", "/* Delete Lyris Folder*/\n\nretval = SysDestroyObject(\"<LYRIS_FOLDER>\")\n\nEXIT")

///////////////////////////////////
// Say Goodbye
///////////////////////////////////

// Finish Uninstall script
@FinishUIScript("@LyrisDrive:@LyrisDir")

@Display
  @cls
  Lyris Setup has successfully completed.

  @if (@OptionIsSet(5000))
  You are ready to start using Lyris!

  On your OS/2 desktop, you will see a Lyris folder.
  Tip: to get started quickly, read the Tutorial
  contained in the Lyris Manual.

  Note: to log in to the Lyris Web Interface as the
  Lyris administrator, use:
    * Name: admin
    * Password: lyris
  @endif
  @pause
@EndDisplay

// end-of-file