[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
>> Sample FrontDoor batch file (Shell to mailer) <<
>> (c) John Barton, RemoteAccess HQ Europe <<
Echo Off
Cls
Device c:\zansi.sys
Bnuhlp /C
:Loop
f:
cd\ra
If Exist g:\trivia\*.mem Del g:\trivia\*.mem
If Exist g:\files\nodediff.* goto newnode
If exist f:\qmxout\bat1mail.* Del f:\qmxout\bat1mail.*
If Exist f:\qmx\744A????.* copy f:\qmx\744A????.* f:\qmxfiles
If Exist f:\qmx\744A????.* Del f:\qmx\744A????.*
RA -mH:\FD\Fd.exe*M -E20
If Errorlevel 170 Goto Hilmar
If Errorlevel 130 Goto Weekly
If Errorlevel 120 Goto Makenl
If Errorlevel 110 Goto Qmxmail
If Errorlevel 100 Goto Local
If Errorlevel 80 Goto Pack
If Errorlevel 70 Goto Clean
If Errorlevel 60 Goto Newnode
If Errorlevel 50 Goto Unpackmail
If Errorlevel 36 Goto BBScall
If Errorlevel 35 Goto BBScall
If Errorlevel 34 Goto BBScall
If Errorlevel 33 Goto BBScall
If Errorlevel 32 Goto BBScall
If Errorlevel 31 Goto BBScall
If Errorlevel 30 Goto Test
If errorlevel 20 Goto Loop
If errorlevel 10 goto Out
If Errorlevel 5 goto BBScall
If Errorlevel 4 Goto BBScall
If Errorlevel 3 Goto BBScall
Goto Loop
:BBScall
f:
cd\ra
Goto Loop
:Qmxmail
Copy f:\qmxfiles\744A????.* g:\files
Del f:\qmxfiles\744A????.*
h:
cd \fd
Tosscan Toss /nomgr
Amgrfix
Tosscan mgr
Tsutil Link -t -f import.xyz
Goto Loop
:Local
f:
cd\ra
RA -L
Goto Loop
:Restart_RA
Echo Please WAIT! Returning to BBS..... >Com2
f:
cd \ra
RA -R -C2 -E0
Goto Loop
:After_RA
if errorlevel 6 goto outside
if errorlevel 5 goto both
if errorlevel 4 goto echo
if errorlevel 3 goto Net
goto Loop
:Weekly
f:
cd\ra
RaNode signodes.* eegglist.* fnwlist.* gmnlist.* netlist.* netalist.*
Copy f:\ra\*.log h:\logs
Copy h:\fd\fd.log h:\logs
Del f:\ra\*.log
Del h:\fd\fd.log
Goto Loop
:Clean
f:
cd \ra
Remotlog
Tick.exe
Rabest.exe 10
Rauser -P -V
h:
cd \fd
Tsutil Maint -o -r
f:
cd f:\ra\txtfiles
maxi f:\ra
cd\ra
Qfc.exe
Availist
cd\tw
Twmaint /l /b
Optune f: /on
goto Loop
:Outside
Ctty Com2:
Command
f:
cd \ra
goto after_quick
ctty con
:Unpackmail
h:
cd\fd
Tosscan toss /nomgr
Amgrfix
Tosscan mgr
Tsutil Link -t -f import.xyz
Tsutil Import -f
Goto Loop
:Hilmar
If Exist g:\packets\0000f4f0.* Copy g:\packets\0000f4f0.* h:\hilmar
Del g:\packets\0000f4f0.*
goto Loop
:finish_quick
f:
cd \ra
goto Loop
:Pack
h:
cd\fd
Tosscan scan /nomgr
Amgrfix
Tosscan mgr
Tsutil export -A -K
goto Loop
:Newnode
g:
cd \files
if NOT EXIST Nodediff.* goto Loop
Pkxarc -r Nodediff.* e:\nodelist
Pkxarc -r Eeggdiff.* e:\nodelist
Pkxarc -r netdiff.* e:\nodelist
Pkxarc -r chatdiff.* e:\nodelist
f:
cd\ra
Robo Nodediff
e:
cd \nodelist
Xlaxdiff /o=e:\nodelist\nodelist. /e=e:\nodelist\nodediff.
Xlaxdiff /o=e:\nodelist\eegglist. /e=e:\nodelist\eeggdiff.
Xlaxdiff /o=e:\nodelist\netlist. /e=e:\nodelist\netdiff.
Xlaxdiff /o=e:\nodelist\chatlist. /e=e:\nodelist\chatdiff.
xlaxnode
h:
cd \fd
Fdnc /f
Del e:\nodelist\nodediff.*
goto Loop
:Makenl
cls
Echo Weekly Nodediff Processing for Net 257....
if exist g:\netfiles\n257list.* del g:\netfiles\n257list.*
if exist g:\netfiles\n8list.* del g:\netfiles\n8list.*
e:
cd \newmake
makenl >> makenl.log
Rem Makenl cnet4408.ctl >> Makenl.log
if exist g:\netfiles\n257list.* copy g:\netfiles\n257list.* e:\newmake
if exist g:\netfiles\n8list.* copy g:\netfiles\n8;list.* e:\newmake
if exist g:\netfiles\n257list.* copy g:\netfiles\n257????.* e:\nodelist
if exist g:\netfiles\n8list.* copy g:\netfiles\n8list.* e:\nodelist
f:
cd \ra
goto loop
:Out
cls
f:
cd\ra
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson