mod_vcard_legacy: Responds to vcard-temp queries with translated vcard4 data

CHANGES

@@ -20,6 +20,7 @@ New features
 -   Asynchronous operations
 -   Busted for tests
 -   mod\_muc\_mam (XEP-0313 in groupchats)
+-   mod\_vcard\_legacy
 
 0.10.0
 ======

plugins/mod_vcard_legacy.lua

@@ -0,0 +1,55 @@
+local st = require "util.stanza"
+local jid_split = require "util.jid".split;
+
+local mod_pep = module:depends("pep");
+
+module:add_feature("vcard-temp");
+module:add_feature("urn:xmpp:pep-vcard-conversion:0");
+
+-- Simple translations
+-- <foo><text>hey</text></foo> -> <FOO>hey</FOO>
+local simple_map = {
+	nickname = "text";
+	title = "text";
+	role = "text";
+	categories = "text";
+	note = "text";
+	url = "uri";
+	bday = "date";
+}
+
+module:hook("iq-get/bare/vcard-temp:vCard", function (event)
+	local origin, stanza = event.origin, event.stanza;
+	local pep_service = mod_pep.get_pep_service(jid_split(stanza.attr.to) or origin.username);
+	local ok, id, vcard4_item = pep_service:get_last_item("urn:xmpp:vcard4", stanza.attr.from);
+
+	local vcard_temp = st.stanza("vCard", { xmlns = "vcard-temp" });
+	if ok and vcard4_item then
+		local vcard4 = vcard4_item.tags[1];
+
+		local fn = vcard4:get_child("fn");
+		vcard_temp:text_tag("FN", fn and fn:get_child_text("text"));
+
+		local v4n = vcard4:get_child("n");
+		vcard_temp:tag("N")
+			:text_tag("FAMILY", v4n and v4n:get_child_text("surname"))
+			:text_tag("GIVEN", v4n and v4n:get_child_text("given"))
+			:text_tag("MIDDLE", v4n and v4n:get_child_text("additional"))
+			:text_tag("PREFIX", v4n and v4n:get_child_text("prefix"))
+			:text_tag("SUFFIX", v4n and v4n:get_child_text("suffix"))
+			:up();
+
+		for tag in vcard4:childtags() do
+			local typ = simple_map[tag.name];
+			if typ then
+				local text = tag:get_child_text(typ);
+				if text then
+					vcard_temp:text_tag(tag.name:upper(), text);
+				end
+			end
+		end
+	end
+
+	origin.send(st.reply(stanza):add_child(vcard_temp));
+	return true;
+end);