home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / crontab.zip / install.cmd < prev    next >
Encoding:
Text File  |  1998-01-18  |  2.1 KB  |  80 lines
  1. /************************************************************************/
  2. /* install.cmd                                                          */
  3. /* Created: 18 Jan 1998                                                 */
  4. /* Author: J. Pedone                                                    */
  5. /* jpedone@flash.net                                                    */
  6. /************************************************************************/
  7.  
  8. Call RxFuncAdd SYSLOADFUNCS, REXXUTIL, SYSLOADFUNCS
  9. call SysLoadFuncs
  10. Signal on Halt
  11. tab='09'x
  12. cr = '0d'x
  13. lf = '0a'x
  14. workdir = Directory()
  15. fworkdir = workdir||'\'
  16.  
  17. /* Create Folder */ 
  18.     Folder.Name = 'Crontab' 
  19.     Folder.id = 'JWP_CRONTABF'
  20.     sayit = Folder.Name 'folder'
  21.  
  22.     classname='WPFolder'
  23.     title    =folder.name
  24.     location ='<WP_DESKTOP>'
  25.     setup    ='OBJECTID=<'folder.id'>;'||,
  26.               'ALWAYSSORT=YES'
  27.     Call build
  28.     Call SysSetObjectData  '<'folder.id'>', 'OPEN=DEFAULT' 
  29.     Call SysSetObjectData  '<'folder.id'>', 'OPEN=DEFAULT' 
  30.  
  31. /* Populate Folder */
  32.     item.0 = 2
  33.  
  34.     item.1.id = 'JWP_CRON'
  35.     item.1.folderid = '<JWP_CRONTABF>'
  36.     item.1.exe = fworkdir||'CRON.CMD'
  37.     item.1.dir = workdir
  38.     item.1.name = 'Cron'
  39.     item.1.parms = ' '
  40.     sayit = item.1.name 'object'
  41.  
  42.     item.2.id = 'JWP_CRONTAB'
  43.     item.2.folderid = '<JWP_CRONTABF>'
  44.     item.2.exe = fworkdir||'DRREXX.EXE'
  45.     item.2.dir = workdir
  46.     item.2.name = 'Cron Database^Manager'
  47.     item.2.parms = fworkdir||'CRONTAB.RES'
  48.     sayit = item.2.name 'object'
  49.  
  50. Do i = 1 to item.0
  51.     item.i.name = translate(item.i.name,'^',lf)
  52.     classname='WPProgram'
  53.     title = item.i.name
  54.     location = item.i.folderid
  55.     setup = 'OBJECTID=<'item.i.id'>;'||,
  56.               'EXENAME='item.i.exe';'||,
  57.           'PARAMETERS='item.i.parms';'||,
  58.               'STARTUPDIR='item.i.dir
  59.     call build
  60.     end
  61. Exit
  62.  
  63. Syntax:
  64.     Say SourceLine(sigl)
  65.     Say "Syntax Error on line" sigl || ":"
  66.     Say ErrorText(rc)
  67.     Trace ?R ; NOP ; Exit
  68.  
  69. Halt:
  70.     Exit
  71.  
  72. build:
  73.     result = SysCreateObject(classname, title, location, setup, 'U')
  74.     If result \= 1 Then 
  75.        Do
  76.           say sayit'...   Not created! Return code='result
  77.        End
  78.     Say sayit' created'
  79. Return
  80.