client connections

1 files changed, 6 insertions, 0 deletions

diff --git a/Presence/EventUtil.hs b/Presence/EventUtil.hs
index a1c48e33..adcae1d3 100644
--- a/Presence/EventUtil.hs
+++ b/Presence/EventUtil.hs
@@ -29,6 +29,12 @@ isServerIQOf (EventBeginElement name attrs) testType
     = True
 isServerIQOf _ _ = False
 
+isClientIQOf (EventBeginElement name attrs) testType 
+    | name=="{jabber:client}iq" 
+    && matchAttrib "type" testType attrs
+    = True
+isClientIQOf _ _ = False
+
 matchAttrib name value attrs = 
     case List.find ( (==name) . fst) attrs of
         Just (_,[ContentText x])   | x==value -> True