From bd8a498604fd976fee159d5b9d4a3582e769a5d5 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Mon, 18 Jun 2018 03:33:41 +0000 Subject: show message on ping recieved --- src/Network/Tox/Crypto/Handlers.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 75446608..658032df 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -996,7 +996,7 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do return Nothing -- drop packet, we have no session Just session@(NCrypto { ncIncomingTypeArray, ncState, ncPacketQueue, ncHooks, ncSessionSecret, ncTheirSessionPublic, ncTheirBaseNonce, - ncPingMachine}) -> do + ncPingMachine, ncSessionId}) -> do mbTheirBaseNonce <- atomically $ readTVar ncTheirBaseNonce case mbTheirBaseNonce of NeedHandshake -> dput XNetCrypto "CryptoPacket recieved, but we still dont have their base nonce?" >> return Nothing @@ -1070,6 +1070,8 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do atomically $ PQ.observeOutOfBand ncPacketQueue bufferEnd runCryptoHook session (bufferData cd) else do dput XNetCrypto "enqueue ncPacketQueue Lossless" + when (msgID cm == PING) $ + dput XNetCrypto $ "NetCrypto Recieved PING (session " ++ show ncSessionId ++")" atomically $ PQ.enqueue ncPacketQueue bufferEnd cd return Nothing where -- cgit v1.2.3