🚀 go-pugleaf

rsm@delfax.Amiga.OCunix.On.Ca (Rick Morrow) writes:
>   Another very welcome addition is the addition of result codes to uucico.
>This lets you do a looping caller without having to check the logfile to
>see if the last poll was successful or not. Here is a short ARexx script
>that I am using to do my polling;

I've taken your examples and written one for use with Welmat. All I need
now is a little script that will scan for c.<site>#? files and dial accordingly.

/* 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
 *
 */


Options RESULTS
Options failat 100

parse arg callsystem

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

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 callsystem ~= System then Iterate

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

   x=Close('lsys')

   Exit RC
end

Exit 1

--
  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'.