# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1653920091 -7200
# Node ID 89226fb1af676912b9e366d92c417eb1db7fbf7d
# Parent  65870d42a7b1ed3a74816c32f651304fe65764d2
mod_profile: Obsolete. Remove. Redirect to mod_vcard_legacy

diff -r 65870d42a7b1 -r 89226fb1af67 mod_profile/README.markdown
--- a/mod_profile/README.markdown	Sun May 29 02:03:41 2022 +0200
+++ b/mod_profile/README.markdown	Mon May 30 16:14:51 2022 +0200
@@ -1,7 +1,8 @@
 ---
 labels:
-- 'Stage-Unmaintained'
+- 'Stage-Obsolete'
 summary: 'Replacement for mod\_vcard with vcard4 support and PEP integration'
+superseded_by: mod_vcard_legacy
 ---
 
 ::: {.alert .alert-warning}
diff -r 65870d42a7b1 -r 89226fb1af67 mod_profile/mod_profile.lua
--- a/mod_profile/mod_profile.lua	Sun May 29 02:03:41 2022 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,265 +0,0 @@
--- mod_profile
--- Copyright (C) 2014-2018 Kim Alvefur
---
--- This file is MIT licensed.
-
-local st = require"util.stanza";
-local jid_split = require"util.jid".split;
-local jid_bare = require"util.jid".bare;
-local is_admin = require"core.usermanager".is_admin;
-local vcard = require"util.vcard";
-local base64 = require"util.encodings".base64;
-local sha1 = require"util.hashes".sha1;
-local t_insert, t_remove = table.insert, table.remove;
-
-local pep_plus;
-if module:get_host_type() == "local" and module:get_option_boolean("vcard_to_pep", true) then
-	pep_plus = module:depends"pep";
-	assert(pep_plus.get_pep_service, "Wrong version of mod_pep loaded, you need to update Prosody");
-end
-
-local storage = module:open_store();
-local legacy_storage = module:open_store("vcard");
-
-module:hook("account-disco-info", function (event)
-	event.reply:tag("feature", { var = "urn:xmpp:pep-vcard-conversion:0" }):up();
-end);
-
-local function get_item(vcard, name) -- luacheck: ignore 431
-	local item;
-	for i=1, #vcard do
-		item=vcard[i];
-		if item.name == name then
-			return item, i;
-		end
-	end
-end
-
-local magic_mime = {
-	["\137PNG\r\n\026\n"] = "image/png";
-	["\255\216"] = "image/jpeg";
-	["GIF87a"] = "image/gif";
-	["GIF89a"] = "image/gif";
-	["<?xml"] = "image/svg+xml";
-}
-local function identify(data)
-	for magic, mime in pairs(magic_mime) do
-		if data:sub(1, #magic) == magic then
-			return mime;
-		end
-	end
-	return "application/octet-stream";
-end
-
-local function item_container(id, payload)
-	return id, st.stanza("item", { id = id or "current", xmlns = "http://jabber.org/protocol/pubsub"; })
-		:add_child(payload);
-end
-
-local function update_pep(username, data, pep)
-	pep = pep or pep_plus.get_pep_service(username);
-	local photo, p = get_item(data, "PHOTO");
-	if vcard.to_vcard4 then
-		if p then t_remove(data, p); end
-		pep:purge("urn:xmpp:vcard4", true)
-		pep:publish("urn:xmpp:vcard4", true, item_container("current", vcard.to_vcard4(data)));
-		if p then t_insert(data, p, photo); end
-	end
-
-	local nickname = get_item(data, "NICKNAME");
-	if nickname and nickname[1] then
-		pep:purge("http://jabber.org/protocol/nick", true);
-		pep:publish("http://jabber.org/protocol/nick", true, item_container("current",
-			st.stanza("nick", { xmlns="http://jabber.org/protocol/nick" }):text(nickname[1])));
-	end
-
-	if photo and photo[1] then
-		local photo_raw = base64.decode(photo[1]);
-		local photo_hash = sha1(photo_raw, true);
-		local photo_type = photo.TYPE and photo.TYPE[1];
-
-		pep:purge("urn:xmpp:avatar:metadata", true);
-		pep:purge("urn:xmpp:avatar:data", true);
-		pep:publish("urn:xmpp:avatar:metadata", true, item_container(photo_hash,
-			st.stanza("metadata", { xmlns="urn:xmpp:avatar:metadata" })
-				:tag("info", {
-					bytes = tostring(#photo_raw),
-					id = photo_hash,
-					type = photo_type or identify(photo_raw),
-				})));
-		pep:publish("urn:xmpp:avatar:data", true, item_container(photo_hash,
-			st.stanza("data", { xmlns="urn:xmpp:avatar:data" }):text(photo[1])));
-	end
-end
-
--- The "temporary" vCard XEP-0054 part
-module:add_feature("vcard-temp");
-
-local function handle_get(event)
-	local origin, stanza = event.origin, event.stanza;
-	local username = origin.username;
-	local to = stanza.attr.to;
-	if to then username = jid_split(to); end
-	local data, err = storage:get(username);
-	if not data then
-		if err then
-			origin.send(st.error_reply(stanza, "cancel", "internal-server-error", err));
-			return true;
-		end
-		data = legacy_storage:get(username);
-		data = data and st.deserialize(data);
-		if data then
-			origin.send(st.reply(stanza):add_child(data));
-			return true;
-		end
-	end
-	if not data then
-		origin.send(st.error_reply(stanza, "cancel", "item-not-found"));
-		return true;
-	end
-	origin.send(st.reply(stanza):add_child(vcard.to_xep54(data)));
-	return true;
-end
-
-local function handle_set(event)
-	local origin, stanza = event.origin, event.stanza;
-	local data = vcard.from_xep54(stanza.tags[1]);
-	local username = origin.username;
-	local to = stanza.attr.to;
-	if to then
-		if not is_admin(jid_bare(stanza.attr.from), module.host) then
-			origin.send(st.error_reply(stanza, "auth", "forbidden"));
-			return true;
-		end
-		username = jid_split(to);
-	end
-	local ok, err = storage:set(username, data);
-	if not ok then
-		origin.send(st.error_reply(stanza, "cancel", "internal-server-error", err));
-		return true;
-	end
-
-	if pep_plus and username then
-		update_pep(username, data);
-	end
-
-	origin.send(st.reply(stanza));
-	return true;
-end
-
-module:hook("iq-get/bare/vcard-temp:vCard", handle_get);
-module:hook("iq-get/host/vcard-temp:vCard", handle_get);
-
-module:hook("iq-set/bare/vcard-temp:vCard", handle_set);
-module:hook("iq-set/host/vcard-temp:vCard", handle_set);
-
-local function on_publish(event)
-	if event.actor == true then return end -- Not from a client
-	local node, item = event.node, event.item;
-	local username, host = jid_split(event.actor);
-	if host ~= module.host then
-		module:log("warn", "on_publish() called for non-local actor");
-		for k,v in pairs(event) do
-			module:log("debug", "event[%q] = %q", k, v);
-		end
-		return;
-	end
-	local data = storage:get(username) or {};
-	if node == "urn:xmpp:avatar:data" then
-		local new_photo = item:get_child_text("data", "urn:xmpp:avatar:data");
-		new_photo = new_photo and { name = "PHOTO"; ENCODING = { "b" }; new_photo } or nil;
-		local _, i = get_item(data, "PHOTO")
-		if new_photo then
-			data[i or #data+1] = new_photo;
-		elseif i then
-			table.remove(data, i);
-		end
-	elseif node == "http://jabber.org/protocol/nick" then
-		local new_nick = item:get_child_text("nick", "http://jabber.org/protocol/nick");
-		new_nick = new_nick and new_nick ~= "" and { name = "NICKNAME"; new_nick } or nil;
-		local _, i = get_item(data, "NICKNAME")
-		if new_nick then
-			data[i or #data+1] = new_nick;
-		elseif i then
-			table.remove(data, i);
-		end
-	else
-		return;
-	end
-	storage:set(username, data);
-end
-
-local function pep_service_added(event)
-	local item = event.item;
-	local service, username = item.service, jid_split(item.jid);
-	module:hook_object_event(service.events, "item-published", on_publish);
-	local data = storage:get(username);
-	if data then
-		update_pep(username, data, service);
-	end
-end
-
-local function pep_service_removed()
-	-- This would happen when mod_pep_plus gets unloaded, but this module gets unloaded before that
-end
-
-function module.load()
-	module:handle_items("pep-service", pep_service_added, pep_service_removed, true);
-end
-
--- The vCard4 part
-if vcard.to_vcard4 then
-	module:add_feature("urn:ietf:params:xml:ns:vcard-4.0");
-
-	module:hook("iq-get/bare/urn:ietf:params:xml:ns:vcard-4.0:vcard", function(event)
-		local origin, stanza = event.origin, event.stanza;
-		local username = jid_split(stanza.attr.to) or origin.username;
-		local data = storage:get(username);
-		if not data then
-			origin.send(st.error_reply(stanza, "cancel", "item-not-found"));
-			return true;
-		end
-		origin.send(st.reply(stanza):add_child(vcard.to_vcard4(data)));
-		return true;
-	end);
-
-	if vcard.from_vcard4 then
-		module:hook("iq-set/self/urn:ietf:params:xml:ns:vcard-4.0:vcard", function(event)
-			local origin, stanza = event.origin, event.stanza;
-			local ok, err = storage:set(origin.username, vcard.from_vcard4(stanza.tags[1]));
-			if not ok then
-				origin.send(st.error_reply(stanza, "cancel", "internal-server-error", err));
-				return true;
-			end
-			origin.send(st.reply(stanza));
-			return true;
-		end);
-	else
-		module:hook("iq-set/self/urn:ietf:params:xml:ns:vcard-4.0:vcard", function(event)
-			local origin, stanza = event.origin, event.stanza;
-			origin.send(st.error_reply(stanza, "cancel", "feature-not-implemented"));
-			return true;
-		end);
-	end
-end
-
-local function inject_xep153(event)
-	local origin, stanza = event.origin, event.stanza;
-	local username = origin.username;
-	if not username then return end
-	local pep = pep_plus.get_pep_service(username);
-
-	local ok, avatar_hash = pep:get_last_item("urn:xmpp:avatar:metadata", true);
-	if ok and avatar_hash then
-		stanza:remove_children("x", "vcard-temp:x:update");
-		local x_update = st.stanza("x", { xmlns = "vcard-temp:x:update" });
-		x_update:text_tag("photo", avatar_hash);
-		stanza:add_direct_child(x_update);
-	end
-end
-
-if pep_plus then
-	module:hook("pre-presence/full", inject_xep153, 1)
-	module:hook("pre-presence/bare", inject_xep153, 1)
-	module:hook("pre-presence/host", inject_xep153, 1)
-end