core: contact disabled event (#4194)

This commit is contained in:
spaced4ndy
2024-05-16 17:08:13 +04:00
committed by GitHub
parent d1dde3d0c8
commit 49e09ca449
3 changed files with 6 additions and 2 deletions
+4 -2
View File
@@ -4685,8 +4685,10 @@ processAgentMessageConn vr user@User {userId} corrId agentConnId agentMessage =
case err of
SMP _ SMP.AUTH -> do
authErrCounter' <- withStore' $ \db -> incConnectionAuthErrCounter db user conn
when (authErrCounter' >= authErrDisableCount) $ do
toView $ CRConnectionDisabled connEntity
when (authErrCounter' >= authErrDisableCount) $ case connEntity of
RcvDirectMsgConnection ctConn (Just ct) -> do
toView $ CRContactDisabled user ct {activeConn = Just ctConn {authErrCounter = authErrCounter'}}
_ -> toView $ CRConnectionDisabled connEntity
_ -> pure ()
-- TODO v5.7 / v6.0 - together with deprecating old group protocol establishing direct connections?