home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 8 Other
/
08-Other.zip
/
warpst04.zip
/
INSTALL.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-04-02
|
6KB
|
211 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 = 11
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.txt'
InsCmd.10 = copy olddir'\WarpStrt.ICO'
InsCmd.11 = copy olddir'\NICCERT.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.TXT''
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 = "Network Interface Cards Certified for IBM LAN Systems"
classname = 'WPProgram'
location = '<WarpStart_Folder>'
setup = 'EXENAME='E.EXE';STARTUPDIR='curdir';PARAMETERS='NICCERT.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 */