# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1292989792 0
# Node ID 526624f7852eb8c7be7d0ff02296d970cd55807b
# Parent  d55e67e4191a69e97499b95288f0caf6e84ec449
mod_pubsub: Implement get_subscriptions

diff -r d55e67e4191a -r 526624f7852e plugins/mod_pubsub.lua
--- a/plugins/mod_pubsub.lua	Wed Dec 22 03:49:23 2010 +0000
+++ b/plugins/mod_pubsub.lua	Wed Dec 22 03:49:52 2010 +0000
@@ -67,6 +67,20 @@
 	return origin.send(reply);
 end
 
+function handlers.get_subscriptions(origin, stanza, subscriptions)
+	local node = subscriptions.attr.node;
+	local ok, ret = service:get_subscriptions(node, stanza.attr.from, stanza.attr.from);
+	if not ok then
+		return origin.send(pubsub_error_reply(stanza, ret));
+	end
+	local reply = st.reply(stanza)
+		:tag("subscriptions", { xmlns = xmlns_pubsub });
+	for _, sub in ipairs(ret) do
+		reply:tag("subscription", { node = sub.node, jid = sub.jid, subscription = 'subscribed' }):up();
+	end
+	return origin.send(reply);
+end
+
 function handlers.set_create(origin, stanza, create)
 	local node = create.attr.node;
 	local ok, ret, reply;