home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 634.lha / CyberCron_v1.3 / rexx / CCShow.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-02  |  936 b   |  56 lines
  1. /***********************/
  2. /* CCShow.rexx         */
  3. /* 5/1/92 - caw        */
  4. /* based on            */
  5. /* NCShow.rexx         */
  6. /* 7/20/89 - Don Nafis */
  7. /***********************/
  8.  
  9.  
  10. /* Remove the comments below to trace this script. */
  11. /* trace ?r */
  12.  
  13. options failat 20
  14. options results
  15.  
  16. address cybercron
  17.  
  18. 'LIST_EVENTS'
  19. leResult = result
  20. if (result = "") then say "LIST_EVENTS error "
  21. else
  22. do
  23.   eventlist = result
  24.   numwords = words(eventlist)
  25.  
  26.   if (numwords > 0) then
  27.    if (word(eventlist,1) ~= "<None>") then do
  28.  
  29.     say
  30.     say 'CyberCron - Active Events:'
  31.     say
  32.  
  33.     do j=1 to numwords
  34.       event = word(eventlist,j)
  35.       'SHOW_EVENT '|| event
  36.     eventDisp = result
  37.       if (eventDisp == "") then
  38.         say '->' || event || ' not found.'
  39.       else
  40.         say '->' || eventDisp
  41.     end
  42.   end
  43.   else
  44.   do
  45.     say
  46.     say 'CyberCron has no active events.'
  47.   end
  48.  
  49.   say
  50.  
  51.   'SHOW_STATUS'
  52.     say 'Status: '||result
  53.   say
  54.  
  55. end
  56.