home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / DVTAG.ZIP / MAILER.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-12-22  |  4.1 KB  |  185 lines
  1. Rem            -=[  FrontDoor batch file for The Abacus - Node 3  ]=-
  2. @echo off
  3.  
  4. :Reset
  5. echo ..........................Starting up FrontDoor.............................
  6. c:
  7. cd\bbs\s
  8. tagswap 1 c:\bbs\s\ c:\bbs\s\ >nul
  9. del logon2.msg > nul
  10. murphy > logon2.msg
  11. if exist \bbs\gfiles\nettoss.log goto matrix
  12. if exist \bbs2\gfiles\nettoss.log goto matrix
  13. if exist \bbs3\gfiles\nettoss.log goto matrix
  14. if exist \bbs4\gfiles\nettoss.log goto matrix
  15.  
  16. :loop
  17. modem 3 on>nul
  18. cd\bbs3\fd
  19. fd
  20.  
  21. :levels
  22. if errorlevel 224 goto 2400
  23. if errorlevel 220 goto wait
  24. if errorlevel 219 goto 19200
  25. if errorlevel 214 goto 14400
  26. if errorlevel 212 goto 1200
  27. if errorlevel 210 goto local
  28. if errorlevel 206 goto mailout
  29. if errorlevel 205 goto getfiles
  30. if errorlevel 204 goto renumber
  31. if errorlevel 203 goto 300
  32. if errorlevel 202 goto events
  33. if errorlevel 150 goto mailin
  34. if errorlevel 100 goto sysoplog
  35. if errorlevel  96 goto 9600
  36. if errorlevel  90 goto fdlog
  37. if errorlevel  80 goto qmodem
  38. if errorlevel  70 goto mailout
  39. if errorlevel  60 goto events
  40. if errorlevel  50 goto amax
  41. if errorlevel  40 goto renumber
  42. if errorlevel  30 goto mailin
  43. if errorlevel  10 goto quit
  44. if errorlevel   1 goto end
  45.  
  46. :mailout
  47. modem 3 off>nul
  48. if exist c:\bbs\in\nodediff.a* gosub nodeproc
  49. call mailout
  50. goto reset
  51.  
  52. :mailin
  53. modem 3 off>nul
  54. cd\bbs3\fd
  55. if exist c:\bbs\in\*.fle gosub ticfle
  56. if exist c:\bbs\in\*.tic gosub tictic
  57. qm toss scan pack link -cc:\bbs3\fd\qm.cfg -ac:\bbs3\fd\areas.bbs
  58. if exist c:\bbs\out\*.$$* del c:\bbs\out\*.$$*
  59. if exist c:\bbs\in\f159_*.* move c:\bbs\in\f159_*.* d:\lists
  60. if exist c:\bbs\in\*.zip move c:\bbs\in\*.zip d:\files
  61. if exist c:\bbs\in\*.arc move c:\bbs\in\*.arc d:\files
  62. if exist c:\bbs\in\*.lzh move c:\bbs\in\*.lzh d:\files
  63. if exist c:\bbs\in\*.sdn move c:\bbs\in\*.sdn d:\files
  64. if exist c:\bbs\in\*.arj move c:\bbs\in\*.arj d:\files
  65. goto reset
  66.  
  67. :matrix
  68. modem 3 off>nul
  69. cd\bbs3\fd
  70. qm pack
  71. if exist c:\bbs\gfiles\nettoss.log del c:\bbs\gfiles\nettoss.log
  72. if exist c:\bbs2\gfiles\nettoss.log del c:\bbs2\gfiles\nettoss.log
  73. if exist c:\bbs3\gfiles\nettoss.log del c:\bbs3\gfiles\nettoss.log
  74. if exist c:\bbs4\gfiles\nettoss.log del c:\bbs4\gfiles\nettoss.log
  75. goto reset
  76.  
  77. :ticfle
  78. cd\bbs3\fd
  79. ticket -me:\msgs\announce -tAbacus_Users -FTAG_Distribution_System -Lc:\bbs3\fd\fle.log -STDS_Files_Received -aTAGUTIL -aTAGDIST -aTAGDOORS
  80. ticket -me:\msgs\announce -p -tDeb_Ackley -FTAG_Beta_Distribution_System -Lc:\bbs3\fd\fle.log -STAG_Beta_Files_Received -aBETA
  81. ticket -me:\msgs\announce -tAbacus_Users -FSDN_Distribution_System -Lc:\bbs3\fd\fle.log -SSDN_Files_Received -aSDN_SYST -aSDN_MISC -aSDN_WORD -aSDN_DATA -aSDN_COMM -aSDN_UTIL -aSDN_GAME -aSDN_BUSI
  82. ticket -me:\msgs\announce -tAbacus_Users -FSDS_Distribution_System -Lc:\bbs3\fd\fle.log -SSDS_Files_Received -aSDSBINK -aSDSMAX
  83. ticket -me:\msgs\announce -tAbacus_Users -FN159Files_Distribution_System -Lc:\bbs3\fd\fle.log -SNet159_Files_Received -aFIDONEWS -aNODELIST -aSCAN1 -aSCAN2 -aCOSTS -aN159ELST -aN159FILS -aLBBSLIST
  84. ticket -me:\msgs\announce -tAbacus_Users -FDVNET_Distribution_System -Lc:\bbs3\fdfle.log -SDVNET_Files_Received -a100-850
  85.  
  86. :tictic
  87. cd\bbs3\fd
  88. sds2dir -FC:\bbs\multi -L c:\bbs3\fd\tic.log
  89. tick >> c:\bbs3\fd\tic.log
  90. qm scan pack -ftick.bbs
  91. echo Tic or Fle files received >> c:\bbs\s\user1.msg
  92. return
  93.  
  94. :getfiles
  95. modem 3 off>nul
  96. call get
  97. goto loop
  98.  
  99. :renumber
  100. modem 3 off>nul
  101. call xnum
  102. goto loop
  103.  
  104. :events
  105. modem 3 off>nul
  106. call events3
  107. goto loop
  108.  
  109. :nodeproc
  110. modem 3 off>nul
  111. call nodeproc
  112. return
  113.  
  114. :sysoplog
  115. modem 3 off>nul
  116. l \bbs3\gfiles\sysop.log
  117. goto loop
  118.  
  119. :fdlog
  120. modem 3 off>nul
  121. l \bbs3\fd\fd.log
  122. goto loop
  123.  
  124. :qmodem
  125. cdd c:\qmodem\3
  126. qmodem
  127. goto loop
  128.  
  129. :bonk
  130. modem 3 off>nul
  131. cd \bbs\nodelist
  132. bonk
  133. goto loop
  134.  
  135. :amax
  136. modem 3 off>nul
  137. cd\bbs3\fd
  138. amax -b -i
  139. goto loop
  140.  
  141. :2400
  142. cd\bbs3
  143. elevel 24
  144. goto end
  145.  
  146. :wait
  147. cd\bbs3
  148. elevel 20
  149. goto end
  150.  
  151. :19200
  152. cd\bbs3
  153. elevel 96
  154. goto end
  155.  
  156. :14400
  157. cd\bbs3
  158. elevel 96
  159. goto end
  160.  
  161. :1200
  162. cd\bbs3
  163. elevel 12
  164. goto end
  165.  
  166. :Local
  167. cd\bbs3
  168. elevel 10
  169. goto end
  170.  
  171. :300
  172. cd\bbs3
  173. elevel 3
  174. goto end
  175.  
  176. :9600
  177. cd\bbs3
  178. elevel 96
  179. goto end
  180.  
  181. :quit
  182. elevel 1
  183.  
  184. :end
  185.