home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / 347CONFG.ZIP / BBS.CMD next >
OS/2 REXX Batch file  |  1994-06-21  |  2KB  |  69 lines
  1. @Echo off
  2. Set TZ=EST5EDT
  3.  
  4. Set Node=17
  5. set tmp=c:\Bink1\tmp
  6.  
  7. CD \Bink1
  8. If Exist INBINK Goto EXIT
  9.  
  10. \OS2\Mode CO80,33
  11. setwin minimize move 860 110 restore move 500 144 minimize
  12. DMODE COM27:38400,N,8,1,TO=ON,XON=OFF,DTR=OFF,IDSR=OFF,ODSR=OFF,OCTS=ON,RTS=HS
  13.  
  14. :LOOP
  15. If Exist \Bink1\Inbound\*.REQ Del \Bink1\Inbound\*.REQ
  16. CD \Bink1
  17. Echo INBINK >INBINK
  18. BTP %1 Dynam Share Unattended
  19. If ERRORLEVEL 21 Goto LOOP
  20. If ERRORLEVEL 20 Goto NIGHT
  21. If ERRORLEVEL 14 Goto MAILIN
  22. If ERRORLEVEL 13 Goto MAILIN
  23. If ERRORLEVEL 2 Goto LOOP
  24. If ERRORLEVEL 1 Goto EXIT
  25. If ERRORLEVEL 0 Goto LOOP
  26. Goto LOOP
  27.  
  28. :MAILIN
  29. if NOT EXIST c:\Bink1\Inbound\*.tic Goto skip_tick
  30. call tickin.cmd
  31. cd \Node2
  32. :Skip_Tick
  33. cd \Squish
  34. squish in out squash link
  35. cd \Bink1
  36. Goto LOOP
  37.  
  38. :NIGHT
  39. rem Start /fs Maxlog.Cmd
  40. cmd /kMaxlog.Cmd
  41. REM Update ALLFILES.TXT
  42. rem Start /fs /i Files.Cmd
  43. cmd /kFiles.Cmd
  44. If Exist \max\active??.BBS Goto Skip_Pack
  45. \MAX\MAXUSORT \MAX /D150N /D90L /D90D /D1T
  46.  
  47. :Skip_Pack
  48. If Exist Outbound\*.NOT Del Outbound\*.NOT
  49. rem Delete any connection files in Outbound.
  50. If Exist %OUT%\*.?$? Del %OUT%\*.?$?
  51. rem delete all the messages in the DUPE directory
  52. del \Bink1\Dupes\*.msg
  53. rem delete old messages and renumber.
  54. cd \Max
  55. If Exist \max\active??.BBS Goto Skip_Compress
  56. cd \Squish
  57. sqpack \max\area.dat
  58.  
  59. :Skip_Compress
  60. rem Make sure any left-over mail is bundled up and sent out.
  61. cd \Squish
  62. Squish out squash
  63. cache386 /lazy:off
  64. \gamma32\reboot
  65. goto loop
  66.  
  67. :EXIT
  68. If Exist INBINK Del INBINK >Nul:
  69.