home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / roboos2b.zip / OS2-REP.RS < prev    next >
Text File  |  1994-03-12  |  3KB  |  108 lines
  1. TITLE "OS2Shareware Send REPlies"
  2.  
  3. PARAMETER 1 "Enter # of REPs  to keep (1 to 9)"
  4. ENDPARAMS
  5.  
  6.     TIMEOUT 120
  7.  
  8.     IF NOT CONNECTED GOTO NotOn
  9.  
  10. ;Check if replies exist, if not quit
  11.     IF NOT EXIST "%REPDIR%%ID%.REP" GOTO NoRep
  12.  
  13. ;Get through Standard prompts
  14.     WHEN "to continue" Send "|"
  15.     WHEN "More [Y,n,=]?" SEND "|"
  16.  
  17. ; Send a bunch of <CR> to get through the other prompts
  18. ; without modifications
  19.  
  20.     SEND "||"
  21.     WAITFOR "MAIN:" FAILURE HANGUP
  22.  
  23. ; Switch to Offline Reader
  24.     MESSAGE "Changing to Offline Reader Area"
  25.     SEND "O"
  26.     WAITFOR "READER:"
  27.  
  28.  
  29. ;Start Upload Procedure
  30.     CLEAR
  31.     WHEN "Error receiving" GOTO BadTry
  32.     WHEN "Error decomp" GOTO DeComp
  33.     WHEN "MESSAGE:" GOTO ReNum0
  34.     WHEN "MAIN:" GOTO ReNum0
  35.     Message "Sending Replies Packet"
  36.     SEND "U"
  37.     WAITFOR "times to cancel."
  38.     UPLOAD "%REPDIR%%ID%.REP" USING "%BBS21%"
  39.     IF ERRORLEVEL GOTO  UploadError
  40. ;If either of two prompts below go to main prompt
  41.     WAITFOR "READER:" FAILURE GOTO BadTry
  42.  
  43. :ReNum0
  44. ; Renaming Reply packets, will keep up to nine
  45.  
  46.     MESSAGE "Renumbering REP packets"
  47.  
  48.     IF EXIST "%QWKDIR%%ID%.RE9" ERASE "%QWKDIR%%ID%.RE9"
  49.     IF EXIST "%QWKDIR%%ID%.RE8" RENAME "%QWKDIR%%ID%.RE8" TO "%QWKDIR%%ID%.RE9"
  50.     IF EXIST "%QWKDIR%%ID%.RE7" RENAME "%QWKDIR%%ID%.RE7" TO "%QWKDIR%%ID%.RE8"
  51.     IF EXIST "%QWKDIR%%ID%.RE6" RENAME "%QWKDIR%%ID%.RE6" TO "%QWKDIR%%ID%.RE7"
  52.     IF EXIST "%QWKDIR%%ID%.RE5" RENAME "%QWKDIR%%ID%.RE5" TO "%QWKDIR%%ID%.RE6"
  53.     IF EXIST "%QWKDIR%%ID%.RE4" RENAME "%QWKDIR%%ID%.RE4" TO "%QWKDIR%%ID%.RE5"
  54.     IF EXIST "%QWKDIR%%ID%.RE3" RENAME "%QWKDIR%%ID%.RE3" TO "%QWKDIR%%ID%.RE4"
  55.     IF EXIST "%QWKDIR%%ID%.RE2" RENAME "%QWKDIR%%ID%.RE2" TO "%QWKDIR%%ID%.RE3"
  56.     IF EXIST "%QWKDIR%%ID%.RE1" RENAME "%QWKDIR%%ID%.RE1" TO "%QWKDIR%%ID%.RE2"
  57.     IF EXIST "%QWKDIR%%ID%.REP" RENAME "%QWKDIR%%ID%.REP" TO "%QWKDIR%%ID%.RE1"
  58.  
  59.  
  60. ;   IF NOT EMPTY "%P1%" GOTO RENUM1
  61. ;   IF EXIST "%REPDIR%%ID%.REP" RENUMBER "%REPDIR%%ID%.REP" 9
  62. ;   GOTO RENUM2
  63.   :RENUM1
  64. ;   IF EXIST "%REPDIR%%ID%.REP" RENUMBER "%REPDIR%%ID%.REP %P1%"
  65.   :RENUM2
  66.  
  67.     CLEAR
  68. ; Send enter to Return to MAIN
  69.     SEND "|"
  70. ;    SEND "M"
  71.     EXIT 0
  72.  
  73. ;Ending Routine
  74.     WAITFOR "READER:"  FAILURE SEND "M"
  75.     SEND "M"
  76.     WAITFOR "MAIN:"
  77.     MESSAGE "Ending Mail Routine"
  78.     EXIT 0
  79.  
  80. :UploadError
  81.    MESSAGE "Rep Upload Failed"
  82.    SEND "||"
  83.    WAITFOR "MAIN:"
  84.    EXIT 1
  85.  
  86. :NotOn
  87.         Message "Make Sure SCript to Execute  After Log On"
  88.         Message "is Set in BBs systems"
  89.         Exit 1
  90.  
  91. :NoRep
  92.         MESSAGE "No Rep packet to Send"
  93.         EXIT 0
  94.  
  95. :BadTry
  96.     Message "Rep Upload Failed"
  97.     SEND "||"
  98.     WAITFOR "READER:"
  99.     SEND "M"
  100.     Waitfor "MAIN:"
  101.     EXIT 1
  102.  
  103. :DeComp
  104.     Message "BBS could not decompress packet"
  105.     Send "M"
  106.     Waitfor "MAIN:"
  107.     EXIT 1
  108.