reply to probes (untested)

1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 0103ba46..e66eea70 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -183,6 +183,7 @@ data XMPPServerParameters =
     , xmppTellClientNameOfPeer :: ConnectionKey -> IO Text
     , xmppDeliverMessage :: (IO ()) -> Stanza -> IO ()
     , xmppInformClientPresence :: ConnectionKey -> Stanza -> IO ()
+    , xmppAnswerProbe :: ConnectionKey -> Stanza -> TChan Stanza -> IO ()
     }
 
 
@@ -1569,6 +1570,10 @@ monitor sv params xmpp = do
                                 guard . not . null . mapMaybe (msgBody . snd) $ msgLangMap (stanzaType stanza)
                                 stanzaId stanza
                         _ -> return ()
+                NetworkOrigin k@(PeerKey {}) replyto ->
+                    case stanzaType stanza of
+                        PresenceRequestStatus {} -> do
+                            xmppAnswerProbe xmpp k stanza replyto
                 _ -> return ()
             let deliver replyto = do
                     -- TODO: Issuing RecipientUnavailable for all errors is a presence leak