* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
* RBBSSUB2.BAS:  Date 5-21-1990  Size 135138 bytes
* ------------[ Created 06-23-1990 23:38:24 ]------------
* REPLACING old line(s) by new
2032 IF MsgTo$ <> "ALL" THEN _
        IF (LEFT$(MsgTo$,4) <> "ALL " AND ZStartHash = 1) THEN _
* ------[ first line different ]------
           ZWasDF = INSTR(MsgTo$+" @"," @") : _                      ' KG052201
           TempHashValue$ = LEFT$(MsgTo$,ZWasDF-1) : _               ' KG052201
           CALL WhoCheck (TempHashValue$,Found,RcvrRecNum) : _
           IF NOT Found THEN _
              ZLastIndex = 0 : _
              RcvrRecNum = 0 : _                                     ' KG060901
              IF NOT ZReply THEN _
                 ZOutTxt$ = "[R]e-enter name, Q)uit, C)ontinue" : _
                 ZTurboKey = -ZTurboKeyUser : _
                 ZLastIndex = 0 : _
                 GOSUB 2033 : _
                 ZWasZ$ = ZUserIn$(1) : _
                 CALL AllCaps (ZWasZ$) : _
                 IF ZWasZ$ <> "C" THEN _
                    MsgTo$ = "" : _
                    IF ZWasZ$ <> "Q" THEN _
                       GOTO 2020
     IF MsgTo$ = Temp$ THEN _
        ZOutTxt$ = "Msg would be from and to SAME PERSON!  Really do this (Y,[N])" : _
        ZLastIndex = 0 : _
        GOSUB 2033 : _
        IF NOT ZYes THEN _
           MsgTo$ = ""
     EXIT SUB
* REPLACING old line(s) by new
2250 ' $SUBTITLE: 'WhoCheck - Checks whether user exists'
' $PAGE
'
'  NAME    -- WhoCheck
'
'  INPUTS  --   PARAMETER                    MEANING
'              WhoFind$                User to find
'
'  OUTPUTS --  WhoFound                Whether user found
'              UserNumFound           Record # of user
'
'  PURPOSE --  Validate that user record exists.  Sysop
'              counted as found even if lack user record.
'
     SUB WhoCheck (WhoFind$,WhoFound,UserNumFound) STATIC
     UserNumFound = 0
     IF ZStartHash <> 1 THEN _
        WhoFound = ZTrue : _
        EXIT SUB
     Work128$ = ZUserRecord$
     WhoFound = ZFalse
     ToSysop = (INSTR(WhoFind$,"SYSOP") > 0 OR _
* ------[ first line different ]------
                INSTR(WhoFind$,ZSysopFirstName$ + " " + ZSysopLastName$) > 0) ' KG060902
     CALL OpenUser (HighestUserRecord)
     FIELD 5, 128 AS ZUserRecord$
     IF ToSysop THEN _
        WasX$ = ZSysopPswd1$ + " " + ZSysopPswd2$ _
     ELSE WasX$ = WhoFind$
     IF LEN(WasX$) > 1 THEN _
        CALL FindUser (WasX$,"",ZStartHash,ZLenHash,_
                       0,0,HighestUserRecord,WhoFound,_
                       UserNumFound,ZWasSL)
     LSET ZUserRecord$ = Work128$
     IF NOT WhoFound THEN _
        IF ToSysop THEN _
           WhoFound = ZTrue _
        ELSE CALL QuickTPut1 (WhoFind$ + " not active user")
     END SUB