File

mod_muc_hats_adhoc/mod_muc_hats_adhoc.lua @ 5185:09d6bbd6c8a4

mod_http_oauth2: Fix treatment of 'redirect_uri' parameter in code flow It's optional and the one stored in the client registration should really be used instead. RFC 6749 says an URI provided as parameter MUST be validated against the stored one but does not say how. Given that the client needs their secret to proceed, it seems fine to leave this for later.
author Kim Alvefur <zash@zash.se>
date Thu, 02 Mar 2023 22:00:42 +0100
parent 3948:11825788a452
line wrap: on
line source

module:depends("adhoc");
local adhoc_new = module:require("adhoc").new;
local hats_api = module:depends("muc_hats_api");

local dataforms_new = require "util.dataforms".new;
local adhoc_simple = require "util.adhoc".new_simple_form;

local function generate_error_message(errors)
	local errmsg = {};
	for name, err in pairs(errors) do
		errmsg[#errmsg + 1] = name .. ": " .. err;
	end
	return { status = "completed", error = { message = table.concat(errmsg, "\n") } };
end

local add_hat_form_layout = dataforms_new {
	title = "Add a hat";
	instructions = "Assign a hat to a room member";

	{ name = "user",  type = "jid-single",  label = "User JID", required = true };
	{ name = "room",  type = "jid-single",  label = "Room JID", required = true };
	{ name = "title", type = "text-single", label = "Hat title" };
	{ name = "uri",   type = "text-single", label = "Hat URI",  required = true };
};

local add_hat_handler = adhoc_simple(add_hat_form_layout, function (fields, errs)
	if errs then
		return generate_error_message(errs);
	end

	local ok, err_cond, err_text = hats_api.add_user_hat(fields.user, fields.room, fields.uri, {
		active = true;
		required = true;
		title = fields.title;
	});

	return {
		status = "completed";
		info = ok and "The hat has been added successfully" or ("There was an error adding the hat: "..(err_text or err_cond));
	};

end);

local remove_hat_form_layout = dataforms_new {
	title = "Remove a hat";
	instructions = "Remove a hat from a room member";

	{ name = "user",  type = "jid-single",  label = "User JID", required = true };
	{ name = "room",  type = "jid-single",  label = "Room JID", required = true };
	{ name = "uri",   type = "text-single", label = "Hat URI",  required = true };
};

local remove_hat_handler = adhoc_simple(remove_hat_form_layout, function (fields, errs)
	if errs then
		return generate_error_message(errs);
	end

	local ok, err_cond, err_text = hats_api.remove_user_hat(fields.user, fields.room, fields.uri);

	return {
		status = "completed";
		info = ok and "The hat has been removed successfully" or ("There was an error removing the hat: "..(err_text or err_cond));
	};

end);

local add_hat_desc = adhoc_new("Add hat to a user", "http://prosody.im/protocol/hats#add", add_hat_handler, "admin");
local remove_hat_desc = adhoc_new("Remove hat from a user", "http://prosody.im/protocol/hats#remove", remove_hat_handler, "admin");

module:provides("adhoc", add_hat_desc);
module:provides("adhoc", remove_hat_desc);