home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / misc / wlmt4714.lha / rexx / wsched.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1992-02-07  |  878 b   |  52 lines
  1. /*
  2.  *  Basic Welmat Fidonet/UUCP scheduler
  3.  *
  4.  */
  5.  
  6. Options RESULTS
  7. Options failat 99999
  8. address rexx
  9.  
  10. if (~openport('wsched')) then do
  11.    say 'not unique' 
  12.    exit 1
  13. end
  14.  
  15. setclip('wsched','go')
  16.  
  17. say "WSched Starting"
  18.  
  19. do while (Getclip('wsched') == 'go')
  20.  
  21.    say getclip('wshed')
  22.  
  23.    say 'calling uupoll'
  24.  
  25.    call uupoll('hasmail') 
  26.  
  27. /*
  28.    if (index(Showdir("uuspool:",'Files'),'X.') > 0)   then do 
  29.       address command 'run rx uuxqt'
  30.    end
  31.  
  32. */
  33.  
  34.    address command 'lookup 1:163/0'
  35.    say 'calling fidopoll'
  36.    call fidopoll()
  37.  
  38. /*
  39.    if (index(upper(Showdir("welmat:inbound/",'Files')),'.PKT') > 0)   then do 
  40.       address command 'run rx import'
  41.    end
  42. */
  43.  
  44.    adelay= Getclip('wsched-quantum')
  45.    if ( words(adelay) == 1) then do
  46.          say 'doing delay of 'adelay' seconds'
  47.          call delay (50*adelay)  /* delay for 'adelay' seconds */
  48.    end
  49. end
  50.  
  51. say "WSched Exit"
  52.