util.muc: Fixed incorrect parameters for a function call

[prosody.git] / util / dataforms.lua

diff --git a/util/dataforms.lua b/util/dataforms.lua
index 3c979bccc5656394439ab9301a3c6025afda2b8c..1a6807d8160cfc1d88bd29aaca5e7d942f085df6 100644 (file)
--- a/util/dataforms.lua
+++ b/util/dataforms.lua
@@ -16,10 +16,8 @@ function new(layout)
        return setmetatable(layout, form_mt);
 end
 
-local form_x_attr = { xmlns = xmlns_forms };
-
 function form_t.form(layout, data)
-       local form = st.stanza("x", form_x_attr);
+       local form = st.stanza("x", { xmlns = xmlns_forms, type = "form" });
        if layout.title then
                form:tag("title"):text(layout.title):up();
        end
@@ -31,7 +29,7 @@ function form_t.form(layout, data)
                -- Add field tag
                form:tag("field", { type = field_type, var = field.name, label = field.label });
 
-               local value = data[field.name];
+               local value = data[field.name] or field.value;
                
                -- Add value, depending on type
                if field_type == "hidden" then
@@ -72,10 +70,65 @@ function form_t.form(layout, data)
        return form;
 end
 
+local field_readers = {};
+
 function form_t.data(layout, stanza)
+       local data = {};
        
+       for field_tag in stanza:childtags() do
+               local field_type = field_tag.attr.type;
+               
+               local reader = field_readers[field_type];
+               if reader then
+                       data[field_tag.attr.var] = reader(field_tag);
+               end
+               
+       end
+       return data;
 end
 
+field_readers["text-single"] = 
+       function (field_tag)
+               local value = field_tag:child_with_name("value");
+               if value then
+                       return value[1];
+               end
+       end
+
+field_readers["text-private"] = 
+       field_readers["text-single"];
+
+field_readers["text-multi"] = 
+       function (field_tag)
+               local result = {};
+               for value_tag in field_tag:childtags() do
+                       if value_tag.name == "value" then
+                               result[#result+1] = value_tag[1];
+                       end
+               end
+               return t_concat(result, "\n");
+       end
+
+field_readers["boolean"] = 
+       function (field_tag)
+               local value = field_tag:child_with_name("value");
+               if value then
+                       if value[1] == "1" or value[1] == "true" then
+                               return true;
+                       else
+                               return false;
+                       end
+               end             
+       end
+
+field_readers["hidden"] = 
+       function (field_tag)
+               local value = field_tag:child_with_name("value");
+               if value then
+                       return value[1];
+               end
+       end
+       
 return _M;