verse
fca0c7672148
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 @ 474:fca0c7672148

disco: Remove stray print()
author Matthew Wild <mwild1@gmail.com>
date Fri, 17 Mar 2023 11:12:12 +0000
parent 457:73d4eb93657b
child 490:6b2f31da9610
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";
393
69229fa1d24f plugins.ping: Import socket.gettime to a local, LuaSocket stopped setting globals
Kim Alvefur <zash@zash.se>
parents: 380
diff changeset
2 local gettime = require"socket".gettime;
457
73d4eb93657b Update to use util.id for random ids instead of counters (thanks Zash)
Matthew Wild <mwild1@gmail.com>
parents: 393
diff changeset
3 local new_id = require "util.id".short;
250
a5ac643a7fd6 added local verse var to all plugins
mva <mva@mva.name>
parents: 147
diff changeset
4
36
fc2cd2f36cdd plugins.ping: Define xmlns_ping namespace
Matthew Wild <mwild1@gmail.com>
parents: 34
diff changeset
5 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
6
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
7 function verse.plugins.ping(stream)
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
8 function stream:ping(jid, callback)
393
69229fa1d24f plugins.ping: Import socket.gettime to a local, LuaSocket stopped setting globals
Kim Alvefur <zash@zash.se>
parents: 380
diff changeset
9 local t = gettime();
457
73d4eb93657b Update to use util.id for random ids instead of counters (thanks Zash)
Matthew Wild <mwild1@gmail.com>
parents: 393
diff changeset
10 local id = new_id();
73d4eb93657b Update to use util.id for random ids instead of counters (thanks Zash)
Matthew Wild <mwild1@gmail.com>
parents: 393
diff changeset
11 local ping = verse.iq{ id = id, to = jid, type = "get" }:tag("ping", { xmlns = xmlns_ping });
73d4eb93657b Update to use util.id for random ids instead of counters (thanks Zash)
Matthew Wild <mwild1@gmail.com>
parents: 393
diff changeset
12 stream:send_iq(ping,
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
13 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
14 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
15 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
16 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
17 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
18 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
19 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
20 end
393
69229fa1d24f plugins.ping: Import socket.gettime to a local, LuaSocket stopped setting globals
Kim Alvefur <zash@zash.se>
parents: 380
diff changeset
21 callback(gettime()-t, jid);
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
22 end);
457
73d4eb93657b Update to use util.id for random ids instead of counters (thanks Zash)
Matthew Wild <mwild1@gmail.com>
parents: 393
diff changeset
23 return id;
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
24 end
339
72fbfb0367e9 plugins.ping: Reply to pings
Kim Alvefur <zash@zash.se>
parents: 250
diff changeset
25 stream:hook("iq/"..xmlns_ping, function(stanza)
72fbfb0367e9 plugins.ping: Reply to pings
Kim Alvefur <zash@zash.se>
parents: 250
diff changeset
26 return stream:send(verse.reply(stanza));
72fbfb0367e9 plugins.ping: Reply to pings
Kim Alvefur <zash@zash.se>
parents: 250
diff changeset
27 end);
34
dd5899412e3f plugins.ping: Return true on module load to indicate load success
Matthew Wild <mwild1@gmail.com>
parents: 32
diff changeset
28 return true;
32
391048601d54 plugins.ping: Add ping plugin to XMPP ping a JID
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
29 end