Changeset

3888:04ea96a0488d

mod_rest: Allow passing form data in a more compact format
author Kim Alvefur <zash@zash.se>
date Fri, 07 Feb 2020 22:30:38 +0100
parents 3887:3d0e8e32453c
children 3889:59765d1bb6dc
files mod_rest/jsonmap.lib.lua
diffstat 1 files changed, 18 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/mod_rest/jsonmap.lib.lua	Fri Feb 07 20:57:47 2020 +0100
+++ b/mod_rest/jsonmap.lib.lua	Fri Feb 07 22:30:38 2020 +0100
@@ -6,6 +6,7 @@
 
 -- Reused in many XEPs so declared up here
 local dataform = {
+	-- Generic and complete dataforms mapping
 	"func", "jabber:x:data", "x",
 	function (s)
 		local fields = array();
@@ -89,6 +90,21 @@
 	end;
 };
 
+local function formdata(s,t)
+	local form = st.stanza("x", { xmlns = "jabber:x:data", type = t });
+	for k,v in pairs(s) do
+		form:tag("field", { var = k });
+		if type(v) == "string" then
+			form:text_tag("value", v);
+		elseif type(v) == "table" then
+			for _, v_ in ipairs(v) do
+				form:text_tag("value", v_);
+			end
+		end
+	end
+	return form;
+end
+
 local simple_types = {
 	-- top level stanza attributes
 	-- needed here to mark them as known fields
@@ -277,6 +293,8 @@
 				end
 				if s.form then
 					cmd:add_child(dataform[5](s.form));
+				elseif s.data then
+					cmd:add_child(formdata(s.data));
 				end
 				return cmd;
 			elseif type(s) == "string" then -- assume node