home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / misc / wlmt4714.lha / rexx / fidopoll.rexx next >
Encoding:
OS/2 REXX Batch file  |  1992-01-28  |  1.8 KB  |  81 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') & (left(System,5) ~= '1:243') then Iterate
  58.    
  59.    doline=''
  60.  
  61.    if System == '1:163/239.0' then doline='-useline 2'
  62.    if System == '1:163/262.0' then doline='-useline 2'
  63.    if System == '1:243/23.0' then doline='-useline 2'
  64.    if System == '1:163/109.31' then doline='-useline 2'
  65.    if System == '1:163/123.0' then doline='-useline 1'
  66.  
  67.    Address Command 'wctl '||doline||' -call 'System '-minpri 0' rest
  68.  
  69.    adelay= Getclip('wsched-delay')
  70.  
  71.    if ( words(adelay) == 1) then do
  72.          say 'Doing delay='adelay 'seconds'
  73.          call delay (50*adelay)  /* delay for 'quantum' seconds */
  74.    end
  75.  
  76.   end
  77.  
  78. x=Close('flowlist')
  79.  
  80. Exit RC
  81.