home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
OS2
/
ALRMP14G.ZIP
/
APINST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-01-03
|
3KB
|
103 lines
/* */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call SysCls
pos = SysCurPos(5,0)
say 'Enter the target drive and directory then press <ENTER>'
PULL targdrv
say ' '
say 'Enter the source drive and directory then press <ENTER>'
PULL srcepath
say ' '
say 'Installing Alarm Pro in 'targdrv
call STARTINSTALL
call INSTALRMPRO
say ' '
say '┌───────────────────────────────────────────┐'
say '│ │'
say '│ Alarm Pro INSTALLED │'
say '│ │'
say '│ Be sure that the selected directory is in │'
say '│ your LIBPATH= statement or .\ is in the │'
say '│ LIBPATH. See your CONFIG.SYS file. │'
say '│ │'
say '└───────────────────────────────────────────┘'
exit
STARTINSTALL:
call SysFileTree srcepath, 'file', 'D'
if file.0 = 0 then do
say 'Incorrect diskette in drive 'srcepath
exit
end
call SysFileTree targdrv, 'file', 'D'
if file.0 = 0 then do
call CREATEPATH
end
return /* STARTINSTALL */
INSTALRMPRO:
"@echo off"
copy srcepath'\*.* 'targdrv' >nul'
settings='OBJECTID=<ALARMPRO_FOLDER>;ICONFILE='srcepath'\folder.ico'
call SysCreateObject 'WPFolder', 'AlarmPro', '<WP_DESKTOP>', settings, 'REPLACE'
settings='PROGTYPE=PM;EXENAME='targdrv'\ALRMPRO.EXE;OBJECTID=<ALRMPRO>;STARTUPDIR='targdrv';CCVIEW=NO'
call SysCreateObject 'WPProgram', 'AlarmPro', '<ALARMPRO_FOLDER>', settings, 'REPLACE'
settings='PROGTYPE=PM;EXENAME='targdrv'\APIMPORT.EXE;OBJECTID=<APIMPORT>;STARTUPDIR='targdrv
call SysCreateObject 'WPProgram', 'Contact Import' , '<ALARMPRO_FOLDER>', settings, 'REPLACE'
settings='PROGTYPE=PM;EXENAME='targdrv'\APCONVTD.EXE;OBJECTID=<TDCONVRT>;STARTUPDIR='targdrv
call SysCreateObject 'WPProgram', 'Daily Planner Converter', '<ALARMPRO_FOLDER>', settings, 'REPLACE'
settings='PROGTYPE=PM;EXENAME=VIEW.EXE;OBJECTID=<APHELP>;STARTUPDIR='targdrv';PARAMETERS=ALRMPRO.INF'
call SysCreateObject 'WPProgram', 'AlarmPro Help', '<ALARMPRO_FOLDER>', settings, 'REPLACE'
echo on
return
CREATEPATH:
do I = 1 to 5 by 1
say ' '
say 'Press Y to create the directory 'targdrv
say 'Press N to end the install'
rc = SysGetKey()
say ' '
say ' '
select
when rc = 'Y' then do
rc = SysMkDir(targdrv)
if rc \= 0 then do
say 'Error Creating 'targdrv
say 'Install Ended unsuccessfully'
beep(454, 100)
exit
end
leave
end /* Do */
when rc = 'y' then do
rc = SysMkDir(targdrv)
if rc \= 0 then do
say 'Error Creating 'targdrv
say 'Install Ended unsuccessfully'
beep(454, 100)
exit
end
leave
end /* Do */
when rc = 'N' then leave
when rc = 'n' then leave
otherwise beep(454, 100)
end /* select */
end /* do */
return /* CREATEPATH */