home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 634.lha / CyberCron_v1.3 / rexx / CyberCron.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1992-05-06  |  1.1 KB  |  33 lines
  1. /* set up CyberCron for wakeup calls */
  2.  
  3. /* make sure we have rexxsupport around */
  4. if ~show('l','rexxsupport.library') then
  5.     addlib('rexxsupport.library',0,-30,0)
  6.  
  7. if showlist('Ports',CYBERCRON) = 0 then do
  8.     address command 'RunWSH >nil: <nil: EXE:UsedOnlyOnce/CyberCron logfile T:CyberCronLog defstack 25000 sendmail "sendmail -f %s -R *"%s*""'
  9.     address command 'WaitForPort CYBERCRON'
  10. end
  11. if showlist('Ports',CYBERCRON) = 0 then do
  12.     say 'Unable to load CyberCron.'
  13.     exit 10
  14. end
  15.  
  16. address CYBERCRON
  17.  
  18. /* wake up calls */
  19. 'ADD_EVENT :NAME MonWed 15-59 7 * * 1,3 :REXX PlaySound :NOLOG'
  20. 'ADD_EVENT :NAME MonWedReset 0 8 * * 1,3 :REXX `setclip(NOSOUND)'
  21. 'ADD_EVENT :NAME TueThu 15-59 9 * * 2,4 :REXX PlaySound :NOLOG'
  22. 'ADD_EVENT :NAME TueThuReset 0 10 * * 2,4 :REXX `setclip(NOSOUND)'
  23. 'ADD_EVENT :NAME Fri 15-59 6 * * 5 :REXX PlaySound :NOLOG'
  24. 'ADD_EVENT :NAME FriReset 0 7 * * 5 :REXX `setclip(NOSOUND)'
  25.  
  26. 'ADD_EVENT :NAME Sat 15-59 8 * * 6 :REXX PlaySound :NOLOG'
  27. 'ADD_EVENT :NAME SatReset 0 9 * * 6 :REXX `setclip(NOSOUND)'
  28.  
  29. 'ADD_EVENT :NAME Sun 0-45 11 * * 0 :REXX PlaySound :NOLOG'
  30. 'ADD_EVENT :NAME SunReset 46 11 * * 0 :REXX `setclip(NOSOUND)'
  31.  
  32. exit 0
  33.