home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / chkpc061.zip / DISH.BAT < prev    next >
DOS Batch File  |  1994-08-26  |  4KB  |  124 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       *  08/25/94 @ 05: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. PTCCMAIN
  20. IF ERRORLEVEL 101 GOTO CHECK
  21. IF ERRORLEVEL 12 GOTO START
  22. IF ERRORLEVEL 0 GOTO EXIT
  23. GOTO EXIT
  24. :CHECK
  25. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "CHECKING THE INCOMING DATA"
  26. D:
  27. CD\SKYUTIL
  28. CHKPC.EXE
  29. TXT2MSG 25 D:\SKYUTIL\CHKPC.LOG -SCheckPC_Log_Report
  30. DEL D:\SKYUTIL\CHKPC.LOG
  31. :FILEBONE
  32. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW FILES FROM THE DISH"
  33. D:
  34. CD\SKYFILES
  35. PKUNZIP -O ALLTICS.0*
  36. MOVE /Y ALLTICS.0* D:\OLDFIDO
  37. D:
  38. CD\SKYUTIL
  39. TICMOVE
  40. C:
  41. CD\TIC2PCB
  42. TIC2PCB TIC2PCB.CFG
  43. :FIDONET
  44. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW FIDONET MAIL"
  45. C:
  46. CD\FIDOPCB
  47. FIDOPCB TOSS STRIP
  48. :MAILMOVE
  49. IF EXIST D:\SKYFIDO\0000FFFF.* GOTO MOREMAIL
  50. GOTO QWK_IN
  51. :MOREMAIL
  52. D:
  53. CD\SKYUTIL
  54. MAILMOVE
  55. C:
  56. CD\FIDOPCB\WORK
  57. PKUNZIP 0000FFFF.*
  58. MOVE /Y 0000FFFF.* D:\OLDFIDO
  59. PSRT
  60. C:
  61. CD\FIDOPCB
  62. FIDOPCB IMPORT
  63. TXT2MSG 25 C:\FIDOPCB\FIDOPCB.LOG -SFidoPCB_Log_Report
  64. TXT2MSG 25 C:\FIDOPCB\FIDOPCB.STA -SFidoPCB_Status_Report
  65. DEL FIDOPCB.LOG
  66. DEL FIDOPCB.STA
  67. IF EXIST D:\SKYFIDO\0000FFFF.* GOTO MOREMAIL
  68. :QWK_IN
  69. D:
  70. CD\SKYQWK
  71. MOVE /Y *.* D:\QWKMAIL
  72. REM Check for the INTELEC.QW? mail packets
  73. IF NOT EXIST D:\QWKMAIL\INTELEC.* GOTO INT_NO
  74. :INT_YES
  75. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW INTELEC MAIL"
  76. C:
  77. CD\ROSE
  78. RM WLA /IS=INTELEC
  79. REM We are saving the old .QWK files for archiving in case of trouble
  80. MOVE /Y D:\QWKMAIL\INTELEC.QWK C:\BBS\NEW\INT_QWK.QWK
  81. MOVE /Y D:\QWKMAIL\INTELEC.QW0 C:\BBS\NEW\INT_QW0.QWK
  82. MOVE /Y D:\QWKMAIL\INTELEC.QW1 C:\BBS\NEW\INT_QW1.QWK
  83. MOVE /Y D:\QWKMAIL\INTELEC.QW2 C:\BBS\NEW\INT_QW2.QWK
  84. :INT_NO
  85. REM Check for the LEDGE.QW? mail packets
  86. IF NOT EXIST D:\QWKMAIL\LEDGE.* GOTO UNI_NO
  87. :UNI_YES
  88. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW U'NI-NET MAIL"
  89. C:
  90. CD\ROSE
  91. RM TIPS /IS=LEDGE
  92. REM We are saving the old .QWK files for archiving in case of trouble
  93. MOVE /Y D:\QWKMAIL\LEDGE.QWK C:\BBS\NEW\UNI_QWK.QWK
  94. MOVE /Y D:\QWKMAIL\LEDGE.QW0 C:\BBS\NEW\UNI_QW0.QWK
  95. MOVE /Y D:\QWKMAIL\LEDGE.QW1 C:\BBS\NEW\UNI_QW1.QWK
  96. MOVE /Y D:\QWKMAIL\LEDGE.QW2 C:\BBS\NEW\UNI_QW2.QWK
  97. :UNI_NO
  98. REM Check for the ROSE.QW? mail packets
  99. IF NOT EXIST D:\QWKMAIL\ROSE.* GOTO ROSE_NO
  100. :ROSE_YES
  101. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "IMPORTING NEW ROSENET MAIL"
  102. C:
  103. CD\ROSE
  104. RM WLA /IS=ROSE
  105. REM We are saving the old .QWK files for archiving in case of trouble
  106. MOVE /Y D:\QWKMAIL\ROSE.QWK C:\BBS\NEW\ROSE_QWK.QWK
  107. MOVE /Y D:\QWKMAIL\ROSE.QW0 C:\BBS\NEW\ROSE_QW0.QWK
  108. MOVE /Y D:\QWKMAIL\ROSE.QW1 C:\BBS\NEW\ROSE_QW1.QWK
  109. MOVE /Y D:\QWKMAIL\ROSE.QW2 C:\BBS\NEW\ROSE_QW2.QWK
  110. :ROSE_NO
  111. :USATODAY
  112. USERNET C:\BBS\MAIN\USERNET.XXX 5 Y N5 N5 "GIZMO! IS GETTING USATODAY"
  113. IF NOT EXIST D:\QWKMAIL\USATODAY.ZIP GOTO START
  114. PKUNZIP -O D:\QWKMAIL\USATODAY.ZIP C:\BBS\USA
  115. COPY D:\QWKMAIL\USATODAY.ZIP C:\FILES\NEWMEM\USATODAY.ZIP
  116. COPY D:\QWKMAIL\USATODAY.ZIP C:\ROSE\ADDIN\USATODAY.ZIP
  117. MOVE /Y D:\QWKMAIL\USATODAY.ZIP C:\BBS\NEW
  118. C:
  119. CD\ROSE\ADDIN
  120. TOUCH USATODAY.ZIP
  121. GOTO START
  122. :EXIT
  123. ECHO We had a normal exit : Type DISH CHECK to restart the system
  124.