home *** CD-ROM | disk | FTP | other *** search
- @echo off
-
- dtr com1:on
- echo ATH0M0 >com1
-
- :START
- cls
- c:
- cd \mail
-
- btbig unattended
- if errorlevel 200 GOTO ENDER
- if errorlevel 197 GOTO GTMAIL
- if errorlevel 192 goto LOADGT
- if errorlevel 100 goto START
- if errorlevel 96 goto LOADGT
- if errorlevel 90 goto START
- if errorlevel 80 goto FIDOREAD
- if errorlevel 71 goto MAINT
- if errorlevel 70 goto GTREAD
- if errorlevel 61 goto MORNMAIL
- if errorlevel 60 goto START
- if errorlevel 50 goto UNPKT
- if errorlevel 40 goto TERMBINK
- if errorlevel 30 goto GTBAGGER
- if errorlevel 24 goto LOADGT
- if errorlevel 20 goto FILEMAN
- if errorlevel 12 goto LOADGT
- if errorlevel 10 goto START
- if errorlevel 3 goto LOADGT
- if errorlevel 1 goto ENDER
- GOTO ENDER
-
-
- :GTBAGGER
- h:
- cd \
- dtr com1:on
- echo ATM0H1>com1
- h:
- cd \
- mbag500 /x /np /z /l
- msroute
- echo ATH0>com1
- GOTO START
-
-
- :MORNMAIL
- h:
- cd \
- call msgdel
- mbag500 /x /d6 /z /l
- call crash 001023
- call crash 007000
- call crash 007001
- call crash 900009
- mdist500
- call msgdel
- GOTO START
-
-
- :FIDOREAD
- c:
- cd \mail
- dtr com1:on
- echo ATM0H1>com1
- me2
- echo ATH0>com1
- GOTO START
-
- :FILEMAN
- c:
- cd \
- dtr com1:on
- echo ATM0H1>com1
- pfm
- echo ATH0>com1
- GOTO START
-
- :GTREAD
- c:
- cd \
- dtr com1:on
- be delay 5
- echo ATM0H1>com1
- mmr
- echo ATH0>com1
- GOTO START
-
-
- :GTMAIL
- rem Detected inbound mdriver netmail run
- mailbat
- GOTO START
-
- :LOADGT
- bbsbatch
- rem BBSBATCH calls SPAWNBBS which should be responsible for
- rem reloading bt...
- GOTO START
-
- :MAINT
- rem Maintenance, Runs once each day
- h:
- cd \bin
- call msgdel
- h:
- cd \bin
- runon copy gtnet.log e:\bbswork\!Enet.log
- runon copy gt.log e:\bbswork\!Ehost.log
- runon copy msroute.log e:\bbswork\!Erout.log
- del gtnet.log
- del gt.log
- del msroute.log
- eblist
- copy 01060960.* c:\mail
- copy 01060960.txt h:\files\bullet\4
- del 01060960.*
- GOTO START
-
-
- :UNPKT
- rem Unpack received fidonet mail
- echo Errorlevel 50 detected, upacking mail.
- dtr com1:on
- echo ATM0H1>com1
- c:
- cd \mail
- qm toss
- qm scan pack
- h:
- cd \fidowork
- gtfido
- rem * remove control Z's from MES files.
- call gt16zkil
- c:
- cd \mail
- qm scan pack
- echo ATH0>com1
- GOTO START
-
-
-
- :TERMBINK
- h:
- cd \bin
- gt1706a *xxxx-xxxx /d /s /v:d
- GOTO START
-
-
- :ENDER
- dtr com1:on
- echo ATH1M0>com1
-
-