util.stanza: Temporary fix for serializing attributes with namespaces

diff --git a/util/stanza.lua b/util/stanza.lua
index 0b15ceed40b1be4a0d525b06d94b180a16019688..1c1cab0e40425281b0316ebf40b7e8413a774edd 100644 (file)
--- a/util/stanza.lua
+++ b/util/stanza.lua
@@ -12,6 +12,7 @@ local t_concat      =  table.concat;
 local t_remove      =  table.remove;
 local t_concat      =  table.concat;
 local s_format      = string.format;
+local s_match      = string.match;
 local tostring      =      tostring;
 local setmetatable  =  setmetatable;
 local pairs         =         pairs;
@@ -114,11 +115,22 @@ end
 local xml_escape = xml_escape;
 
 local function dostring(t, buf, self, xml_escape)
+       local nsid, ns, attrk = 0;
        t_insert(buf, "<");
        t_insert(buf, t.name);
        for k, v in pairs(t.attr) do if type(k) == "string" then
                t_insert(buf, " ");
-               t_insert(buf, k);
+               ns, attrk = s_match(k, "^([^|]+)|(.+)$");
+               if ns then
+                       nsid = (nsid or -1) + 1;
+                       t_insert(buf, "xmlns:ns"..nsid);
+                       t_insert(buf, "='");
+                       t_insert(buf, (xml_escape(tostring(ns))));
+                       t_insert(buf, "' ");
+                       t_insert(buf, "ns"..nsid..":"..attrk);
+               else
+                       t_insert(buf, k);
+               end
                t_insert(buf, "='");
                t_insert(buf, (xml_escape(tostring(v))));
                t_insert(buf, "'");