summaryrefslogtreecommitdiff
path: root/Presence
diff options
context:
space:
mode:
Diffstat (limited to 'Presence')
-rw-r--r--Presence/XMPP.hs11
1 files changed, 0 insertions, 11 deletions
diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 2917d833..01852f43 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -329,19 +329,8 @@ handleIQGet session cmdChan tag = do
329 liftIO . atomically . writeTChan cmdChan . Send $ iq_service_unavailable host stanza_id Nothing req 329 liftIO . atomically . writeTChan cmdChan . Send $ iq_service_unavailable host stanza_id Nothing req
330 case tagName child of 330 case tagName child of
331 -- "{http://jabber.org/protocol/disco#items}query" -> liftIO $ putStrLn "iq-get-query-items" 331 -- "{http://jabber.org/protocol/disco#items}query" -> liftIO $ putStrLn "iq-get-query-items"
332 {-
333 IN client:
334 <iq type="get" id="purple8f8224d6"
335 ><ping xmlns="urn:xmpp:ping"/></iq>
336
337
338 OUT client:
339 <iq from='blackbird' id='purple8f8224d6' type='result'/>
340 -}
341 "{urn:xmpp:ping}ping" -> liftIO $ do 332 "{urn:xmpp:ping}ping" -> liftIO $ do
342 putStrLn ("iq-ping: "++show (stanza_id,child))
343 let mjid = lookupAttrib "from" (tagAttrs tag) 333 let mjid = lookupAttrib "from" (tagAttrs tag)
344 L.putStrLn $ "PING! from=" <++> bshow mjid
345 let pong = [ EventBeginElement "{jabber:client}iq" 334 let pong = [ EventBeginElement "{jabber:client}iq"
346 $ (case mjid of 335 $ (case mjid of
347 Just jid -> (("to",[ContentText jid]):) 336 Just jid -> (("to",[ContentText jid]):)