Merge 0.9->trunk

[prosody.git] / tools / openfire2prosody.lua

diff --git a/tools/openfire2prosody.lua b/tools/openfire2prosody.lua
index 49d0dc5ef8ebaa50dfee617ff2c9cd997aa323d9..5ef47602a9b3b7254ef82accbbb7e3fc74ba76ee 100644 (file)
--- a/tools/openfire2prosody.lua
+++ b/tools/openfire2prosody.lua
@@ -9,6 +9,12 @@
 package.path = package.path..";../?.lua";
 package.cpath = package.cpath..";../?.so"; -- needed for util.pposix used in datamanager
 
+local my_name = arg[0];
+if my_name:match("[/\\]") then
+       package.path = package.path..";"..my_name:gsub("[^/\\]+$", "../?.lua");
+       package.cpath = package.cpath..";"..my_name:gsub("[^/\\]+$", "../?.so");
+end
+
 -- ugly workaround for getting datamanager to work outside of prosody :(
 prosody = { };
 prosody.platform = "unknown";
@@ -18,57 +24,7 @@ elseif package.config:sub(1,1) == "/" then
        prosody.platform = "posix";
 end
 
-local lxp = require "lxp";
-local st = require "util.stanza";
-
-local parse_xml = (function()
-       local ns_prefixes = {
-               ["http://www.w3.org/XML/1998/namespace"] = "xml";
-       };
-       local ns_separator = "\1";
-       local ns_pattern = "^([^"..ns_separator.."]*)"..ns_separator.."?(.*)$";
-       return function(xml)
-               local handler = {};
-               local stanza = st.stanza("root");
-               function handler:StartElement(tagname, attr)
-                       local curr_ns,name = tagname:match(ns_pattern);
-                       if name == "" then
-                               curr_ns, name = "", curr_ns;
-                       end
-                       if curr_ns ~= "" then
-                               attr.xmlns = curr_ns;
-                       end
-                       for i=1,#attr do
-                               local k = attr[i];
-                               attr[i] = nil;
-                               local ns, nm = k:match(ns_pattern);
-                               if nm ~= "" then
-                                       ns = ns_prefixes[ns]; 
-                                       if ns then 
-                                               attr[ns..":"..nm] = attr[k];
-                                               attr[k] = nil;
-                                       end
-                               end
-                       end
-                       stanza:tag(name, attr);
-               end
-               function handler:CharacterData(data)
-                       stanza:text(data);
-               end
-               function handler:EndElement(tagname)
-                       stanza:up();
-               end
-               local parser = lxp.new(handler, "\1");
-               local ok, err, line, col = parser:parse(xml);
-               if ok then ok, err, line, col = parser:parse(); end
-               --parser:close();
-               if ok then
-                       return stanza.tags[1];
-               else
-                       return ok, err.." (line "..line..", col "..col..")";
-               end
-       end;
-end)();
+local parse_xml = require "util.xml".parse;
 
 -----------------------------------------------------------------------