--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_extdisco/mod_extdisco.lua	Mon Nov 29 17:58:42 2010 +0000
@@ -0,0 +1,52 @@
+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);