Category : BBS Programs+Doors
Archive   : WGT109A.ZIP
Filename : FRNTDOOR.BAT

rem @echo off
:loop
if exist c:\fd\file\nodediff.* goto xlax
if exist c:\bbs\fido\s3469.net goto fidogate
if exist c:\bbs\data\s656.net goto fidogate
if exist c:\bbs\toad\s3469.net goto toadgate
if exist c:\bbs\fido\p1.net goto fidonet
if exist c:\bbs\toad\p1.net goto toadnet
if exist c:\bbs\fido\z2.net goto clout
if exist c:\bbs\data\z1021.net goto clout
:frntdoor
cd c:\fd
fd
if errorlevel 221 goto wwiv
if errorlevel 220 goto wwiv
if errorlevel 219 goto wwiv
if errorlevel 218 goto wwiv
if errorlevel 217 goto wwiv
if errorlevel 216 goto wwiv
if errorlevel 215 goto wwiv
if errorlevel 214 goto wwiv
if errorlevel 213 goto wwiv
if errorlevel 212 goto wwiv
if errorlevel 211 goto wwiv
if errorlevel 210 goto wwiv
if errorlevel 180 goto wwivnet
if errorlevel 100 goto mailin
if errorlevel 99 goto daily
if errorlevel 98 goto telix
if errorlevel 97 goto wwivlcl
if errorlevel 96 goto cl102110
if errorlevel 95 goto cl210
if errorlevel 94 goto gechomgr
if errorlevel 10 goto userbrk
if errorlevel 0 goto quit
:wwiv
dobbs
goto loop
:wwivnet
cd c:\bbs
echo NN: >com1:
network
echo ATM0H1 >com1:
network1
network2
if exist c:\bbs\data\bbslist.51* goto update
goto loop
:clout
cd c:\bbs
clout
goto frntdoor
:cl102110
rem force callout, even if no datafile pending
cd c:\bbs
clout 1021 10
goto loop
:cl210
rem force callout, even if no datafile pending
cd c:\bbs
clout 2 10
goto loop
:wwivlcl
echo ATM0H1 >com1:
cd c:\bbs
call bbsfd.bat -m -o
cd c:\fd
echo ATM1H0 >com1:
goto loop
:update
network3 Y
goto loop
:mailin
rem fidonet mail processing
rem echo Running SQUISH to TOSS IN-COMING mail
rem echo Running SQUISH to TOSS IN-COMING mail >>c:\fd\logs\squish.out
echo Running GECHO to TOSS IN-COMING mail
echo ATM0H1 >com1:
rem cd c:\fd\sqsh
rem squish in out squash link >>c:\fd\logs\squish.out
cd c:\fd\gecho
gecho toss
:fidogate
echo ATM0H1 >com1:
cd c:\bbs
echo Running WWIVgate to Import/Export from FIDOnet
echo Running WWIVgate to Import/Export from FIDOnet >>c:\fd\logs\wwivgate.out
wwivgate >>c:\fd\logs\wwivgate.out
:toadgate
echo ATM0H1 >com1:
cd c:\bbs
echo Running WWIVgate to Import/Export from TOADnet
echo Running WWIVgate to Import/Export from TOADnet >>c:\fd\logs\wwivgate.out
wwivgate TOADnet >>c:\fd\logs\wwivgate.out
rem cd c:\fd\sqsh
rem echo Running SQUISH to Toss and Pack OUTGOING mail
rem echo Running SQUISH to Toss and Pack OUTGOING mail >>c:\fd\logs\squish.out
rem squish out squash link >>c:\fd\logs\squish.out
echo Running GECHO to Scan OUTGOING mail
cd c:\fd\gecho
gecho scan
echo ATM1H0 >com1:
goto loop
:telix
cd c:\telix
telix.exe
goto loop
:daily
cd c:\bbs
call daily.bat
goto loop
:xlax
cd c:\fd\xlax
copy c:\fd\nodelist\nodelist.* c:\fd\xlax
erase c:\fd\nodelist\nodelist.*
pkunpak c:\fd\file\nodediff.* c:\fd\xlax
erase c:\fd\file\nodediff.*
xlaxdiff /C >>c:\fd\logs\xlax.out
copy nodelist.* c:\fd\nodelist
erase nodelist.*
cd c:\fd
fdnc /C
goto loop
:fidonet
set wwiv_net=1
cd c:\bbs
network1
network2
set wwiv_net=
goto loop
:toadnet
set wwiv_net=2
cd c:\bbs
network1
network2
set wwiv_net=
goto loop
:gechomgr
cd c:\fd\gecho
gecho mgr
goto loop
:userbrk
echo ATM0H1 >com1:
echo Hit Enter to terminate back to OS/2
pause
exit
:quit
echo Something died - resetting modem
echo ATZ0 >com1:
goto loop