home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / POINTKT3.ZIP / POINT.CMD < prev    next >
OS/2 REXX Batch file  |  1990-12-10  |  4KB  |  134 lines
  1. @Echo Off
  2. Set BBS=C:\BINK
  3. Set BINKLEY=C:\BINK\
  4. Set BOSS=109/301
  5. Set MAIL=C:\BINK\MAIL
  6. Set IN=C:\BINK\INBOUND
  7. Set OUT=C:\BINK\OUTBOUND
  8. Set PENGUIN=C:\BINK\POLYXARC.CFG
  9. Set TZ=EST5EDT
  10. Set RBuf=3072
  11. Set TBuf=512
  12. Set MODEMPriority=4
  13. Set JanusPriority=4
  14. Set RegularPriority=2
  15. REM Set SnoopPipe=\pipe\point /* else do it in BINKLEY.CFG */
  16.  
  17. C:
  18. CD %BBS%
  19. If Exist INBINK EXIT
  20. ANSI ON
  21. MODE CO80,43
  22. MODE COM1:9600,N,8,1,TO=OFF,XON=OFF,IDSR=OFF,ODSR=OFF,OCTS=ON,DTR=ON,RTS=ON,BUFFER=ON
  23.  
  24. Goto BTTime
  25.  
  26. :Top
  27. If Not Exist %OUT%\*.?UT Goto BTTime
  28. Call Ommme
  29.  
  30. :BTTime
  31. Echo INBINK >INBINK
  32. %BINKLEY%BTP Unattended %1
  33.  
  34. If ERRORLEVEL 221 Goto Top
  35. If ERRORLEVEL 220 Goto Weekly
  36. If ERRORLEVEL 211 Goto Top
  37. If ERRORLEVEL 210 Goto Maint_Time
  38. If ERRORLEVEL 200 Goto Mail_Out
  39. If ERRORLEVEL 130 Goto Mail_In
  40. If ERRORLEVEL 120 Goto Top
  41. If ERRORLEVEL 110 Goto Top
  42. If ERRORLEVEL 100 Goto Mail_In
  43. If ERRORLEVEL  90 Goto Mail_Out
  44. If ERRORLEVEL  80 Goto Mail_Chk
  45. If ERRORLEVEL  70 Goto POLL
  46. If ERRORLEVEL  50 Goto Hatchit
  47. If ERRORLEVEL  40 Goto Editor
  48. If ERRORLEVEL  39 Goto Top
  49. If ERRORLEVEL  30 Goto Off_Bottom
  50. If ERRORLEVEL  29 Goto Top
  51. If ERRORLEVEL  11 Goto Top
  52. If ERRORLEVEL  10 Goto Help
  53. If ERRORLEVEL   9 Goto Top
  54. If ERRORLEVEL   2 Goto Top
  55.  
  56. Rem   If we got here, then it means we should exit and return to OS/2.
  57. Goto Off_Bottom
  58.  
  59. :Help
  60. CLS
  61. Echo ╔═════════════════════════════════════════════════════════════════════════╗
  62. Echo ║               BinkleyTerm Point Kit Help Screen                         ║
  63. Echo ║                                                                         ║
  64. Echo ║  F1 = This Help                      F2 =                               ║
  65. Echo ║  F3 = Quit BinkleyTerm               F4 = Invoke MsgEd                  ║
  66. Echo ║  F5 = Invoke Hatch                   F6 =                               ║
  67. Echo ║  F7 = Poll Boss                      F8 = Check Outbound Mail           ║
  68. Echo ║  F9 = Export Mail                    F10= Import Mail                   ║
  69. Echo ║                                                                         ║
  70. Echo ║                                                                         ║
  71. Echo ║                                                                         ║
  72. Echo ║                                                                         ║
  73. Echo ║                                                                         ║
  74. Echo ╚═════════════════════════════════════════════════════════════════════════╝
  75. Echo.
  76. Pause
  77. Goto Top
  78.  
  79. :Mail_In
  80. Call Import
  81. If Exist %IN%\nodediff.a* Call Listgen.cmd
  82. Goto Top
  83.  
  84. Rem   If we got here, then it is time for Weekly stuff.
  85. :Weekly
  86. Goto BTTime
  87.  
  88. Rem   If we got here, then it is time to renum and compress echomail.
  89. :Maint_Time
  90. If Exist BINK2.LOG Del BINK2.LOG >Nul:
  91. If Exist BINK1.LOG Ren BINK1.LOG BINK2.* >Nul:
  92. If Exist BINK.LOG Ren BINK.LOG BINK1.* >Nul:
  93. Call Compress
  94. REM Group2 In Link Out Ask /C /B >Nul:
  95. Call oMMMe
  96. REM Group2 Kill /C /B >Nul:
  97. Goto POLL
  98.  
  99. Rem   If we got here, then it is time to Edit echomail.
  100. :Editor
  101. C:
  102. CD %BBS%
  103. Call Msgs
  104. Goto BTTime
  105.  
  106. Rem   If we got here, then it is time to Hatch some files.
  107. :Hatchit
  108. C:
  109. CD %BBS%
  110. HatchP
  111. Goto BTTime
  112.  
  113. Rem   If we got here, then it is time to list the contents of Outbound.
  114. :Mail_Chk
  115. Dir %OUT% /p
  116. Goto BTTime
  117.  
  118. Rem   If we got here, then it is time Export the mail.
  119. :Mail_Out
  120. Rem   Clean out calling tickies in Outbound.
  121. If Exist %OUT%\*.?$? Del %OUT%\*.?$? >Nul:
  122. Call Export
  123.  
  124. Rem   If we got here, then it is time to schedule a call to the Boss.
  125. :POLL
  126. If Exist %OUT%\*.?$? Del %OUT%\*.?$? >Nul:
  127. Omail Poll -c%BOSS% >Nul:
  128. Goto Top
  129.  
  130. Rem   Time to get out
  131. :Off_Bottom
  132. If Exist INBINK Del INBINK >Nul:
  133. Echo.
  134.