Mercurial > lxmppd-hg-xmllex / changeset

--- a/core/modulemanager.lua	Sun Oct 26 21:21:38 2008 +0500
+++ b/core/modulemanager.lua	Sun Oct 26 21:22:59 2008 +0500
@@ -51,6 +51,7 @@
 	load("register");
 	load("tls");
 	load("vcard");
+	load("private");
 end
 
 function load(name)

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/mod_private.lua	Sun Oct 26 21:22:59 2008 +0500
@@ -0,0 +1,47 @@
+
+local st = require "util.stanza"
+local send = require "core.sessionmanager".send_to_session
+
+local jid_split = require "util.jid".split;
+local datamanager = require "util.datamanager"
+
+add_iq_handler("c2s", "jabber:iq:private",
+	function (session, stanza)
+		local type = stanza.attr.type;
+		local query = stanza.tags[1];
+		if (type == "get" or type == "set") and query.name == "query" then
+			local node, host = jid_split(stanza.attr.to);
+			if not(node or host) or (node == session.username and host == session.host) then
+				node, host = session.username, session.host;
+				if #query.tags == 1 then
+					local tag = query.tags[1];
+					local key = tag.name..":"..tag.attr.xmlns;
+					local data = datamanager.load(node, host, "private");
+					if stanza.attr.type == "get" then
+						if data and data[key] then
+							send(session, st.reply(stanza):tag("query", {xmlns = "jabber:iq:private"}):add_child(st.deserialize(data[key])));
+						else
+							send(session, st.reply(stanza):add_child(stanza.tags[1]));
+						end
+					else -- set
+						if not data then data = {}; end;
+						if #tag == 0 then
+							data[key] = nil;
+						else
+							data[key] = st.preserialize(tag);
+						end
+						-- TODO delete datastore if empty
+						if datamanager.store(node, host, "private", data) then
+							send(session, st.reply(stanza));
+						else
+							send(session, st.error_reply(stanza, "wait", "internal-server-error"));
+						end
+					end
+				else
+					send(session, st.error_reply(stanza, "modify", "bad-format"));
+				end
+			else
+				send(session, st.error_reply(stanza, "cancel", "forbidden"));
+			end
+		end
+	end);
\ No newline at end of file