blob: 2d80ad23378036f8f63459f347b4b516cbd3fdf3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
-- Read an XML dataform and spit out a serialized Lua table of it
if not pcall(require, "prosody.loader") then
pcall(require, "loader");
end
local function from_stanza(stanza)
local layout = {
title = stanza:get_child_text("title");
instructions = stanza:get_child_text("instructions");
};
for tag in stanza:childtags("field") do
local field = {
name = tag.attr.var;
type = tag.attr.type;
label = tag.attr.label;
desc = tag:get_child_text("desc");
required = tag:get_child("required") and true or nil;
value = tag:get_child_text("value");
options = nil;
};
if field.type == "list-single" or field.type == "list-multi" then
local options = {};
for option in tag:childtags("option") do
options[#options+1] = { label = option.attr.label, value = option:get_child_text("value") };
end
field.options = options;
end
if field.type == "jid-multi" or field.type == "list-multi" or field.type == "text-multi" then
local values = {};
for value in tag:childtags("value") do
values[#values+1] = value:get_text();
end
if field.type == "text-multi" then
values = table.concat(values, "\n");
end
field.value = values;
end
if field.type == "boolean" then
field.value = field.value == "true" or field.value == "1";
end
layout[#layout+1] = field;
end
return layout;
end
print("dataforms.new " .. require"prosody.util.serialization".serialize(from_stanza(require"prosody.util.xml".parse(io.read("*a"))),
{ unquoted = true }))
|
