local st = require "util.stanza";

local services = module:get_option("external_services");

local xmlns_extdisco = "urn:xmpp:extdisco:1";

module:add_feature(xmlns_extdisco);

module:hook("iq-get/host/"..xmlns_extdisco..":services", function (event)

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

	local service = stanza:get_child("service", xmlns_extdisco);

	local service_type = service and service.attr.type;

	local reply = st.reply(stanza);

	for host, service_info in pairs(services) do

		if not(service_type) or service_info.type == service_type then

			reply:tag("service", {

				host = host;

				port = service_info.port;

				transport = service_info.transport;

				type = service_info.type;

				username = service_info.username;

				password = service_info.password;

			}):up();

		end

	end

	origin.send(reply);

	return true;

end);

module:hook("iq-get/host/"..xmlns_extdisco..":credentials", function (event)

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

	local credentials = stanza:get_child("credentials", xmlns_extdisco);

	local host = credentials and credentials.attr.host;

	if not host then

		origin.send(st.error_reply(stanza, "cancel", "bad-request", "No host specified"));

		return true;

	end

	local service_info = services[host];

	if not service_info then

		origin.send(st.error_reply(stanza, "cancel", "item-not-found", "No such service known"));

		return true;

	end

	local reply = st.reply(stanza)

		:tag("credentials")

			:tag("service", {

				host = host;

				username = service_info.username;

				password = service_info.password;

			}):up();

	origin.send(reply);

	return true;

end);