view mod_filter_chatstates/mod_filter_chatstates.lua @ 1494:02cd4a081db4

mod_filter_chatstates: Replace unwanted messages with a dummy stanza so that mod_message doesn't think delivery failed (and then generate an error reply)
author Matthew Wild <mwild1@gmail.com>
date Mon, 25 Aug 2014 12:03:52 +0100
parents b06b5ac5714b
children ca48eea4785c
line wrap: on
line source

local filters = require "util.filters";
local st = require "util.stanza";

local dummy_stanza_mt = setmetatable({ __tostring = function () return ""; end }, { __index = st.stanza_mt });
local dummy_stanza = setmetatable(st.stanza(), dummy_stanza_mt);

module:depends("csi");

local function filter_chatstates(stanza)
	if stanza.name == "message" then
		stanza = st.clone(stanza);
		stanza:maptags(function (tag)
			if tag.attr.xmlns ~= "http://jabber.org/protocol/chatstates" then
				return tag;
			end
		end);
		if #stanza.tags == 0 then
			return dummy_stanza;
		end
	end
	return stanza;
end

module:hook("csi-client-inactive", function (event)
	local session = event.origin;
	filters.add_filter(session, "stanzas/out", filter_chatstates);
end);

module:hook("csi-client-active", function (event)
	local session = event.origin;
	filters.remove_filter(session, "stanzas/out", filter_chatstates);
end);