# HG changeset patch
# User Jonas Schäfer <jonas@wielicki.name>
# Date 1616431948 -3600
# Node ID 5bc706c2db8fd0d57f6a8e666cf45c4c39082aed
# Parent  2e33eeafe962b38a20975f2ae585761eea985c92
mod_http_admin_api: allow updating the user nickname via API

diff -r 2e33eeafe962 -r 5bc706c2db8f mod_http_admin_api/mod_http_admin_api.lua
--- a/mod_http_admin_api/mod_http_admin_api.lua	Mon Mar 22 15:55:02 2021 +0000
+++ b/mod_http_admin_api/mod_http_admin_api.lua	Mon Mar 22 17:52:28 2021 +0100
@@ -1,6 +1,7 @@
 local usermanager = require "core.usermanager";
 
 local json = require "util.json";
+local st = require "util.stanza";
 
 module:depends("http");
 
@@ -17,6 +18,9 @@
 
 local www_authenticate_header = ("Bearer realm=%q"):format(module.host.."/"..module.name);
 
+local xmlns_pubsub = "http://jabber.org/protocol/pubsub";
+local xmlns_nick = "http://jabber.org/protocol/nick";
+
 local function check_credentials(request)
 	local auth_type, auth_data = string.match(request.headers.authorization or "", "^(%S+)%s(.+)$");
 	if not (auth_type and auth_data) then
@@ -164,9 +168,9 @@
 	local display_name;
 	do
 		local pep_service = mod_pep.get_pep_service(username);
-		local ok, _, nick_item = pep_service:get_last_item("http://jabber.org/protocol/nick", true);
+		local ok, _, nick_item = pep_service:get_last_item(xmlns_nick, true);
 		if ok and nick_item then
-			display_name = nick_item:get_child_text("nick", "http://jabber.org/protocol/nick");
+			display_name = nick_item:get_child_text("nick", xmlns_nick);
 		end
 	end
 
@@ -357,6 +361,40 @@
 	return json.encode(user_info);
 end
 
+function update_user(event, username)
+	local current_user = get_user_info(username);
+
+	local request = event.request;
+	if request.headers.content_type ~= json_content_type
+	or (not request.body or #request.body == 0) then
+		return 400;
+	end
+	local new_user = json.decode(event.request.body);
+	if not new_user then
+		return 400;
+	end
+
+	if new_user.username and new_user.username ~= username then
+		return 400;
+	end
+
+	local final_user = {};
+
+	if new_user.display_name then
+		local pep_service = mod_pep.get_pep_service(username);
+		-- TODO: publish
+		local nick_item = st.stanza("item", { xmlns = xmlns_pubsub, id = "current" })
+			:text_tag("nick", new_user.display_name, { xmlns = xmlns_nick });
+		if pep_service:publish(xmlns_nick, true, "current", nick_item, {
+			access_model = "open";
+			_defaults_only = true;
+		}) then
+			final_user.display_name = new_user.display_name;
+		end
+	end
+	return 200;
+end
+
 function delete_user(event, username) --luacheck: ignore 212/event
 	if not usermanager.delete_user(username, module.host) then
 		return 404;
@@ -519,6 +557,7 @@
 
 		["GET /users"] = list_users;
 		["GET /users/*"] = get_user_by_name;
+		["PUT /users/*"] = update_user;
 		["DELETE /users/*"] = delete_user;
 
 		["GET /groups"] = list_groups;