home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CHKPC098.ZIP / CHKPC.RUN < prev    next >
Text File  |  1994-11-04  |  6KB  |  200 lines
  1. REM Filename           *  DISH.BAT
  2. REM Description        *  Planet Connect Dish - Continuous Mail Batch File
  3. REM Location Of File   *  D:\SKYFEED
  4. REM Last Updated       *  11/04/94 @ 04:00 PM
  5. REM 
  6. REM 
  7. REM 
  8. REM Start of the loop that runs this batch file.  This batch file is
  9. REM started with STRTDISH.BAT when the system is turned on or when
  10. REM restarting this DV window.  From there, after starting the window,
  11. REM this batch file will run continuous or until a system failure.
  12. GOTO %1
  13. :START
  14. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "DISH IS UP AND RUNNING!"
  15. @ECHO OFF
  16. CLS
  17. D:
  18. CD\SKYFEED
  19. REM We are trying the new PC1 software now as of 10/29/94
  20. REM Don't like it. :)
  21. REM PC1 -o
  22. REM
  23. REM Bird Droppings (BD) is being used here for the reliability of
  24. REM incoming file reception.  It beats the pants off of PTCCMAIN if
  25. REM you are running in a multitasking environment.  When the expiration
  26. REM date comes (10/31/94) for BD, I will have to change.  Maybe the
  27. REM author (Dave Skinner) will release his price for this program so that
  28. REM those of us who want a superior program, have the choice.
  29. REM Dave released another demo, and I am using it as it is the best!
  30. BD
  31. REM
  32. REM Tried the SATMAIL program but wasn't happy with the errors.  It has
  33. REM promise though of being pretty good in future releases.
  34. REM SATMAIL
  35. REM
  36. REM This will have to be used after 11/07/94 
  37. REM PTCCMAIN
  38. REM 
  39. IF ERRORLEVEL 101 GOTO CHECK
  40. IF ERRORLEVEL 12 GOTO START
  41. IF ERRORLEVEL 0 GOTO EXIT
  42. GOTO START
  43. :CHECK
  44. TXT2MSG 25 D:\SKYFEED\FILELOG.SKY -SPC_Feed_Log_Report
  45. DEL D:\SKYFEED\FILELOG.SKY
  46. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "CHECKING THE INCOMING DATA"
  47. D:
  48. CD\CHKPC
  49. CHKPC.EXE
  50. TXT2MSG 25 D:\CHKPC\CHKPC.LOG -SCheckPC_Log_Report
  51. TXT2MSG 25 D:\CHKPC\CHKPC.NOT -SCheckPC_Missed_Files
  52. :FILEBONE
  53. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW FILES FROM THE DISH"
  54. D:
  55. CD\SKYFILES
  56. PKUNZIP -O ALLTICS.0*
  57. MOVE /Y ALLTICS.0* D:\OLDFIDO
  58. D:
  59. CD\SKYFEED
  60. TICMOVE
  61. C:
  62. CD\TIC2PCB
  63. rem TIC2PCB TIC2PCB.CFG
  64. :FIDONET
  65. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW FIDONET MAIL"
  66. C:
  67. CD\FIDOPCB
  68. FIDOPCB TOSS STRIP
  69. :MAILMOVE
  70. IF EXIST D:\SKYFIDO\0000FFFF.* GOTO MOREMAIL
  71. GOTO QWK_IN
  72. :MOREMAIL
  73. D:
  74. CD\SKYFEED
  75. MAILMOVE
  76. E:
  77. CD\FIDOPCB\WORK
  78. PKUNZIP 0000FFFF.*
  79. MOVE /Y 0000FFFF.* D:\OLDFIDO
  80. PSRT
  81. C:
  82. CD\FIDOPCB
  83. FIDOPCB TOSS STRIP
  84. TXT2MSG 25 C:\FIDOPCB\FIDOPCB.LOG -SFidoPCB_Log_Report
  85. TXT2MSG 25 C:\FIDOPCB\FIDOPCB.STA -SFidoPCB_Status_Report
  86. DEL FIDOPCB.LOG
  87. DEL FIDOPCB.STA
  88. IF EXIST D:\SKYFIDO\0000FFFF.* GOTO MOREMAIL
  89. :QWK_IN
  90. D:
  91. CD\SKYQWK
  92. MOVE /Y *.* D:\QWKMAIL
  93. REM Check for the INTELEC.QW? mail packets
  94. IF NOT EXIST D:\QWKMAIL\INTELEC.* GOTO INT_NO
  95. :INT_YES
  96. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW INTELEC MAIL"
  97. C:
  98. CD\ROSE
  99. RM WLA /IS=INTELEC
  100. REM We are saving the old .QWK files for archiving in case of trouble
  101. MOVE /Y D:\QWKMAIL\INTELEC.QWK C:\BBS\NEW\INT_QWK.QWK
  102. MOVE /Y D:\QWKMAIL\INTELEC.QW0 C:\BBS\NEW\INT_QW0.QWK
  103. MOVE /Y D:\QWKMAIL\INTELEC.QW1 C:\BBS\NEW\INT_QW1.QWK
  104. MOVE /Y D:\QWKMAIL\INTELEC.QW2 C:\BBS\NEW\INT_QW2.QWK
  105. D:
  106. CD\QWKMAIL
  107. PKUNZIP INTELEC.QIF *.Q*
  108. C:
  109. CD\ROSE
  110. RM WLA /IS=INTELEC
  111. MOVE /Y D:\QWKMAIL\INTELEC.QWK C:\BBS\NEW\INQ_QWK.QWK
  112. MOVE /Y D:\QWKMAIL\INTELEC.QW0 C:\BBS\NEW\INQ_QW0.QWK
  113. MOVE /Y D:\QWKMAIL\INTELEC.QIF C:\BBS\NEW\INT_QIF.QIF
  114. :INT_NO
  115. REM Check for the LEDGE.QW? mail packets
  116. IF NOT EXIST D:\QWKMAIL\LEDGE.* GOTO UNI_NO
  117. :UNI_YES
  118. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW U'NI-NET MAIL"
  119. C:
  120. CD\ROSE
  121. RM TIPS /IS=LEDGE
  122. REM We are saving the old .QWK files for archiving in case of trouble
  123. MOVE /Y D:\QWKMAIL\LEDGE.QWK C:\BBS\NEW\UNI_QWK.QWK
  124. MOVE /Y D:\QWKMAIL\LEDGE.QW0 C:\BBS\NEW\UNI_QW0.QWK
  125. MOVE /Y D:\QWKMAIL\LEDGE.QW1 C:\BBS\NEW\UNI_QW1.QWK
  126. MOVE /Y D:\QWKMAIL\LEDGE.QW2 C:\BBS\NEW\UNI_QW2.QWK
  127. :UNI_NO
  128. REM Check for the ROSE.QW? mail packets
  129. IF NOT EXIST D:\QWKMAIL\ROSE.* GOTO ROSE_NO
  130. :ROSE_YES
  131. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW ROSENET MAIL"
  132. C:
  133. CD\ROSE
  134. RM WLA /IS=ROSE
  135. REM We are saving the old .QWK files for archiving in case of trouble
  136. MOVE /Y D:\QWKMAIL\ROSE.QWK C:\BBS\NEW\ROSE_QWK.QWK
  137. MOVE /Y D:\QWKMAIL\ROSE.QW0 C:\BBS\NEW\ROSE_QW0.QWK
  138. MOVE /Y D:\QWKMAIL\ROSE.QW1 C:\BBS\NEW\ROSE_QW1.QWK
  139. MOVE /Y D:\QWKMAIL\ROSE.QW2 C:\BBS\NEW\ROSE_QW2.QWK
  140. :ROSE_NO
  141. REM Check for the WLA.QW? mail packets
  142. IF NOT EXIST D:\QWKMAIL\WLA.* GOTO WLA_NO
  143. :WLA_YES
  144. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW PEN MAIL"
  145. C:
  146. CD\ROSE
  147. RM WLA /IS=WLA
  148. REM We are saving the old .QWK files for archiving in case of trouble
  149. MOVE /Y D:\QWKMAIL\WLA.QWK C:\BBS\NEW\WLAPC_QWK.QWK
  150. MOVE /Y D:\QWKMAIL\WLA.QW0 C:\BBS\NEW\WLAPC_QW0.QWK
  151. MOVE /Y D:\QWKMAIL\WLA.QW1 C:\BBS\NEW\WLAPC_QW1.QWK
  152. MOVE /Y D:\QWKMAIL\WLA.QW2 C:\BBS\NEW\WLAPC_QW2.QWK
  153. :WLA_NO
  154. REM Check for the ILINK.??? mail packets
  155. D:
  156. CD\QWKMAIL
  157. MOVE /Y IL*.* D:\QWKMAIL\SECURE
  158. CD\QWKMAIL\SECURE
  159. FOR %%P IN (ILINK.*) DO CALL D:\QWKMAIL\SECURE\DOSECURE.BAT %%P
  160. :USATODAY
  161. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "GIZMO! IS GETTING USATODAY"
  162. IF NOT EXIST D:\QWKMAIL\USATODAY.ZIP GOTO TVLIST
  163. PKUNZIP -O D:\QWKMAIL\USATODAY.ZIP C:\BBS\USA
  164. COPY D:\QWKMAIL\USATODAY.ZIP C:\FILES\NEWMEM\USATODAY.ZIP
  165. COPY D:\QWKMAIL\USATODAY.ZIP C:\ROSE\ADDIN\USATODAY.ZIP
  166. MOVE /Y D:\QWKMAIL\USATODAY.ZIP C:\BBS\NEW
  167. C:
  168. CD\ROSE\ADDIN
  169. TOUCH USATODAY.ZIP
  170. :TVLIST
  171. GOTO WEATHER
  172. D:
  173. CD\QWKMAIL
  174. MOVE /Y TVLIST*.ARC D:\QWKMAIL\TVWEATH
  175. CD\QWKMAIL\TVWEATH
  176. REN *.ARC *.ZIP
  177. FOR %%P IN (TVLIST*.*) DO CALL D:\QWKMAIL\FIXTV.BAT %%P
  178. :WEATHER
  179. D:
  180. CD\QWKMAIL\TVWEATH
  181. PKUNZIP D:\QWKMAIL\SATELITE.ARC D:\QWKMAIL\TVWEATH
  182. PKZIP -A -EX -O -Z < C:\BBS\ULP\COMMENT.TXT C:\FILES\EXTRA\SATELITE.ZIP *.*
  183. DEL *.PCX
  184. PKUNZIP D:\QWKMAIL\WEATHMAP.ARC D:\QWKMAIL\TVWEATH
  185. PKZIP -A -EX -O -Z < C:\BBS\ULP\COMMENT.TXT C:\FILES\EXTRA\WEATHMAP.ZIP *.*
  186. DEL *.PCX
  187. PKUNZIP D:\QWKMAIL\RADAR.ARC D:\QWKMAIL\TVWEATH
  188. PKZIP -A -EX -O -Z < C:\BBS\ULP\COMMENT.TXT C:\FILES\EXTRA\RADAR.ZIP *.*
  189. DEL *.PCX
  190. CD\QWKMAIL
  191. DEL SATELITE.ARC
  192. DEL WEATHMAP.ARC
  193. DEL RADAR.ARC
  194. D:
  195. CD\SKYDATA\PERSONAL
  196. DEL NOBOLOG*.*
  197. GOTO START
  198. :EXIT
  199. ECHO We had a normal exit : Type DISH START to restart the system
  200.