Mercurial > lxmppd-hg-xmllex / file diff

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/mod_vcard.lua	Thu Oct 09 02:59:57 2008 +0500
@@ -0,0 +1,54 @@
+
+require "util.datamanager"
+local datamanager = datamanager;
+
+local st = require "util.stanza"
+local send = require "core.sessionmanager".send_to_session
+local t_concat, t_insert = table.concat, table.insert;
+
+require "util.jid"
+local jid_split = jid.split;
+
+add_iq_handler("c2s", "vcard-temp", 
+		function (session, stanza)
+			if stanza.tags[1].name == "vCard" then
+				local to = stanza.attr.to;
+				if stanza.attr.type == "get" then
+					local vCard;
+					if to then
+						local node, host = jid_split(to);
+						if hosts[host] and hosts[host].type == "local" then
+							vCard = datamanager.load(node, host, "vCard"); -- load vCard for user or server
+						end
+					else
+						vCard = datamanager.load(session.username, session.host, "vCard");-- load user's own vCard
+					end
+					if vCard then
+						local iq = st.reply(stanza);
+						iq:add_child(vCard);
+						send(session, iq); -- send vCard!
+					else
+						send(session, st.error_reply(stanza, "cancel", "item-not-found"));
+					end
+				elseif stanza.attr.type == "set" then
+					if not to or to == session.username.."@"..session.host then
+						if datamanager.store(session.username, session.host, "vCard", stanza.tags[1]) then
+							send(session, st.reply(stanza));
+						else
+							-- TODO unable to write file, file may be locked, etc, what's the correct error?
+							send(session, st.error_reply(stanza, "wait", "internal-server-error"));
+						end
+					else
+						send(session, st.error_reply(stanza, "auth", "forbidden"));
+					end
+				end
+				return true;
+			end
+		end);
+
+add_event_hook("stream-features", 
+					function (session, features)												
+						if session.full_jid then
+							t_insert(features, "<feature var='vcard-temp'/>");
+						end
+					end);