home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
afinst!1.zip
/
AFINST!.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-02-20
|
13KB
|
249 lines
/*
* ALLFIX! v1.10 WPfolder Installation Program copyright (c) 1995, 1996
* by Scott Drake of Innovative Solutions 1:2630/212
*
* This program creates a folder to hold program objects for ALLFIX!, then
* creates program objects for each executable. It only needs to be run once
* (unless you move the ALLFIX directory -- see say notes at end). Run
* this program in the ALLFIX directory (where you unpacked the archive).
*/
/* see if we might be in the right directory... */
'@Echo off'
'cls'
say ''
say ''
say '
┌─────────────────────────────────────────────────────────────────────────────
┐
'
say '
│ ┌─────────────────────────────────────────────────────────────────────────
┐ │
'
say '
│ │
ALLFIX! v1.10 WPfolder Installation Program
│ │
'
say '
│ │
Copyright (c) 1995, 1996 by
Scott Drake
│ │
'
say '
│ │
ALLFIX! v1.10
is Copyrighted (c) 1992-96 by
Harms Software Engineering.
│ │
'
say '
│ │
All rights reserved
│ │
'
say '
│ └
─────────────────────────────────────────────────────────────────────────┘ │
'
say '
│
┌─────────────────────────────────────────────────────────────────────────
┐
│
'
say '
│
│
Have you read the ALLFIX.DOC or ALLFIX.INF file yet?
│
│
'
say '
│
│
By running this program, you agree to the license
│
│
'
say '
│
│
as specified in that file,
│
│
'
say '
│
│
and it tells you how to install ALLFIX, so you should read it.
│
│
'
say '
│
│
Please?
│
│
'
say '
│
└
─────────────────────────────────────────────────────────────────────────┘
│
'
say '
└
─────────────────────────────────────────────────────────────────────────────┘
'
say ''
say ''
/*
* allow user to eliminate associations from being placed on AV/2.
* seemed to upset some fellow on CIS (I guess he doesn't know about
* Settings notebooks on WPS objects).
*/
assocfilter = ';ASSOCFILTER=*.ZIP,*.ARC,*.LZH,*.ARJ,*.ZOO,*.MO0,READ.ME,README,README.1ST,README.OS2,REGISTER.TXT'
existed = ''
parse upper arg dummy
if dummy = 'NOASSOC' then assocfilter = ''
rc = stream('allfix.exe','c','query exists')
if rc = '' then
do
say '
Sorry, ALLFIX.EXE not found. Must not be right directory. Terminating.
'
exit
end
/* tell user what we're doing, give him a chance to hit CTRL-C */
say '
This program creates Desktop objects for ALLFIX!. If you do not want'
say '
create the Desktop Objects, just press CTRL + C then press Enter.'
say ''
say '
Otherwise Press [Enter] to continue wit the Installation...
'
pull dummy .
say ''
/* save current directory */
curdir = directory()
/* load rexx utility functions */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
/* say it, then do it */
'cls'
say "
Creating The ALLFIX! FileEcho Processor folder and objects...
"
say '
┌─────────────────────────────────────────────────────────────────────────────
┐
'
say '
│ ┌─────────────────────────────────────────────────────────────────────────
┐ │
'
say '
│ │
ALLFIX! for WildCat, v1.10
│ │
'
say '
│ │
ALLFIX is the most complete FileEcho utility available. No other program
│ │
'
say '
│ │
offers the large number of features that are part of the ALLFIX package.
│ │
'
say '
│ └
─────────────────────────────────────────────────────────────────────────┘ │
'
say '
│
┌─────────────────────────────────────────────────────────────────────────
┐
│
'
say '
│
│
*
Full support for WildCat! 4.xx. It Can write directly to the
│
│
'
say '
│
│
*
WildCat! file database and to the message conferences.
│
│
'
say '
│
│
*
Full support for Zones and 4D points.
│
│
'
say '
│
│
*
Support for domains (5D addressing).
│
│
'
say '
│
│
*
Ability to disable sending a TIC file.
│
│
'
say '
│
│
*
Ability to put all of the TIC files with or without the accompanying
│
│
'
say '
│
│
*
archive into one archive.
│
│
'
say '
│
│
*
Support for multiple compression formats.
│
│
'
say '
│
│
*
User friendly setup program. ALLFIX does not require any configuration
│
│
'
say '
│
│
*
files used by any other program.
│
│
'
say '
│
│
*
Supports XMS, EMS and Disk Swapping.
│
│
'
say '
│
│
*
Supports DESQview, OS/2 and other multitaskers.
│
│
'
say '
│
│
*
Writes FD/WildCat!/BinkleyTerm/PoP compatible log file.
│
│
'
say '
│
│
*
Very HIGH quality performance, Very LOW registration fee.
│
│
'
say '
│
└
─────────────────────────────────────────────────────────────────────────┘
│
'
say '
└
─────────────────────────────────────────────────────────────────────────────┘
'
/* first, create ALLFIX folder */
rc = stream('affldr!.ico','c','query exists')
title = "ALLFIX! FileEcho^ Processor"
classname = 'WPFolder'
location = '<WP_DESKTOP>'
setup = 'OBJECTID=<Allfix!_Folder>;OPEN=DEFAULT'
if rc \= '' then setup = setup';ICONFILE='rc
result=SysCreateObject(classname,title,location,setup,r)
/* Check to see if the ALLFIX! Folder already exists... */
if result = 0 then
do
assocfilter = ''
existed = 'TRUE'
say ''
say '
The ALLFIX! FileEcho Processor folder already exists.'
say '
Should I update the objects? (Y/n)
'
parse upper pull dummy
if left(dummy,1) = 'N' then exit
say ''
end
/* now, create program objects in ALLFIX folder */
title = "ALLFIX! v1.10^ FileEcho Processor"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10>;EXENAME='curdir'\ALLFIX.EXE;STARTUPDIR='curdir
if existed = '' then setup = setup';PARAMETERS=%*'
call SysCreateObject classname,title,location,setup,u
title = "ALLFIX! v1.10^ Configuration"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! Configuration>;EXENAME='curdir'\ASETUP.EXE;STARTUPDIR='curdir
if existed = '' then setup = setup';PARAMETERS=%*'
call SysCreateObject classname,title,location,setup,u
title = "ALLFIX! v1.10^ File Hatch"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10 File Hatch>;EXENAME='curdir'\HATCH.EXE;STARTUPDIR='curdir
if existed = '' then setup = setup';PARAMETERS=%*'
call SysCreateObject classname,title,location,setup,u
title = "ALLFIX! v1.10^ Fix Utility"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! Utility>;EXENAME='curdir'\FIXUTIL.EXE;STARTUPDIR='curdir
if existed = '' then setup = setup';PARAMETERS=%*'
call SysCreateObject classname,title,location,setup,u
title = "ALLFIX! v1.10^ Update Utility"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! Update Utility>;EXENAME='curdir'\UPDATE.EXE;STARTUPDIR='curdir
if existed = '' then setup = setup';PARAMETERS=%*'
call SysCreateObject classname,title,location,setup,u
title = "ALLFIX! v1.10^ File Area Compilier"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10 File Area Compilier>;EXENAME='curdir'\FCOMP.EXE;STARTUPDIR='curdir
if existed = '' then setup = setup';PARAMETERS=%*'
call SysCreateObject classname,title,location,setup,u
title = "ALLFIX! v1.10^ Cookie Baker"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10^ Cookie Baker>;EXENAME='curdir'\BAKE.EXE;STARTUPDIR='curdir
if existed = '' then setup = setup';PARAMETERS=COOKIE.TXT COOKIE.DAT'
call SysCreateObject classname,title,location,setup,u
rc = stream('cookie.ico','c','query exists')
title = "COOKIE.TXT"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10^COOKIE.TXT>;EXENAME=e.exe;PARAMETERS='curdir'\cookie.txt;STARTUPDIR='curdir
if rc \= '' then setup = setup';ICONFILE='rc
call SysCreateObject classname,title,location,setup,u
rc = stream('whatsnew.ico','c','query exists')
title = "WHATSNEW.DOC"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10^Whats New!>;EXENAME=e.exe;PARAMETERS='curdir'\whatsnew.doc;STARTUPDIR='curdir
if rc \= '' then setup = setup';ICONFILE='rc
call SysCreateObject classname,title,location,setup,u
rc = stream('ALLFIX!.DOC','c','query exists')
if rc \= '' then
do
title = "ALLFIX! v1.10^ Text Doc's"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10 Documentation>;EXENAME=e.exe;PARAMETERS='curdir'\allfix!.doc;STARTUPDIR='curdir
call SysCreateObject classname,title,location,setup,u
end
rc = stream('ALLFIX.INF','c','query exists')
if rc \= '' then
do
title = "ALLFIX! v1.10^ INF Doc's"
classname = 'WPProgram'
location = '<Allfix!_Folder>'
setup = 'OBJECTID=<ALLFIX! v1.10 OS/2 Documentation>;EXENAME=view.exe;PARAMETERS='curdir'\allfix.inf;STARTUPDIR='curdir
call SysCreateObject classname,title,location,setup,u
end
rc = stream('UPGRADE.LOG','c','query exists')
if rc \= '' then
do
title = "UPGRADE.LOG"
classname = 'WPShadow'
location = '<Allfix!_Folder>'
setup = 'SHADOWID='rc
call SysCreateObject classname,title,location,setup,u
end
/* Final words */
'cls'
say ''
say ''
say ''
say ''
say ''
say '
┌─────────────────────────────────────────────────────────────────────────────
'
say 'AC
┐C
│ ┌─────────────────────────────────────────────────────────────────────────
┐
'
say 'AC
│C
│ │
If you find a need to move ALLFIX to a different Directory, delete the
│
'
say 'AC
│C
│ │
ALLFIX Desktop folder and re-run INSTALL in the New ALLFIX Directory.
│
'
say 'AC
│C
│ └
─────────────────────────────────────────────────────────────────────────┘
'
say 'AC
│C
│
┌─────────────────────────────────────────────────────────────────────────
┐
'
say 'AC
│C
│
│
I am now done Installing the ALLFIX Desktop Folder!
│
'
say 'AC
│C
│
│
Please be sure to check all the settings for each program, as a default
│
'
say 'AC
│C
│
│
all programs will be opened in a DOS Window instead of a DOS Full
│
'
say 'AC
│C
│
│
Screen. Also be sure to check the parameters on such programs as Fcomp
│
'
say 'AC
│C
│
│
│
'
say 'AC
│C
│
│
If you havent Registered ALLFIX yet, please remember to do so soon.
│
'
say 'AC
│C
│
└
─────────────────────────────────────────────────────────────────────────┘
'
say 'AC
│C
└
─────────────────────────────────────────────────────────────────────────────
'
say 'AC
┘
'