🚀 go-pugleaf

Well, here is my UUPOLL.rexx script.  It now understands the system
names 'hasmail' (Checks if the site has mail) and 'all' (Will call all
sites).

 Let me know if there are any problems:  If you find these types of scripts
usefull, also let me know.  I'll not bother posting them if people do not
find them usefull.


/* UUPoll.rexx  For use with Welmat 0.46+ and AmigaUUCP 1.13+ */

/*
 * This script allows WELMAT to handle the dialing for you rather
 * than requiring that the line be taken down before each call
 *
 * Russell McOrmond   rwm@Atronx.OCUnix.On.Ca   {tigris,alzabo,...}!atronx!rwm 
 * FidoNet 1:163/109  Net Support: (613) 230-2282  Amiga-Fido Support  1:1/109 
 * Gateway for .Amiga.OCUnix.On.Ca    Current WELMAT 'keeper of sources'.
 *
 */


Options RESULTS
Options failat 100

RC = 0

parse arg callsystem rest

x=Open('lsys',"UULib:l.sys",'R')

if (callsystem = 'all') | (callsystem = 'hasmail') then spoolfiles=Showdir("uuspool:",'Files')

if x=0 then do
   SysopLog "Error reading UULib:l.sys file!!!"
   Exit 1
end

do forever

   Line=ReadLn('lsys')

   if EOF('lsys') then Leave

   if Left(Line,1)='#' then Iterate

   Parse var Line System ' ' Times ' ' Device ' ' Baud ' ' Phone ' ' Junk

   if (Times = 'Never') then Iterate   

   if (callsystem ~= 'all') & (callsystem ~= 'hasmail') & (callsystem ~= System)
               then Iterate

   if (callsystem = 'hasmail') & ( index(spoolfiles,'C.' || System) < 1)
                then Iterate 

   Address Command 'wctl -call 1:1/1.0 -number' Phone '-nofido -prerun "uucp:c/uucico -o -s' || System '-DEVICE %d -UNIT %u"' rest

   if (callsystem ~= 'all') & (callsystem ~= 'hasmail') then Leave

end

x=Close('lsys')

Exit RC


--
  Destroy the Modem 'Tower of Babel' - Buy only V.32(bis) high-speed modems
  Opinions expressed in this message are my Own. I represent nobody else.
  Russell McOrmond   rwm@Atronx.OCUnix.On.Ca   {tigris,alzabo,...}!atronx!rwm 
  FidoNet 1:163/109  Net Support: (613) 230-2282  Amiga-Fido Support  1:1/109 
  Gateway for .Amiga.OCUnix.On.Ca    Current WELMAT 'keeper of sources'.