verse
7c6a610c3ff5
plugins/receipts.lua

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

Software / code / verse

Annotate

plugins/receipts.lua @ 404:7c6a610c3ff5

plugins.presence: Fix resending previous presence
author Kim Alvefur <zash@zash.se>
date Sat, 04 Jun 2016 13:35:23 +0200 (2016-06-04)
parent 319:12b0e5cc72bf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
319
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
1 local verse = require"verse";
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
2 local xmlns_receipts = "urn:xmpp:receipts";
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
3
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
4 function verse.plugins.receipts(stream)
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
5 stream:add_plugin("disco");
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
6 local function send_receipt(stanza)
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
7 if stanza:get_child("request", xmlns_receipts) then
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
8 stream:send(verse.reply(stanza)
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
9 :tag("received", { xmlns = xmlns_receipts, id = stanza.attr.id }));
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
10 end
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
11 end
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
12
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
13 stream:add_disco_feature(xmlns_receipts);
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
14 stream:hook("message", send_receipt, 1000);
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
15 end
12b0e5cc72bf plugins.receipts: XEP-0184 support.
Kim Alvefur <zash@zash.se>
parents:
diff changeset
16