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);