home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / bbs_ra / ra-kit1.arj / QBINK.BAT < prev    next >
DOS Batch File  |  1990-08-31  |  5KB  |  267 lines
  1.  
  2.  
  3. SAMPLE ONLY....... NOT editted to run with Bink and RA 
  4. Included to show the Binkley relationship.
  5.  
  6.  
  7. goto end
  8.  
  9. echo off
  10. cls
  11. c:
  12. cd\RA
  13. set Binkley=C:\Bink\
  14. set dszlog=c:\RA\dsz.log
  15. if %1. == . goto start
  16. dtr on
  17. at h1
  18. goto %1
  19.  
  20. :start
  21.    cd\RA
  22.    last 20 bink.log
  23.    last 20 system.log
  24.    AT Z
  25.    bt share
  26.    if ERRORLEVEL 100 goto start
  27.    if ERRORLEVEL 96 goto 9600bbs
  28.    if ERRORLEVEL 65 goto err65
  29.    if ERRORLEVEL 64 goto err64
  30.    if ERRORLEVEL 63 goto PollRC
  31.    if ERRORLEVEL 62 goto PollAtl
  32.    if ERRORLEVEL 61 goto PollREC
  33.    if ERRORLEVEL 50 goto localbbs
  34.    if ERRORLEVEL 49 goto daily
  35.    if ERRORLEVEL 48 goto morning
  36.    if ERRORLEVEL 47 goto clean
  37.    if ERRORLEVEL 40 goto clean
  38.    if ERRORLEVEL 30 goto unpackmail
  39.    if ERRORLEVEL 24 goto 2400bbs
  40.    if ERRORLEVEL 20 goto unpackmail
  41.    if ERRORLEVEL 12 goto 1200bbs
  42.    if ERRORLEVEL 10 goto net&echo
  43.    if ERRORLEVEL 3  goto 300bbs
  44.    if ERRORLEVEL 1  goto out
  45.    goto out
  46.  
  47. :err65
  48. :err64
  49.  goto start
  50.  
  51. :localbbs
  52.  Rem    Load the BBS in local Mode
  53.  DTR ON
  54.  AT M0H1
  55.  RA -l -e0
  56.   if errorlevel 23 goto outside:
  57.   if errorlevel 5 goto net&echo
  58.   if errorlevel 4 goto echoonly
  59.   if errorlevel 3 goto netonly
  60.  goto afterquick
  61.  
  62. :9600bbs
  63.  RA -b9600 -e0
  64.   if errorlevel 5 goto net&echo
  65.   if errorlevel 4 goto echoonly
  66.   if errorlevel 3 goto netonly
  67.  goto afterquick
  68.  
  69. :2400bbs
  70.  RA -b2400 -e0
  71.  goto afterquick
  72.  
  73. :1200bbs
  74.  RA -b1200 -e0
  75.  goto afterquick
  76.  
  77. :300bbs
  78.  RA -b300 -e0
  79.  goto afterquick
  80.  
  81. :restartquick
  82.  RA -r -e0
  83.   if errorlevel 99 goto outside:
  84.   if errorlevel 98 goto remote:
  85.   if errorlevel 23 goto outside:
  86.   if errorlevel 22 goto remote:
  87.   if errorlevel 6 goto start
  88.   if errorlevel 5 goto net&echo
  89.   if errorlevel 4 goto echoonly
  90.   if errorlevel 3 goto netonly
  91.   goto start
  92.  
  93. :afterquick
  94.   DTR ON
  95.   AT M0H1
  96. :after
  97.   if errorlevel 99 goto outside:
  98.   if errorlevel 98 goto remote:
  99.   if errorlevel 23 goto outside:
  100.   if errorlevel 22 goto remote:
  101.   if errorlevel 6 goto start
  102.   if errorlevel 5 goto net&echo
  103.   if errorlevel 4 goto echoonly
  104.   if errorlevel 3 goto netonly
  105.   goto start
  106.  
  107. :net&echo
  108.  DTR ON
  109.  AT M0H1
  110. mailscan 3
  111.  DTR ON
  112.  AT M0H1
  113. :echoonly
  114.  echogen -E -M400 -P -Z
  115.  if errorlevel 3 goto echoerr
  116.  if errorlevel 2 goto loop
  117.  if errorlevel 1 goto bundle
  118.  if errorlevel 0 goto bundle
  119. :loop
  120.  ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\BINK.PRM -cCONTROL.FIL -Z -SA
  121.  goto echoonly
  122. :echoerr
  123.  echo *** Echoscan error *** >> system.log
  124.  echo *** Echoscan error ***
  125.   goto bundle
  126.  
  127. :netonly
  128.  DTR ON
  129.  AT M0H1
  130.  mailscan 3
  131.  :ommm routine
  132.  c:
  133.  cd\RA
  134.  ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\BINK.PRM -cCONTROL.FIL -Z -SA
  135.  cd\RA
  136.   goto start
  137.  
  138. :unpackmail
  139. Rem  Unpack the incoming pail
  140. Rem  Compile the nodelist if it has arrived.
  141.  DTR ON
  142.  AT M0H1
  143.    cd\RA
  144.    EchoGen -B -P -T -U -Z
  145. echo ********************************
  146. echo ********************************
  147. echo ********************************
  148.    mailtoss -K 3
  149. echo ********************************
  150. echo ********************************
  151. echo ********************************
  152. :echorun
  153.    echogen -E -M400 -P -Z
  154.    if errorlevel 3 goto echoerr2
  155.    if errorlevel 2 goto loop2
  156.    goto loop3
  157. :loop2
  158.    ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\BINK.PRM -cCONTROL.FIL -Z -SA
  159.    goto echorun
  160. :echoerr2
  161.    echo *** Echoscan error *** >> system.log
  162.    echo *** Echoscan error ***
  163. :loop3
  164.    if NOT EXIST c:\netfiles\NodeDiff.* goto bundle
  165.    cd\files
  166.    pkxarc nodediff.* c:\nodelist\
  167.    copy nodediff.* c:\fidonet\*.*
  168.    erase nodediff.*
  169.    cd\nodelist
  170.    xlatlist
  171.    pkarc u \fidonet\nodelist.abs nodelist.bbs
  172.    opusnode -f
  173.    copy nodelist.sys \RA
  174.    copy nodelist.idx \RA
  175.    cd\RA
  176.    qnode c:\nodelist\
  177.  
  178. :bundle
  179.  Rem  Run OMMM to bundle the outbound mail
  180.  cd\RA
  181.  ommm -sA -hc:\RA\outbound -ic:\RA\bink.prm -mc:\zmail\ -ccontrol.fil
  182.  cd\RA
  183.  goto start
  184.  
  185. :morning
  186.  DTR ON
  187.  AT M0H1
  188. : autoecho
  189.  if not exist \netfiles\nodediff.* goto newschk
  190.  red \fidonet\nodediff.* \fidonet\nodediff
  191.  red \netfiles\nodediff.* \fidonet
  192. :newschk
  193.  if not exist \netfiles\fnews???.arc goto ommm
  194.  red \fidonet\fnews???.arc \fidonet\fnews
  195.  red \netfiles\fnews???.arc \fidonet
  196.  goto bundle
  197.  
  198. :daily
  199. :DAILY
  200.  DTR ON
  201.  AT M0H1
  202.  ECHO .............. Executing Daily Processing .................
  203.  DAYNBR REN system.LOG quickLOG.@###
  204.  DAYNBR PKARC M quickLOG.ARC quicklog.@###
  205.  DAYNBR REN bink.LOG binkLOG.@###
  206.  DAYNBR PKARC M binkLOG.ARC binkLOG.@###
  207.  PKARC U ANSWERS.ARC newuser.dat
  208.  :
  209.  DS EN C:\/S
  210. : DS EN D:\/S
  211. rb
  212. goto start
  213.  
  214. :PollAtl
  215.  DTR ON
  216.  AT M0H1
  217.  ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\bink.PRM -cCONTROL.FIL -sc
  218.  goto start
  219.  
  220. :PollREC
  221.  DTR ON
  222.  AT M0H1
  223.  ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\bink.PRM -cCONTROL.FIL -se
  224.  goto start
  225.  
  226. :clean
  227.  DTR ON
  228.  AT M0H1
  229.  cd\RA
  230.  msgutils Killold 1 2 -D65
  231.  msgutils Killold 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 -D21
  232.  :          renumber message areas
  233.  msgutils Killcnt 1 2 -n150
  234.  msgutils Killcnt 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 -n200
  235.  msgpack -W -R
  236.  userpack -D120
  237.  goto start
  238.  
  239. :outside
  240. prompt Outside$p$g
  241. command
  242. c:
  243. cd\RA
  244. prompt $p$g
  245. goto restartquick
  246.  
  247. :REMOTE
  248. FOSSIL 1 ON +
  249. CTTY GATE1
  250. prompt Remote$p$g
  251. command
  252. c:
  253. cd\RA
  254. CTTY CON
  255. FOSSIL 1 OFF
  256. prompt $p$g
  257. goto restartquick
  258.  
  259. :out
  260. :exit
  261. dtr on
  262. at h1
  263. last 20 bink.log
  264. last 20 system.log
  265.  
  266. 
  267.