\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 |