home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR24
/
OS2TONY.ZIP
/
RDB2.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-11-24
|
3KB
|
216 lines
ECHO Off
set wcnodeid=2
set wcportid=2
rem set wcmdm=11
mode com2:19,n,8,1,p
:START
C:
cd \Wc30
if BAD==%BAUD% goto bc
if Tame==1 goto db2
if 1==%live% goto WILDCAT
if 2==%live% goto returncat
:db2
set live=
set baud=
set Time=
C:
cd \db2
break ON
verify OFF
if exist C:\DB\files\fnews*.* goto fnews
if exist C:\DB\files\nodediff.* copy C:\DB\files\Nodediff.* C:\NODELIST
if exist c:\db\files\nodediff.* goto DEL
if exist c:\db\queue\n-po*.* goto mailer
if exist c:\db\files\*.tic goto wcff
if exist c:\db\files\*.fle goto wcff
C:\db2\db
if errorlevel 253 goto CLEANUP
if errorlevel 247 goto wildmail
if errorlevel 241 goto aview
if errorlevel 200 goto utils
if errorlevel 140 goto EXIT
if errorlevel 130 goto Wildcat
if errorlevel 120 goto Wcpro
if errorlevel 100 goto Lococat
if errorlevel 96 goto Start
IF ERRORLEVEL 90 GOTO FILELIST
if errorlevel 80 goto FNEWS
if errorlevel 50 goto LIVE
if errorlevel 35 goto MAKEWILD
if errorlevel 32 goto AFTER
if errorlevel 31 goto bundles
if errorlevel 30 goto QMPRO
if errorlevel 25 goto Menu
if errorlevel 0 goto START
goto START
:Utils
cd\db2
DBUTIL purge
goto start
:Nodelist
CD\ DB\FILES\
COPY C:\DB\FILES\NODEDIFF*.* C:DB\NODELIST
DEL NODEDIFF*.*
:OPEN
goto START
:WILDCAT
set LIVE=
C:
cd \Wc30
wildcat /B %baud% %Time%
if errorlevel 60 goto sofar
if errorlevel 50 goto live
if errorlevel 40 goto DROPDOS
if errorlevel 35 goto sofar
if errorlevel 32 goto bundles
if errorlevel 20 goto START
if errorlevel 18 goto START
if errorlevel 16 goto START
if errorlevel 14 goto START
if errorlevel 12 goto START
if errorlevel 10 goto START
if errorlevel 8 goto START
if errorlevel 4 goto START
if errorlevel 2 goto START
if errorlevel 1 goto START
if errorlevel 0 goto db2
goto START
:RETURNCAT
C:
cd \WILDCAT
set LIVE=
C:\wc30\wildcat
if errorlevel 60 goto START
if errorlevel 50 goto LIVE
if errorlevel 40 goto DROPDOS
if errorlevel 35 goto sofar
if errorlevel 0 goto END
goto START
:cleanup
C:
cd \wc30
SD
goto db2
:WCPRO
C:\
CD \WC30
WCPRO
GOTO START
:DROPDOS
C:
cd \Wc30
call dropdos.bat
goto returncat
:qmpro
C:
cd \QMPRO
QMPRO
goto START
:MENU
C:
CD \MENU
MENU
GOTO START
:LIVE
C:
cd \Wc30
call door.bat
goto RETURNCAT
:LOCOCAT
C:
cd \Wc30
C:\wc30\wildcat /B LOCAL
if errorlevel 60 goto START
if errorlevel 50 goto LIVE
if errorlevel 40 goto DROP2DOS
if errorlevel 35 goto ECHODOR
if errorlevel 1 goto db2
if errorlevel 0 goto db2
goto START
:MAKEWILD
C:
cd \Wc30
makewild
goto START
:AVIEW
C:
cd \wc30
DATACFG
goto start
:FINISH1
CD \WC30\WMAIL
WM Toss
goto start
:mailer
CD \db\point
copy c:\db\queue\n-point*.*
attrib -r -h -s n-point.*
arj e n-point.*
pkunzip n-point.*
del c:\db\queue\n-point.*
del n-point.*
rem del c:\db\queue\n-point.00*
rem if exist c:\wc30\inbound\*.pkt
goto finish1
:BULL4
COPY WM.LOG C:\WC30\BULL\BULL4.BBS
GOTO START
:WCFF
CD \WCFF
WCFF
goto start
:DEL
del c:\db\files\nodediff*.*
goto send
:send
cd C:\wm\^LASTMAIL
GOTO START
:SOFAR
cd \Wc30
goto start
:fnews
C:
cd \DB\FILES
LHA e fidonews*.LZH
copy fidonews.TXT C:\wc30\bull\bull2.bbs
;del fnews*.LZH
;del fnews*.LZH
goto start
:EXIT
cd\
:END