home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: SysTools
/
SysTools.zip
/
crontab.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-01-18
|
2KB
|
80 lines
/************************************************************************/
/* install.cmd */
/* Created: 18 Jan 1998 */
/* Author: J. Pedone */
/* jpedone@flash.net */
/************************************************************************/
Call RxFuncAdd SYSLOADFUNCS, REXXUTIL, SYSLOADFUNCS
call SysLoadFuncs
Signal on Halt
tab='09'x
cr = '0d'x
lf = '0a'x
workdir = Directory()
fworkdir = workdir||'\'
/* Create Folder */
Folder.Name = 'Crontab'
Folder.id = 'JWP_CRONTABF'
sayit = Folder.Name 'folder'
classname='WPFolder'
title =folder.name
location ='<WP_DESKTOP>'
setup ='OBJECTID=<'folder.id'>;'||,
'ALWAYSSORT=YES'
Call build
Call SysSetObjectData '<'folder.id'>', 'OPEN=DEFAULT'
Call SysSetObjectData '<'folder.id'>', 'OPEN=DEFAULT'
/* Populate Folder */
item.0 = 2
item.1.id = 'JWP_CRON'
item.1.folderid = '<JWP_CRONTABF>'
item.1.exe = fworkdir||'CRON.CMD'
item.1.dir = workdir
item.1.name = 'Cron'
item.1.parms = ' '
sayit = item.1.name 'object'
item.2.id = 'JWP_CRONTAB'
item.2.folderid = '<JWP_CRONTABF>'
item.2.exe = fworkdir||'DRREXX.EXE'
item.2.dir = workdir
item.2.name = 'Cron Database^Manager'
item.2.parms = fworkdir||'CRONTAB.RES'
sayit = item.2.name 'object'
Do i = 1 to item.0
item.i.name = translate(item.i.name,'^',lf)
classname='WPProgram'
title = item.i.name
location = item.i.folderid
setup = 'OBJECTID=<'item.i.id'>;'||,
'EXENAME='item.i.exe';'||,
'PARAMETERS='item.i.parms';'||,
'STARTUPDIR='item.i.dir
call build
end
Exit
Syntax:
Say SourceLine(sigl)
Say "Syntax Error on line" sigl || ":"
Say ErrorText(rc)
Trace ?R ; NOP ; Exit
Halt:
Exit
build:
result = SysCreateObject(classname, title, location, setup, 'U')
If result \= 1 Then
Do
say sayit'... Not created! Return code='result
End
Say sayit' created'
Return