home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
OFFLINE
/
TQM112.ZIP
/
TQM.BAT
< prev
Wrap
DOS Batch File
|
1992-08-14
|
2KB
|
66 lines
@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