\fidogate\checkpkt.cmd

Sieht alle 60 Sekunden nach, ob ein Netmail-PKT in \fidogate\spool\out liegt. Wenn ja, wird das PKT in den lokalen Inbound des Mailers verschoben und der Tosser startet.

Gestartet wird dieses Programm über die Datei START_CHECKPKT.CMD. Die Datei TOSSEN.CMD startet den Fidonet-Tossvorgang, um das in den lokalen Inbound des Mailers kopierte FTN-PKT zu verarbeiten.


/* CHECKPKT.CMD */
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
do forever
ret = stream("f:\fidogate\spool\out\*.pkt", 'C', "query exists")
if ret \= "" then do
 'copy f:\fidogate\spool\out\*.pkt f:\mailer\inbound\local'
 'del f:\fidogate\spool\out\*.pkt'
 'detach f:\mailer\tossen.cmd'
 end
else do
  call SysSleep 60
  end
end