Category : BBS Programs+Doors
Archive   : TQM100.ZIP
Filename : TQM.BAT

@echo off

rem *-------------------------------------------------*
rem Make sure there's a node number. Use the one
rem on the command line if passed, or if it's
rem already set, leave it alone. Otherwise, use 1.
rem *-------------------------------------------------*

if not %1?==? goto CmdLine
if not %NODE%?==? goto Environ
goto Node1

:CmdLine

rem *-------------------------------------------------*
rem TQM node number passed on the command line.
rem *-------------------------------------------------*

copy c:\rbbs\node%1\drst%1.def c:\rbbs
c:
cd \rbbs\tqm
tqm %1
del c:\rbbs\drst%1.def
cd \rbbs
goto End

:Environ

rem *-------------------------------------------------*
rem TQM node number passed in the DOS environment.
rem *-------------------------------------------------*

copy c:\rbbs\node%NODE%\drst%NODE%.def c:\rbbs
c:
cd \rbbs\tqm
tqm %NODE%
del c:\rbbs\drst%NODE%.def
cd \rbbs
goto End

:Node1

rem *-------------------------------------------------*
rem TQM node number not given, use 1.
rem *-------------------------------------------------*

copy c:\rbbs\node1\drst1.def c:\rbbs
c:
cd \rbbs\tqm
tqm 1
del c:\rbbs\drst1.def
cd \rbbs
goto End

:End

rem *-------------------------------------------------*
rem If in the local mode, TQM leaves a QWK packet in
rem its work directory if the SysOp D)ownloads. If it
rem exists, move it to the SLMR directory.
rem *-------------------------------------------------*

rem if exists c:\rbbs\tqm\work\1\*.QWK copy c:\rbbs\tqm\work\1\*.QWK C:\SLMR
rem if exists c:\rbbs\tqm\work\1\*.QWK del c:\rbbs\tqm\work\1\*.QWK