Annotate

plugins/ping.lua @ 120:47449a29d8ed

plugins.disco: Store node of disco items
author Matthew Wild <mwild1@gmail.com>
date Thu, 09 Sep 2010 19:25:08 +0100
parent 41:1a1bd8cd4bdb
child 147:c95b84ed366b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
41
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
1 require "util.xstanza";
36
fc2cd2f36cdd plugins.ping: Define xmlns_ping namespace
Matthew Wild <mwild1@gmail.com>
parents: 34
diff changeset
2
fc2cd2f36cdd plugins.ping: Define xmlns_ping namespace
Matthew Wild <mwild1@gmail.com>
parents: 34
diff changeset
3 local xmlns_ping = "urn:xmpp:ping";
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
4
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
5 function verse.plugins.ping(stream)
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
6 function stream:ping(jid, callback)
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
7 local t = socket.gettime();
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
8 stream:send_iq(verse.iq{ to = jid, type = "get" }:tag("ping", { xmlns = xmlns_ping }),
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
9 function (reply)
41
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
10 if reply.attr.type == "error" then
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
11 local type, condition, text = reply:get_error();
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
12 if condition ~= "service-unavailable" and condition ~= "feature-not-implemented" then
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
13 callback(nil, jid, { type = type, condition = condition, text = text });
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
14 return;
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
15 end
1a1bd8cd4bdb plugins.ping: Don't handle all errors as successful pongs, call callback with nil time and 3rd parameter a table with error info
Matthew Wild <mwild1@gmail.com>
parents: 36
diff changeset
16 end
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
17 callback(socket.gettime()-t, jid);
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
18 end);
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
19 end
34
dd5899412e3f plugins.ping: Return true on module load to indicate load success
Matthew Wild <mwild1@gmail.com>
parents: 32
diff changeset
20 return true;
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
21 end