home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR24 / OS2TONY.ZIP / RDB2.BAT < prev    next >
DOS Batch File  |  1993-11-24  |  3KB  |  216 lines
  1. ECHO Off
  2. set wcnodeid=2
  3. set wcportid=2
  4. rem set wcmdm=11
  5. mode com2:19,n,8,1,p
  6.  
  7. :START
  8.  
  9. C:
  10. cd \Wc30
  11.  if BAD==%BAUD% goto bc
  12.  if Tame==1 goto db2
  13.  if 1==%live% goto WILDCAT
  14.  if 2==%live% goto returncat
  15.  
  16. :db2
  17.  set live=
  18.  set baud=
  19.  set Time=
  20.  C:
  21.  cd \db2
  22.  break ON
  23.  verify OFF
  24. if exist C:\DB\files\fnews*.* goto fnews
  25. if exist C:\DB\files\nodediff.* copy C:\DB\files\Nodediff.* C:\NODELIST
  26. if exist c:\db\files\nodediff.* goto DEL
  27. if exist c:\db\queue\n-po*.* goto mailer
  28. if exist c:\db\files\*.tic goto wcff
  29. if exist c:\db\files\*.fle goto wcff
  30.  
  31. C:\db2\db
  32.  if errorlevel 253 goto CLEANUP
  33.  if errorlevel 247 goto wildmail
  34.  if errorlevel 241 goto aview
  35.  if errorlevel 200 goto utils
  36.  if errorlevel 140 goto EXIT
  37.  if errorlevel 130 goto Wildcat
  38.  if errorlevel 120 goto Wcpro
  39.  if errorlevel 100 goto Lococat
  40.  if errorlevel 96  goto Start
  41.  IF ERRORLEVEL 90 GOTO FILELIST
  42.  if errorlevel 80 goto FNEWS
  43.  if errorlevel 50 goto LIVE
  44.  if errorlevel 35 goto MAKEWILD
  45.  if errorlevel 32 goto AFTER
  46.  if errorlevel 31 goto bundles
  47.  if errorlevel 30 goto QMPRO
  48.  if errorlevel 25 goto Menu
  49.  if errorlevel 0 goto START
  50.  
  51.  goto START
  52.  
  53. :Utils
  54. cd\db2
  55. DBUTIL purge
  56. goto start
  57.  
  58. :Nodelist
  59. CD\ DB\FILES\
  60. COPY C:\DB\FILES\NODEDIFF*.* C:DB\NODELIST
  61. DEL NODEDIFF*.*
  62.  
  63. :OPEN
  64. goto START
  65.  
  66. :WILDCAT
  67. set LIVE=
  68. C:
  69. cd \Wc30
  70. wildcat /B %baud% %Time%
  71.  if errorlevel 60 goto sofar
  72.  if errorlevel 50 goto live
  73.  if errorlevel 40 goto DROPDOS
  74.  if errorlevel 35 goto sofar
  75.  if errorlevel 32 goto bundles
  76.  if errorlevel 20 goto START
  77.  if errorlevel 18 goto START
  78.  if errorlevel 16 goto START
  79.  if errorlevel 14 goto START
  80.  if errorlevel 12 goto START
  81.  if errorlevel 10 goto START
  82.  if errorlevel 8 goto START
  83.  if errorlevel 4 goto START
  84.  if errorlevel 2 goto START
  85.  if errorlevel 1 goto START
  86.  if errorlevel 0 goto db2
  87.  goto START
  88.  
  89. :RETURNCAT
  90.  C:
  91.  cd \WILDCAT
  92.  set LIVE=
  93.  C:\wc30\wildcat
  94.  if errorlevel 60 goto START
  95.  if errorlevel 50 goto LIVE
  96.  if errorlevel 40 goto DROPDOS
  97.  if errorlevel 35 goto sofar
  98.  if errorlevel 0 goto END
  99.  goto START
  100.  
  101. :cleanup
  102. C:
  103. cd \wc30
  104. SD
  105. goto db2
  106.  
  107. :WCPRO
  108. C:\
  109. CD \WC30
  110. WCPRO
  111. GOTO START
  112.  
  113. :DROPDOS
  114. C:
  115. cd \Wc30
  116. call dropdos.bat
  117. goto returncat
  118.  
  119.  :qmpro
  120.  C:
  121.  cd \QMPRO
  122.  QMPRO
  123.  goto START
  124.  
  125. :MENU
  126. C:
  127. CD \MENU
  128. MENU
  129. GOTO START
  130.  
  131. :LIVE
  132. C:
  133. cd \Wc30
  134. call door.bat
  135. goto RETURNCAT
  136.  
  137. :LOCOCAT
  138.  C:
  139.  cd \Wc30
  140.  C:\wc30\wildcat /B LOCAL
  141.  if errorlevel 60 goto START
  142.  if errorlevel 50 goto LIVE
  143.  if errorlevel 40 goto DROP2DOS
  144.  if errorlevel 35 goto ECHODOR
  145.  if errorlevel 1 goto db2
  146.  if errorlevel 0 goto db2
  147.  goto START
  148.  
  149. :MAKEWILD
  150. C:
  151. cd \Wc30
  152. makewild
  153. goto START
  154.  
  155. :AVIEW
  156. C:
  157. cd \wc30
  158. DATACFG
  159. goto start
  160.  
  161.  
  162. :FINISH1
  163. CD \WC30\WMAIL
  164. WM Toss
  165. goto start
  166.  
  167. :mailer
  168. CD \db\point
  169. copy c:\db\queue\n-point*.*
  170. attrib -r -h -s n-point.*
  171. arj e n-point.*
  172. pkunzip n-point.*
  173. del c:\db\queue\n-point.*
  174. del n-point.*
  175. rem del c:\db\queue\n-point.00*
  176. rem if exist c:\wc30\inbound\*.pkt 
  177. goto finish1
  178.  
  179. :BULL4
  180. COPY WM.LOG C:\WC30\BULL\BULL4.BBS
  181. GOTO START
  182.  
  183.  
  184. :WCFF
  185. CD \WCFF
  186. WCFF
  187. goto start
  188.  
  189. :DEL
  190. del c:\db\files\nodediff*.*
  191. goto send
  192.  
  193. :send
  194. cd C:\wm\^LASTMAIL
  195.  
  196. GOTO START
  197.  
  198. :SOFAR
  199. cd \Wc30
  200. goto start
  201.  
  202. :fnews
  203. C:
  204. cd \DB\FILES
  205. LHA e fidonews*.LZH
  206. copy fidonews.TXT C:\wc30\bull\bull2.bbs
  207. ;del fnews*.LZH
  208. ;del fnews*.LZH
  209. goto start
  210.  
  211.  
  212. :EXIT
  213. cd\
  214.  
  215. :END
  216.