# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1288291042 -3600
# Node ID f5c524412939168400a274794872d261503dd709
# Parent  386920f058089d7ea12cd7aeffbd4b95d5225809
plugins.private: Private XML storage support

diff -r 386920f05808 -r f5c524412939 plugins/private.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/private.lua	Thu Oct 28 19:37:22 2010 +0100
@@ -0,0 +1,25 @@
+local xmlns_private = "jabber:iq:private";
+
+function verse.plugins.private(stream)
+	function stream:private_set(name, xmlns, data, callback)
+		local iq = verse.iq({ type = "set" })
+			:tag("query", { xmlns = xmlns_private })
+				:tag(name, { xmlns = xmlns });
+		if data then iq:add_child(data); end
+		self:send_iq(iq, function () callback(); end);
+	end
+	
+	function stream:private_get(name, xmlns, callback)
+		self:send_iq(verse.iq({type="get"})
+			:tag("query", { xmlns = xmlns_private })
+				:tag(name, { xmlns = xmlns }),
+			function (reply)
+				if reply.attr.type == "result" then
+					local query = reply:get_child("query", xmlns_private);
+					local result = query:get_child(name, xmlns);
+					callback(result);
+				end
+			end);
+	end
+end
+