-- mod_muc_search

-- https://muclumbus.jabbercat.org/docs/api#xmpp

-- TODO

-- Result set management (pagination, limits)

-- Sorting

-- min_users

local dataforms = require "util.dataforms";

local st = require "util.stanza";

local mod_muc = module:depends("muc");

assert(mod_muc.live_rooms, "Missing required MUC API. Prosody >= hg:f5c43e829d93 required");

local search_form = dataforms.new {

	{

		type = "hidden";

		value = "https://xmlns.zombofant.net/muclumbus/search/1.0#params";

		name = "FORM_TYPE";

	};

	{

		type = "text-single";

		label = "Search for";

		name = "q";

	};

	{

		type = "boolean";

		value = true;

		label = "Search in name";

		name = "sinname";

	};

	{

		type = "boolean";

		value = true;

		label = "Search in description";

		name = "sindescription";

	};

	{

		type = "boolean";

		value = true;

		label = "Search in address";

		name = "sinaddr";

	};

	{

		type = "text-single";

		value = "1";

		label = "Minimum number of users";

		name = "min_users";

	};

	{

		options = {

			{

				label = "Number of online users";

				value = "nusers";

			};

			{

				label = "Address";

				value = "address";

			};

		};

		type = "list-single";

		value = "nusers";

		label = "Sort results by";

		name = "key";

	};

};

module:hook("iq-get/host/https://xmlns.zombofant.net/muclumbus/search/1.0:search", function (event)

	local origin, stanza = event.origin, event.stanza;

	origin.send(st.reply(stanza)

		:tag("search", { xmlns = "https://xmlns.zombofant.net/muclumbus/search/1.0" })

			:add_child(search_form:form()));

	return true;

end);

module:hook("iq-set/host/https://xmlns.zombofant.net/muclumbus/search/1.0:search", function (event)

	local origin, stanza = event.origin, event.stanza;

	local search = stanza.tags[1];

	local submitted = search:get_child("x", "jabber:x:data");

	if not submitted then

		origin.send(st.error_reply("modify", "bad-request", "Missing dataform"));

		return;

	end

	local query = search_form:data(submitted);

	module:log("debug", "Got query: %q", query);

	local result = st.reply(stanza)

		:tag("result", { xmlns = "https://xmlns.zombofant.net/muclumbus/search/1.0" });

	for room in mod_muc.live_rooms() do -- TODO s/live/all/ but preferably along with pagination/rsm

		if room:get_public() and not room:get_members_only() then

			module:log("debug", "Looking at room %s %q", room.jid, room._data);

			if (query.sinname and room:get_name():find(query.q, 1, true))

			or (query.sindescription and (room:get_description() or ""):find(query.q, 1, true))

			or (query.sinaddr and room.jid:find(query.q, 1, true)) then

				result:tag("item", { address = room.jid })

					:text_tag("name", room:get_name())

					:text_tag("description", room:get_description())

					:text_tag("language", room:get_language())

					:tag("is-open"):up()

				:up();

			end

		end

	end

	origin.send(result);

	return true;

end);