verse
479b856a910f
plugins/ping.lua

Find changesets by keywords by author, files, the commit message, revision number or hash, or revset expression.

Software / code / verse

Annotate

plugins/ping.lua @ 382:479b856a910f

verse: Enable TCP keepalives
author Kim Alvefur <zash@zash.se>
date Tue, 05 May 2015 01:08:20 +0200
parent 380:0891b4e27766
child 393:69229fa1d24f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
250
a5ac643a7fd6 added local verse var to all plugins
mva <mva@mva.name>
parents: 147
diff changeset
1 local verse = require "verse";
a5ac643a7fd6 added local verse var to all plugins
mva <mva@mva.name>
parents: 147
diff changeset
2
36
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();
380
0891b4e27766 Discard trailing whitespace
Kim Alvefur <zash@zash.se>
parents: 339
diff changeset
8 stream:send_iq(verse.iq{ to = jid, type = "get" }:tag("ping", { xmlns = xmlns_ping }),
32
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
339
72fbfb0367e9 plugins.ping: Reply to pings
Kim Alvefur <zash@zash.se>
parents: 250
diff changeset
20 stream:hook("iq/"..xmlns_ping, function(stanza)
72fbfb0367e9 plugins.ping: Reply to pings
Kim Alvefur <zash@zash.se>
parents: 250
diff changeset
21 return stream:send(verse.reply(stanza));
72fbfb0367e9 plugins.ping: Reply to pings
Kim Alvefur <zash@zash.se>
parents: 250
diff changeset
22 end);
34
dd5899412e3f plugins.ping: Return true on module load to indicate load success
Matthew Wild <mwild1@gmail.com>
parents: 32
diff changeset
23 return true;
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
24 end