home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / control.zip / spawnbbs.cmd < prev    next >
OS/2 REXX Batch file  |  1993-10-18  |  1KB  |  46 lines
  1. C:
  2. CD \Bink
  3. If Exist Echo.Out Del Echo.Out >Nul:
  4. CD \MAX
  5. set TBUF=4096
  6. set RBUF=4096
  7. maxp.exe -b%2 -p%3 -t%4 -n01 -l1 -z\pipe\bbs
  8. If errorlevel 12 Goto Echox
  9. If errorlevel 11 Goto Packem
  10. If errorlevel 5 Goto Local
  11. Goto Exit
  12. :Echox
  13. If Exist C:\Bink\ECHO.OUT SCANBLDP USER.BBS AREA.DAT local matrix @C:\Bink\Echo.Out
  14. CD \BINK
  15. :Reecho
  16. If Exist ECHO.OUT VP2 Export %BINKLEY%AREAS.BBS -0 -M 500 -S 0 -F %BINKLEY%Echo.Out -C -Q -O %OUT% -A ARC2 A5
  17. :REM Severe Error = 2, Partial Export = 1, Goodness = 0.
  18. If ERRORLEVEL 2 Goto SEVEXP1
  19. If ERRORLEVEL 1 Goto SEVPEXP
  20. Goto PURGEM
  21. :SEVEXP1
  22. ECHO Severe Error In POSTTOSS Export
  23. ECHO Severe Error In POSTTOSS Export >> ERROR.LOG
  24. ECHO Severe Error In POSTTOSS Export >d:\Outbound\Export.z
  25. Goto PACKEM
  26. :SEVPEXP
  27. ECHO Partial Export of AREAS.BBS messages.
  28. cd\bink
  29. echo toss 1 | rxqueue cntl
  30. Goto Reecho
  31. :PURGEM
  32. :REM Now that either ARCMAIL/NETMAIL or ECHOMAIL is all finished...
  33. If Exist c:\Bink\Outbound\E*.z Del c:\Bink\Outbound\E*.z
  34. Goto PACKEM
  35. :PACKEM -- Here to pack up anything in Matrix Mail area.
  36. CD \MAX
  37. If NOT Exist C:\Bink\ECHO.OUT SCANBLDP USER.BBS AREA.DAT local matrix
  38. cd\bink
  39. echo toss 1 | rxqueue cntl
  40. Goto EXIT
  41. :LOCAL -- Here to scan for local only mail
  42. SCANBLDP USER.BBS AREA.DAT local
  43. :EXIT
  44. c:
  45. Echo Returning to BinkleyTerm
  46.