From 4cd9c73e3cdd8ce6126c191f6205fce7cfc818e8 Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 7 Mar 2014 15:29:45 -0500 Subject: Failure notice in irssi --- Presence/XMPPServer.hs | 7 +++++++ xmppServer.hs | 1 + 2 files changed, 8 insertions(+) diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index 4dda1f70..3d4120fa 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs @@ -200,6 +200,13 @@ enableClientHacks "Pidgin" version replyto = do (InternalEnableHack SimulatedChatErrors) [] replyto +enableClientHacks "irssi-xmpp" version replyto = do + wlog "Enabling hack SimulatedChatErrors for client irssi-xmpp" + donevar <- atomically newEmptyTMVar + sendReply donevar + (InternalEnableHack SimulatedChatErrors) + [] + replyto enableClientHacks _ _ _ = return () cacheMessageId id' replyto = do diff --git a/xmppServer.hs b/xmppServer.hs index 35d18e92..2476daec 100644 --- a/xmppServer.hs +++ b/xmppServer.hs @@ -405,6 +405,7 @@ rewriteJIDForPeer jid = do to' = unsplitJID (n,h',r) in (to',addr) +-- | deliver or error stanza deliverMessage state fail msg = case stanzaOrigin msg of NetworkOrigin senderk@(ClientKey {}) _ -> do -- cgit v1.2.3