MUC: Changed a MUC library method into a function.

[prosody.git] / core / xmlhandlers.lua

diff --git a/core/xmlhandlers.lua b/core/xmlhandlers.lua
index d4d9e1416feff0795df40684df531b74f53d9712..7f47cf70ad85675acb50ff24a951249a066933f0 100644 (file)
--- a/core/xmlhandlers.lua
+++ b/core/xmlhandlers.lua
@@ -1,20 +1,9 @@
--- Prosody IM v0.2
--- Copyright (C) 2008 Matthew Wild
--- Copyright (C) 2008 Waqas Hussain
+-- Prosody IM
+-- Copyright (C) 2008-2009 Matthew Wild
+-- Copyright (C) 2008-2009 Waqas Hussain
 -- 
--- This program is free software; you can redistribute it and/or
--- modify it under the terms of the GNU General Public License
--- as published by the Free Software Foundation; either version 2
--- of the License, or (at your option) any later version.
--- 
--- This program is distributed in the hope that it will be useful,
--- but WITHOUT ANY WARRANTY; without even the implied warranty of
--- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--- GNU General Public License for more details.
--- 
--- You should have received a copy of the GNU General Public License
--- along with this program; if not, write to the Free Software
--- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+-- This project is MIT/X11 licensed. Please see the
+-- COPYING file in the source package for more information.
 --
 
 
@@ -25,15 +14,8 @@ local st = stanza;
 local tostring = tostring;
 local pairs = pairs;
 local ipairs = ipairs;
-local type = type;
-local print = print;
-local format = string.format;
-local m_random = math.random;
 local t_insert = table.insert;
-local t_remove = table.remove;
 local t_concat = table.concat;
-local t_concatall = function (t, sep) local tt = {}; for _, s in ipairs(t) do t_insert(tt, tostring(s)); end return t_concat(tt, sep); end
-local sm_destroy_session = import("core.sessionmanager", "destroy_session");
 
 local default_log = require "util.logger".init("xmlhandlers");
 
@@ -59,6 +41,7 @@ function init_xmlhandlers(session, stream_callbacks)
                local cb_handlestanza = stream_callbacks.handlestanza;
                
                local stream_tag = stream_callbacks.stream_tag;
+               local stream_default_ns = stream_callbacks.default_ns;
                
                local stanza
                function xml_handlers:StartElement(tagname, attr)
@@ -67,22 +50,25 @@ function init_xmlhandlers(session, stream_callbacks)
                                stanza:text(t_concat(chardata));
                                chardata = {};
                        end
-                       local curr_ns,name = tagname:match("^(.+)|([%w%-]+)$");
-                       if curr_ns ~= "jabber:server" then
+                       local curr_ns,name = tagname:match("^(.-)|?([^%|]-)$");
+                       if not name then
+                               curr_ns, name = "", curr_ns;
+                       end
+
+                       if curr_ns ~= stream_default_ns then
                                attr.xmlns = curr_ns;
                        end
                        
                        -- FIXME !!!!!
-                       for i, k in ipairs(attr) do
-                               if type(k) == "string" then
-                                       local ns, nm = k:match("^([^|]+)|?([^|]-)$")
-                                       if ns and nm then
-                                               ns = ns_prefixes[ns]; 
-                                               if ns then 
-                                                       attr[ns..":"..nm] = attr[k];
-                                                       attr[i] = ns..":"..nm;
-                                                       attr[k] = nil;
-                                               end
+                       for i=1,#attr do
+                               local k = attr[i];
+                               attr[i] = nil;
+                               local ns, nm = k:match("^([^|]+)|?([^|]-)$")
+                               if ns and nm then
+                                       ns = ns_prefixes[ns]; 
+                                       if ns then 
+                                               attr[ns..":"..nm] = attr[k];
+                                               attr[k] = nil;
                                        end
                                end
                        end
@@ -107,7 +93,7 @@ function init_xmlhandlers(session, stream_callbacks)
                                curr_tag = stanza;
                        else -- we are inside a stanza, so add a tag
                                attr.xmlns = nil;
-                               if curr_ns ~= "jabber:server" and curr_ns ~= "jabber:client" then
+                               if curr_ns ~= stream_default_ns then
                                        attr.xmlns = curr_ns;
                                end
                                stanza:tag(name, attr);
@@ -119,7 +105,10 @@ function init_xmlhandlers(session, stream_callbacks)
                        end
                end
                function xml_handlers:EndElement(tagname)
-                       curr_ns,name = tagname:match("^(.+)|([%w%-]+)$");
+                       curr_ns,name = tagname:match("^(.-)|?([^%|]-)$");
+                       if not name then
+                               curr_ns, name = "", curr_ns;
+                       end
                        if (not stanza) or (#stanza.last_add > 0 and name ~= stanza.last_add[#stanza.last_add].name) then 
                                if tagname == stream_tag then
                                        if cb_streamclosed then
@@ -132,7 +121,7 @@ function init_xmlhandlers(session, stream_callbacks)
                                        cb_error(session, "parse-error", "unexpected-element-close", name);
                                end
                        end
-                       if stanza and #chardata > 0 then
+                       if #chardata > 0 then
                                -- We have some character data in the buffer
                                stanza:text(t_concat(chardata));
                                chardata = {};