OS/2 Shareware BBS: SysTools/SysTools.zip/wrpstrt7.zip/INSTALL.CMD

OS/2 REXX Batch file | 1996-05-26 | 6KB | 218 lines

/* Begin Install.CMD for WarpStart */
'@Echo off'
adummy = ''
say ''
say ''
say 'Welcome to WarpStart:'
say 'This program will copy the WarpStart files to a directory on your'
say 'hard drive.  it will then creat a folder on the desktop for you.'
say 'It will NOT change your system in any way.'
say ''
dummy = charout(,'Do you wish to continue with this install? [y/N] ')
parse upper pull adummy
if left(adummy,1) \= 'Y' then do
  exit
end
adummy = ''

curdir = directory()

do
    say ''
    say 'Please enter the drive letter to install WarpStart (Ex. C:)'
    say 'You MUST enter the full drive letter, C: <- Notice the colon'
    say '--'
    parse upper pull dummy
    ADDRESS CMD dummy
    ADDRESS CMD "CD\"
    ADDRESS CMD "MD WarpStrt 2>NUL"
    ADDRESS CMD "CD WarpStrt"
    olddir = curdir
    curdir = dummy'\WarpStrt'
    say ''
    say 'Current sub-directory: 'curdir
    say ''
    say 'Install WarpStart into the current'
    dum = charout(, 'sub-directory? [Y/n] ')
    parse upper pull dummy
    if left(dummy,1) = 'N' then exit
    say ''
end

say ''
say 'Installing WarpStart, copying files.. Please wait...'

no_obje = 12
InsCmd.1 = copy olddir'\IBMWW.INF'
InsCmd.2 = copy olddir'\INSTALL.CMD'
InsCmd.3 = copy olddir'\OWTD.INF'
InsCmd.4 = copy olddir'\pcmtable.inf'
InsCmd.5 = copy olddir'\tricks.inf'
InsCmd.6 = copy olddir'\WarpCon.txt'
InsCmd.7 = copy olddir'\WARPFAQ.INF'
InsCmd.8 = copy olddir'\WarpPerf.TXT'
InsCmd.9 = copy olddir'\WarpStrt.Me'
InsCmd.10 = copy olddir'\WarpStrt.ICO'
InsCmd.11 = copy olddir'\NICWC30.TXT'
InsCmd.12 = copy olddir'\WPSTUTOR.TXT'

/* add cleanup rotuine */
if olddir \= curdir then
do
  do obje=1 to no_obje
     ADDRESS CMD InsCmd.obje
  end
end

/* load rexx utility functions */

rc = stream('WARPFAQ.INF','c','query exists')
if rc = '' then
do
  say 'Sorry, WARPFAQ.INF not found.  Must not be right directory. Terminating.'
  exit
end

say ''
say 'If you see any SYS### errors from this point on, please ignore them'
say ''

call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

/* say it, then do it */

say "Creating WarpStart folder..."

/* first, create WarpStart folder */

title = "Warp Start"
classname = 'WPFolder'
location = '<WP_DESKTOP>'
setup = 'OBJECTID=<WarpStart_Folder>;OPEN=DEFAULT;ICONFILE='curdir'\WarpStrt.ico'
result=SysCreateObject(classname,title,location,setup,f)

/* If folder exists, ask before updating */

if result = 0 then
do
  existed = 'TRUE'
  say ''
  say 'The WarpStart folder already exists.'
  dum = Charout(, 'Do you really want to create a duplicate? [Y/n] ')
  parse upper pull dummy
  if left(dummy,1) = 'N' then
  do
    rc = stream('WARPFAQ.INF','c','query exists')
    if rc = '' then
    do
      say 'Sorry, WarpFAQ.INF not found.  Unarchive does not appear to have '
      say 'been successful.'
      exit
    end

    do
      say ''
      say 'Install appears to have been sucessful!'
      say ''
    end

    say 'Heres to a succesful Warp Start'
    say ''


    exit
  end
  say ''
end

say "Creating objects in WarpStart folder..."

/* now, create program objects in Warp Start folder */

title = "Welcome to Warp Start"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='E.EXE';STARTUPDIR='curdir';PARAMETERS='WarpStrt.Me''
call SysCreateObject classname,title,location,setup,u

title = "OS/2 Warp Frequently Asked Questions"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='VIEW.EXE';STARTUPDIR='curdir';PARAMETERS='WARPFAQ.INF''
call SysCreateObject classname,title,location,setup,u

title = "IBM World Wide Electronic Resource Guide"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='VIEW.EXE';STARTUPDIR='curdir';PARAMETERS='IBMWW.INF''
call SysCreateObject classname,title,location,setup,u

title = "OS/2 Warp Troubleshooting Demystified"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='VIEW.EXE';STARTUPDIR='curdir';PARAMETERS='OWTD.INF''
call SysCreateObject classname,title,location,setup,u

title = "OS/2 Hardware Compatibilty List"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='VIEW.EXE';STARTUPDIR='curdir';PARAMETERS='pcmtable.INF''
call SysCreateObject classname,title,location,setup,u

title = "Stupid OS/2 Tricks"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='VIEW.EXE';STARTUPDIR='curdir';PARAMETERS='tricks.INF''
call SysCreateObject classname,title,location,setup,u

title = "OS/2 Warp Connect Tips and Tricks"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='E.EXE';STARTUPDIR='curdir';PARAMETERS='WarpCon.TXT''
call SysCreateObject classname,title,location,setup,u

title = "Performance Tuning OS/2 Warp"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='E.EXE';STARTUPDIR='curdir';PARAMETERS='WarpPerf.TXT''
call SysCreateObject classname,title,location,setup,u

title = "Adapter Support Matrix for OS/2 Warp Connect"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='E.EXE';STARTUPDIR='curdir';PARAMETERS='NICWC30.TXT''
call SysCreateObject classname,title,location,setup,u

title = "Using The Workplace Shell - A Tutorial for the New OS/2 User"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='E.EXE';STARTUPDIR='curdir';PARAMETERS='WPSTUTOR.TXT''
call SysCreateObject classname,title,location,setup,u


  do
    rc = stream('WARPFAQ.INF','c','query exists')
    if rc = '' then
    do
      say 'Sorry, WarpFAQ.INF not found.  Unarchive does not appear to have '
      say 'been successful.'
      exit
    end


do
  say ''
  say 'Install appears to have been sucessful!'
  say ''
end


  say ''

end

say 'Heres to a succesful Warp Start'

/* END Install Program */