home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / bbs / im / IMRUN.BAT < prev    next >
Encoding:
DOS Batch File  |  1976-11-25  |  3.8 KB  |  158 lines
  1. @echo off
  2.  
  3. if [%1] == [1] goto start
  4. if [%1] == [2] goto start
  5. if [%1] == [3] goto start
  6. if [%1] == [4] goto start
  7.  
  8. :start
  9. :loop
  10.  
  11.   cd \BBS\IM\NODE%1
  12.   \BBS\IM\im.exe /#%1
  13.   if errorlevel 200 goto filelist
  14.   if errorlevel 100 goto bbscall
  15.   if errorlevel  50 goto RUNGECHO
  16.   if errorlevel  10 goto done         rem * User exit
  17.   if errorlevel   8 exit              rem * InterMail already loaded
  18.   if errorlevel   6 goto Nothing
  19.   if errorlevel   5 goto Nothing
  20.   if errorlevel   4 goto Nothing
  21.   if errorlevel   3 goto Nothing
  22.   if errorlevel   1 goto Nothing
  23.  
  24. :Nothing
  25.   goto loop
  26.  
  27. :bbscall
  28.   \bbs\ra\door\lastcall\lastcall.exe /F:\bbs\ra\txtfiles\lastcall
  29.   DOBBS.bat
  30.   goto loop
  31.  
  32.  
  33. :Filelist
  34.   CD\BBS\RA\BDAY
  35.   RABDAY
  36.   \BBS\RA\DOOR\NEW2YOU\NEW2YOU NEW2YOU.CFG
  37.   CD\BBS\RA\DOOR\TOPSTAT
  38.   TOPSTAT
  39.   CD\BBS\RA
  40.   COPY TOP_*.* \BBS\RA\TXTFILES /Y
  41.   CD\BBS\RA\TXTFILES
  42.   del hdayz.a??
  43.   del welcome1.a??
  44.   cd\bbs\ra\hdayz
  45.   hdayz /B
  46.   cd\bbs\ra\txtfiles
  47.   ren hdayz.ans welcome1.ans
  48.   ren hdayz.asc welcome1.asc
  49.   \bbs\ra\door\tdaycall\abusers.exe
  50.   cd\bbs\ra\door\frame
  51.   frame header
  52.   Frame stats
  53.   cd\bbs\ra
  54.   copy F_*.a?? \bbs\ra\txtfiles /Y
  55.   cd\bbs\rats
  56.   ratpay
  57.   rmu
  58. rem  cd\bbs\ra\door\icemgr
  59. rem  icemgr
  60.   cd\bbs\ra
  61. rafile filelist \software\paradise\files.all   /7bit
  62. goto test
  63. rafile filelist \files\paradise\files.bbs 1 /7bit
  64. rafile filelist \files\upload\files.bbs 2   /7bit
  65. rafile filelist \files\internet\files.bbs 3 /7bit
  66. rafile filelist \files\txt\files.bbs 4      /7bit
  67. rafile filelist \files\midi\files.bbs 5     /7bit
  68. rafile filelist \files\commdos\files.bbs 6  /7bit
  69. rafile filelist \files\bwave\files.bbs 7    /7bit
  70. rafile filelist \files\crack\files.bbs 8    /7bit
  71. rafile filelist \files\tools\files.bbs 9    /7bit
  72. rafile filelist \files\arj\files.bbs 10     /7bit
  73. rafile filelist \files\fd\files.bbs 11      /7bit
  74. rafile filelist \files\fossil\files.bbs 12  /7bit
  75. rafile filelist \files\radoor\files.bbs 13  /7bit
  76. rafile filelist \files\bbs\files.bbs 14     /7bit
  77. rafile filelist \files\gif\files.bbs 15     /7bit
  78. rafile filelist \files\media\files.bbs 16   /7bit
  79. rafile filelist \files\game\files.bbs 17    /7bit
  80. rafile filelist \files\inets\files.bbs 18   /7bit
  81. rafile filelist \files\drive\files.bbs 19   /7bit
  82. rafile filelist \files\ccos\files.bbs 20    /7bit
  83. rafile filelist \files\htmledit\files.bbs 21 /7bit
  84. rafile filelist \files\sea\files.bbs 22      /7bit
  85. rafile filelist \files\edit\files.bbs 23     /7bit
  86. rafile filelist \files\bbstools\files.bbs 24 /7bit
  87. rem  rafile filelist filesdir.asc /d1 /7bit /b1.txt /f2.txt
  88. rem  copy filesdir.asc \bbs\gecho /Y
  89. rem  cd\bbs\gecho
  90. rem  mbutil post filesdir.asc #63 -Subject "╠∞╠├╫▄╒╛╨┬╜°╚φ╝■▒¿╕µ" -Origin 1 -Echo
  91. :test
  92.   CD\BBS\ra
  93.   RAUSER -P
  94.   RAUSER -S
  95.   RAUSER -D90 -M20
  96.   RAUSER -D15 -M5
  97.   RAMSG INDEX -DELETE -RECOVER
  98.   RAMSG LINK -CLEAN
  99.   RAMSG PACK -OVERWRITE -RENUMBER -Purge -Delete
  100.   cd\bbs\ra\door\chkuser
  101.   chkuser -pack
  102.   chkuser -fix
  103.   chkuser
  104. rem  CD\BBS\RAUSM
  105. rem  RAUSM > NUL
  106. rem  cd\bbs\ra\door\accuser
  107. rem  accuser
  108. rem  cd\bbs\ra\door\vqbank
  109. rem  bankmail.exe
  110.   cd\bbs\gecho
  111.   gecho scan pack toss import -force
  112.   goto loop
  113.  
  114. :RUNGECHO
  115.   COPY \BBS\INBOUND\*.*  \BBS\MSG /Y
  116. rem  cd\bbs\ra\door\vqbank
  117. rem  bankmail.exe
  118.   cd\bbs\gecho
  119.   gecho scan pack toss import -force
  120.   goto loop
  121.  
  122. :wait
  123.   if exist \BBS\RA\rawait.sem goto wait
  124.   goto loop
  125.  
  126.  
  127. :fossilerr
  128.   echo.
  129.   echo ADF not installed!
  130.   echo.
  131.   goto done
  132.  
  133. :modemerr
  134.   echo.
  135.   echo The modem does not respond correctly!
  136.   echo.
  137.   goto done
  138.  
  139. :modemdead
  140.   echo.
  141.   echo The modem seems completely dead!
  142.   echo.
  143.   goto done
  144.  
  145. :nospace
  146.   echo.
  147.   echo Out of diskspace!
  148.   echo.
  149.   goto done
  150.  
  151. :fatal
  152.   echo.
  153.   echo FATAL error reported by InterMail!
  154.   echo.
  155.  
  156. :done
  157. :end
  158.