home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / misc / rf911215.lha / fidopoll.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1991-12-10  |  1.5 KB  |  75 lines
  1. /* FIDOPoll.rexx  For use with Welmat 0.46+ */
  2.  
  3. /*
  4.  *  Simple script to call all fidonet sites who have pending outbound mail
  5.  *
  6.  *  Uses RexxFlow.Library by David Jones
  7.  *
  8.  * Russell McOrmond   rwm@Atronx.OCUnix.On.Ca   {tigris,alzabo,...}!atronx!rwm 
  9.  * FidoNet 1:163/109  Net Support: (613) 230-2282  Amiga-Fido Support  1:1/109 
  10.  * Gateway for .Amiga.OCUnix.On.Ca    Current WELMAT 'keeper of sources'.
  11.  *
  12.  */
  13.  
  14.  
  15. Options RESULTS
  16. Options failat 100
  17.  
  18. DTPRI_CRASH = 50
  19. DTPRI_HOLD  = -50 
  20.  
  21.  
  22. RC = 0
  23.  
  24. parse arg rest
  25.  
  26. address command 'flolist >t:FlowList.txt a'
  27. x=Open('flowlist',"t:FlowList.txt",'R')
  28. if x=0 then do
  29.    say "Error reading FlowList file!!!"
  30.    Exit 1  
  31. end
  32.  
  33. do forever
  34.  
  35.    Line=ReadLn('flowlist')
  36.  
  37.    if EOF('flowlist') then Leave
  38.  
  39.    Parse var Line System '09'x junk
  40.  
  41.    say 'system='System
  42.  
  43.    Parse Var System address.zone ":" address.net "/" address.node "." address.point
  44.    address.domain = "Fidonet"
  45.  
  46.    work_detail = FindDetail(address)
  47.    MaxPri = DetailMaxPri(work_detail)
  48.  
  49.    say work_detail " Pri " MaxPri
  50.    
  51.    if (MaxPri < 1) then Iterate 
  52.  
  53.    if (System == '1:163/139.0') then Iterate
  54.  
  55.    if (System == '1:163/227.0') then rest = " -nowazoo"
  56.  
  57.    if (left(System,5) ~= '1:163') then Iterate
  58.  
  59.    Address Command 'wctl -call 'System '-minpri 0' rest
  60.  
  61.    adelay= Getclip('wsched-delay')
  62.  
  63.    if ( words(adelay) == 1) then do
  64.          say 'Doing delay='adelay 'seconds'
  65.          call delay (50*adelay)  /* delay for 'quantum' seconds */
  66.    end
  67.  
  68.   end
  69.  
  70. x=Close('flowlist')
  71.  
  72. Exit RC
  73.  
  74.  
  75.