home *** CD-ROM | disk | FTP | other *** search
- @echo off
- set tz=8
- call netset
- Rem Standard mail unpacking routine
- Rem Set a flag so mail will not be scanned and tossed at the same time.
- d:
- Rem Toss any mail into the message base.
- cd\qbbs
- :retoss
- fastecho toss
- if exist packqbbs.fe if not exist node2.up goto packqbbs
- feutil import -incl d:\qbbs\users.bbs
- mt
- if exist e:\qbbs\import.xyz move e:\qbbs\import.xyz
- feutil link -force
- c:
- Rem run Tick for file echoing.
- if exist c:\qbbs\file\*diff.* copy *diff.* ..\files
- if exist c:\qbbs\file\*list.* copy *list.* ..\files
- if exist c:\qbbs\file\*diff.* copy c:\config.sys d:\qbbs\process.txt
- if exist c:\qbbs\file\*list.* copy c:\config.sys d:\qbbs\process.txt
- cd\filemgr
- filemgr scan mgr announce
- d:
- cd\qbbs
- fastecho pack
- echo hi > d:\fdoor\fdrescan.now
- goto out
- :packqbbs
- feutil purge
- feutil pack -overwrite
- del packqbbs.fe
- goto retoss
- :out
- set tz=
-
-