home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / smlmes10.zip / PATCH.TXT < prev    next >
Encoding:
Text File  |  1988-04-05  |  1.6 KB  |  41 lines
  1. Patch ?  for RBBS Version 16.1A !!!
  2.  
  3.  
  4. Quick Notes on RBBS 16.1A:   I found that in the RBBS-PC.BAS code, that it
  5. will update the 'Last Read' date whenever a Message is read.  Which is okay
  6. if the Message is Public, but to me, if it is Private then the Sender of
  7. the Message will never know if the Message was ever received.
  8. (Also, it nulls the purpose of the 'Delete Unread Private' function is
  9.  this program.)
  10. Anyways, below is quick patch so that if the message was Private, then the
  11. 'Last Read' will only be updated when the Receiver (To:) has read the
  12. message.
  13.  
  14. So, add to the code in RBBS-PC.BAS for 16.1A :  make it so it reads like:
  15.  
  16. 8077 IF (MESSAGE.RECORD$,1)="*") AND _                                 ' DC 03/28/88
  17.         (INSTR(MESSAGE.TO$,LEFT$(ACTIVE.USER.NAME$,21)=0) THEN 8080    ' DC 03/28/88
  18.      YY$ = DATE$
  19.      WK$ = TIME$
  20.      MID$(MESSAGE.RECORD$,123,6) = CHR$(VAL(MID$(YY$,1,2))) + _
  21.                                    CHR$(VAL(MID$(YY$,4,2))) + _
  22.                                    CHR$(VAL(MID$(YY$,9,2))) + _
  23.                                    CHR$(VAL(MID$(WK$,1,2))) + _
  24.                                    CHR$(VAL(MID$(WK$,4,2))) + _
  25.                                    CHR$(VAL(MID$(WK$,7,2)))
  26.      GOSUB 12986
  27.      PUT 1,M(MESSAGE.DIM.INDEX,1)
  28.      GOSUB 12987
  29.  
  30.  
  31. This info has been sent to the RBBS folks so they may come out with a
  32. better patch, for I have not even tested to see if the above patch
  33. will work, but in theory it might.
  34. (Basically, the patch is meant to only update the 'Last Read' when a
  35.  message was Private and the was (To:) the reading the message.)
  36.  
  37.  
  38. That's All Folks
  39. Darwin Collins
  40.  
  41.