view mod_bind2/mod_bind2.lua @ 5264:d3ebaef1ea7a

mod_http_oauth2: Correctly verify OAuth client credentials on revocation Makes no sense to validate against username and password here, or using a token to revoke another token, or itself? In fact, upon further discussion, why do you need credentials to revoke a token? If you are not supposed to have the token, revoking it seems the most responsible thing to do with it, so it should be allowed, while if you are supposed to have it, you should be allowed to revoke it.
author Kim Alvefur <zash@zash.se>
date Tue, 21 Mar 2023 21:57:18 +0100
parents 1539ae696613
children
line wrap: on
line source

local mm = require "core.modulemanager";
local sm = require "core.sessionmanager";

local xmlns_sasl2 --[[<const>]] = "urn:xmpp:sasl:1";
local xmlns_bind2 --[[<const>]] = "urn:xmpp:bind2:0";
local xmlns_carbons --[[<const>]] = "urn:xmpp:carbons:2";

module:depends("sasl2");
module:depends("carbons");

module:hook("stream-features", function(event)
	local origin, features = event.origin, event.features;
	if origin.type ~= "c2s_unauthed" then return end
	features:tag("bind", xmlns_bind2):up();
end);

module:hook_tag(xmlns_sasl2, "authenticate", function (session, auth)
	session.bind2 = auth:get_child("bind", xmlns_bind2);
end, 1);

module:hook("sasl2/c2s/success", function (event)
	local session = event.session;
	if not session.bind2 then return end

	-- When it receives a bind 2.0 on an authenticated not-yet-bound session, the
	-- server MUST:

	-- Clear the offline messages for this user, if any, without sending them (as
	-- they will be provided by MAM).
	if mm.is_loaded(module.host, "offline") then -- luacheck: ignore 542
		-- TODO
	end

	-- Perform resource binding to a random resource (see 6120)
	if not sm.bind_resource(session, nil) then
		-- FIXME How should this be handled even?
		session:close("reset");
		return true;
	end

	-- Work out which contacts have unread messages in the user's MAM archive,
	-- how many, and what the id of the last read message is
	-- XXX How do we know what the last read message was?
	-- TODO archive:summary(session.username, { after = ??? });

	-- Get the id of the newest stanza in the user's MAM archive
	-- TODO archive:find(session.username, { reverse = true, limit = 1 });

	-- Silently enable carbons for this session
	session.carbons = xmlns_carbons;

	-- After processing the bind stanza, as above, the server MUST respond with
	-- an element of type 'bound' in the namespace 'urn:xmpp:bind2:0', as in the
	-- below example
	event.success:tag("bound", xmlns_bind2):text_tag("jid", session.full_jid):up();

	session.bind2 = nil;
end);