# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1580850379 -3600
# Node ID 9a3dfe0bf9fd73da852a10a4f49848c6740b23bb
# Parent  562b34050561db648f5533f7b1cc4267724a3c65
mod_rest: Add JSON mapping for dataform (XEP-0004)

diff -r 562b34050561 -r 9a3dfe0bf9fd mod_rest/jsonmap.lib.lua
--- a/mod_rest/jsonmap.lib.lua	Tue Feb 04 21:49:14 2020 +0100
+++ b/mod_rest/jsonmap.lib.lua	Tue Feb 04 22:06:19 2020 +0100
@@ -4,6 +4,53 @@
 local st = require "util.stanza";
 local xml = require "util.xml";
 
+-- Reused in many XEPs so declared up here
+local dataform = {
+	"func", "jabber:x:data", "x",
+	function (s)
+		local fields = array();
+		local form = {
+			type = s.attr.type;
+			title = s:get_child_text("title");
+			instructions = s:get_child_text("instructions");
+			fields = fields;
+		};
+		for field in s:childtags("field") do
+			local i = {
+				var = field.attr.var;
+				type = field.attr.type;
+				label = field.attr.label;
+				desc = field:get_child_text("desc");
+				required = field:get_child("required") and true or nil;
+				value = field:get_child_text("value");
+			};
+			if field.attr.type == "jid-multi" or field.attr.type == "list-multi" or field.attr.type == "text-multi" then
+				local value = array();
+				for v in field:childtags("value") do
+					value:push(v:get_text());
+				end
+				if field.attr.type == "text-multi" then
+					i.value = value:concat("\n");
+				else
+					i.value = value;
+				end
+			end
+			if field.attr.type == "list-single" or field.attr.type == "list-multi" then
+				local options = array();
+				for o in field:childtags("option") do
+					options:push({ label = o.attr.label, value = o:get_child_text("value") });
+				end
+				i.options = options;
+			end
+			fields:push(i);
+		end
+		return form;
+	end;
+	function (x)
+		-- TODO
+	end;
+};
+
 local simple_types = {
 	-- basic message
 	body = "text_tag",
@@ -137,7 +184,7 @@
 			};
 			local actions = s:get_child("actions");
 			local note = s:get_child("note");
-			-- TODO -- local form = s:get_child("x", "jabber:x:data");
+			local form = s:get_child("x", "jabber:x:data");
 			if actions then
 				cmd.actions = {
 					execute = actions.attr.execute,
@@ -151,6 +198,9 @@
 					text = note:get_text();
 				};
 			end
+			if form then
+				cmd.form = dataform[4](form);
+			end
 			return cmd;
 		end;
 		function (s)