diff options
-rw-r--r-- | Presence/XMPP.hs | 11 |
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]):) |