Software / code / verse
Annotate
plugins/ping.lua @ 79:da06d4996992
plugins.compression: Add newline at end of file (helps old versions of squish for one thing)
| author | Matthew Wild <mwild1@gmail.com> |
|---|---|
| date | Fri, 04 Jun 2010 10:36:34 +0100 |
| parent | 41:1a1bd8cd4bdb |
| child | 147:c95b84ed366b |
| 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 |
