# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1580852059 -3600
# Node ID 44c2d36c40a4e27a5d767d2988b44c0dee29a93d
# Parent  3b31ff7b4c7c06824cd4897fd7900a2f2654abd7
mod_rest: Add JSON to XML mapping of dataforms

diff -r 3b31ff7b4c7c -r 44c2d36c40a4 mod_rest/jsonmap.lib.lua
--- a/mod_rest/jsonmap.lib.lua	Tue Feb 04 22:22:47 2020 +0100
+++ b/mod_rest/jsonmap.lib.lua	Tue Feb 04 22:34:19 2020 +0100
@@ -47,7 +47,45 @@
 		return form;
 	end;
 	function (x)
-		-- TODO
+		if type(x) == "table" and x ~= json.null then
+			local form = st.stanza("x", { xmlns = "jabber:x:data", type = x.type });
+			if x.title then
+				form:text_tag("title", x.title);
+			end
+			if x.instructions then
+				form:text_tag("instructions", x.instructions);
+			end
+			if type(x.fields) == "table" then
+				for _, f in ipairs(x.fields) do
+					if type(f) == "table" then
+						form:tag("field", { var = f.var, type = f.type, label = f.label });
+						if f.desc then
+							form:text_tag("desc", f.desc);
+						end
+						if f.required == true then
+							form:tag("required"):up();
+						end
+						if type(f.value) == "string" then
+							form:text_tag("value", f.value);
+						elseif type(f.value) == "table" then
+							for _, v in ipairs(f.value) do
+								form:text_tag("value", v);
+							end
+						end
+						if type(f.options) == "table" then
+							for _, o in ipairs(f.value) do
+								if type(o) == "table" then
+									form:tag("option", { label = o.label });
+									form:text_tag("value", o.value);
+									form:up();
+								end
+							end
+						end
+					end
+				end
+			end
+			return form;
+		end
 	end;
 };