home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / TPB71TXT.ZIP / RUNFD.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-12-10  |  3.1 KB  |  211 lines
  1. ;typical runfd.bat file (I stripped mine down a bit)
  2. echo off
  3. :loop
  4. c:
  5. cd\fd
  6. FD
  7. if errorlevel 241 goto inmail          ;make sure that you add these
  8. if errorlevel 247 goto tsetup          ;errorlevels to FrontDoor setup
  9. if errorlevel 240 goto outmail         ;also make changes to baud rate
  10. if errorlevel 230 goto renum           ;errorlevels is same setup, lastly
  11. if errorlevel 220 goto weekly          ;change setting from mail only to
  12. if errorlevel 210 goto daily           ;BBS
  13. if errorlevel 202 goto viewlog
  14. if errorlevel 201 goto editor
  15. if errorlevel 200 goto TPBlocal
  16. if errorlevel 104 goto bbs             ;exit to BBS at 9600
  17. if errorlevel 103 goto bbs             ;exit to BBS at 2400
  18. if errorlevel 102 goto bbs             ;exit to BBS at 1200
  19. if errorlevel 101 goto bbs             ;exit to BBS at 300 (ugh)
  20. if errorlevel  10 goto userbrk
  21. if errorlevel   4 goto fatal
  22. if errorlevel   3 goto dspace
  23. if errorlevel   1 goto fatal
  24.  
  25. :bbs
  26. c:
  27. cd\fd
  28. dobbs
  29. if errorlevel 3 goto outmail
  30. if errorlevel 2 goto outmail
  31. if errorlevel 1 goto netmail
  32. goto loop
  33.  
  34. :viewlog
  35. c:
  36. cd\tpb
  37. viewlog c:\tpb\log1.bb#
  38. goto loop
  39.  
  40. :Ned
  41. c:
  42. cd\tpb
  43. ned
  44. goto loop
  45.  
  46. :tpbthrough
  47. cls
  48. c:
  49. cd\fd
  50. if errorlevel 3 goto outmail
  51. if errorlevel 2 goto outmail
  52. if errorlevel 1 goto netmail
  53. goto loop
  54.  
  55. :inmail
  56. c:
  57. cd\fd
  58. tosscan toss
  59. if not exist import.xyz goto loop
  60. tosscan scan
  61. if errorlevel goto tosserr
  62. c:
  63. cd\tpb
  64. impmsgs -i -k -n -l
  65. goto loop
  66.  
  67. :outmail
  68. c:
  69. tosscan scan
  70. cd\fd
  71.  
  72. if errorlevel goto tosserr
  73. goto loop
  74.  
  75. :domail
  76. c:
  77. cd\fd
  78. tosscan toss
  79. if not exist import.xyz goto loop
  80. if errorlevel goto tosserr
  81. cd\tpb
  82. impmsgs -i -k -n -l
  83. c:
  84. cd\fd
  85. tosscan scan
  86.  
  87. if errorlevel goto tosserr
  88. goto loop
  89.  
  90. :tsetup
  91. c:
  92. cd\fd
  93. tsetup
  94. goto loop
  95.  
  96. :renum
  97. c:
  98. cd\tpb
  99. impmsgs -rn 
  100. cd\fd
  101. goto loop
  102.  
  103. :weekly
  104.  
  105. c:
  106. cd c:\mail\files
  107. if not exist nodediff.a?? goto loop
  108. copy nodediff.* c:\fd\nodelist
  109. cd c:\fd\nodelist
  110. pak e nodediff.a??
  111. listupdt
  112. fdnc /f
  113. goto loop
  114.  
  115. :daily
  116. c:
  117. cd\tpb
  118. c:
  119. cd\mail
  120. dofw
  121. if errorlevel 6 goto Saturday
  122. if errorlevel 5 goto Friday
  123. if errorlevel 4 goto Thursday
  124. if errorlevel 3 goto Wednesday
  125. if errorlevel 2 goto Tuesday
  126. if errorlevel 1 goto Monday
  127. if errorlevel 0 goto Sunday
  128. :Sunday
  129.  
  130. c:
  131. cd\tpb
  132. copy weekly.mac macro.lst
  133. tpb 98
  134. goto reboot
  135. :Monday
  136. c:
  137. cd\tpb
  138. copy weekly.mac macro.lst
  139. tpb 98
  140. goto reboot
  141. :Tuesday
  142. c:
  143. cd\tpb
  144. copy weekly.mac macro.lst
  145. tpb 98
  146. goto reboot
  147. :Wednesday
  148. c:
  149. cd\tpb
  150. copy daily.mac macro.lst
  151. tpb 98
  152. goto reboot
  153. :Thursday
  154. c:
  155. cd\tpb
  156. copy weekly.mac macro.lst
  157. tpb 98
  158. goto reboot
  159. :Friday
  160. c:
  161. cd\tpb
  162. copy weekly.mac macro.lst
  163. tpb 98
  164. goto reboot
  165. :Saturday
  166. c:
  167. cd\tpb
  168. copy weekly.mac macro.lst
  169. tpb 98
  170. goto reboot
  171.  
  172. :reboot
  173. c:
  174. cd\tpb
  175. watch 1 +
  176. goto loop
  177.  
  178. :TPBlocal
  179. c:
  180. cd\tpb
  181. e:\tpb 99
  182. goto tpbthrough
  183.  
  184. :tosserr
  185. cls
  186. echo Tosserr
  187. goto loop
  188.  
  189. :userbrk
  190. cls
  191. echo User break.
  192. goto done
  193.  
  194. :dspace
  195. cls
  196. echo FrontDoor reported insufficient disk space
  197. c:
  198. cd\tpb
  199. copy space.mac macro.lst
  200. tpb 98
  201. copy daily.mac macro.lst
  202. goto loop
  203.  
  204. :fatal
  205. cls
  206. echo FATAL error reported by FrontDoor.
  207. boot
  208.  
  209. :done
  210.  
  211.