prosody
73ecfe811526
tools/ejabberd2prosody.lua

Find changesets by keywords by author, files, the commit message, revision number or hash, or revset expression.

Software / code / prosody

Annotate

tools/ejabberd2prosody.lua @ 12243:73ecfe811526

util.startup: Teach prosodyctl to be --quiet as complement to --verbose Original motivation was tiresome warnings about Lua 5.4 not being supported yet. Can still be handy to tweak log level, e.g. to prevent logging to interfere with command output.
author Kim Alvefur <zash@zash.se>
date Sun, 28 Nov 2021 23:07:35 +0100
parent 11871:5dcbba569fb9
child 12387:05c250fa335a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
485
f8456f0da769 Make ejabberd2prosody.lua a little more cross-platform :)
Matthew Wild <mwild1@gmail.com>
parents: 484
diff changeset
1 #!/usr/bin/env lua
1523
841d61be198f Remove version number from copyright headers
Matthew Wild <mwild1@gmail.com>
parents: 1126
diff changeset
2 -- Prosody IM
2923
b7049746bd29 Update copyright headers for 2010
Matthew Wild <mwild1@gmail.com>
parents: 2693
diff changeset
3 -- Copyright (C) 2008-2010 Matthew Wild
b7049746bd29 Update copyright headers for 2010
Matthew Wild <mwild1@gmail.com>
parents: 2693
diff changeset
4 -- Copyright (C) 2008-2010 Waqas Hussain
5776
bd0ff8ae98a8 Remove all trailing whitespace
Florian Zeitz <florob@babelmonkeys.de>
parents: 5697
diff changeset
5 --
758
b1885732e979 GPL->MIT!
Matthew Wild <mwild1@gmail.com>
parents: 753
diff changeset
6 -- This project is MIT/X11 licensed. Please see the
b1885732e979 GPL->MIT!
Matthew Wild <mwild1@gmail.com>
parents: 753
diff changeset
7 -- COPYING file in the source package for more information.
519
cccd610a0ef9 Insert copyright/license headers
Matthew Wild <mwild1@gmail.com>
parents: 489
diff changeset
8 --
cccd610a0ef9 Insert copyright/license headers
Matthew Wild <mwild1@gmail.com>
parents: 489
diff changeset
9
cccd610a0ef9 Insert copyright/license headers
Matthew Wild <mwild1@gmail.com>
parents: 489
diff changeset
10
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
11
1726
85518cb866dd ejabberd2prosody: More intelligent searching for erlparse library
Matthew Wild <mwild1@gmail.com>
parents: 1567
diff changeset
12 package.path = package.path ..";../?.lua";
85518cb866dd ejabberd2prosody: More intelligent searching for erlparse library
Matthew Wild <mwild1@gmail.com>
parents: 1567
diff changeset
13
5696
9fba74a28e0c package{,c}path fixes for migration tools
Vadim Misbakh-Soloviov <mva@mva.name>
parents: 5310
diff changeset
14 local my_name = arg[0];
9fba74a28e0c package{,c}path fixes for migration tools
Vadim Misbakh-Soloviov <mva@mva.name>
parents: 5310
diff changeset
15 if my_name:match("[/\\]") then
9fba74a28e0c package{,c}path fixes for migration tools
Vadim Misbakh-Soloviov <mva@mva.name>
parents: 5310
diff changeset
16 package.path = package.path..";"..my_name:gsub("[^/\\]+$", "../?.lua");
5697
956df0f1cb70 additional fix for erlparse loading in ejabberd2prosody.lua
Vadim Misbakh-Soloviov <mva@mva.name>
parents: 5696
diff changeset
17 package.path = package.path..";"..my_name:gsub("[^/\\]+$", "?.lua");
5696
9fba74a28e0c package{,c}path fixes for migration tools
Vadim Misbakh-Soloviov <mva@mva.name>
parents: 5310
diff changeset
18 package.cpath = package.cpath..";"..my_name:gsub("[^/\\]+$", "../?.so");
1726
85518cb866dd ejabberd2prosody: More intelligent searching for erlparse library
Matthew Wild <mwild1@gmail.com>
parents: 1567
diff changeset
19 end
85518cb866dd ejabberd2prosody: More intelligent searching for erlparse library
Matthew Wild <mwild1@gmail.com>
parents: 1567
diff changeset
20
5023
dcc8e789df36 mod_admin_telnet, prosody, prosodyctl, ejabberd2prosody: Don't depend on modules setting globals
Florian Zeitz <florob@babelmonkeys.de>
parents: 4380
diff changeset
21 local erlparse = require "erlparse";
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
22
2943
9236a7856688 tools/ejabberd2prosody: Create prosody singleton so datamanager can detect the platform (set no platform to use lfs, pposix isn't necessary here)
Matthew Wild <mwild1@gmail.com>
parents: 2923
diff changeset
23 prosody = {};
9236a7856688 tools/ejabberd2prosody: Create prosody singleton so datamanager can detect the platform (set no platform to use lfs, pposix isn't necessary here)
Matthew Wild <mwild1@gmail.com>
parents: 2923
diff changeset
24
5309
2da869d95271 ejabberd2prosody.lua: Replace util.logger with a dummy before requiring util.serialization
Kim Alvefur <zash@zash.se>
parents: 5023
diff changeset
25 package.loaded["util.logger"] = {init = function() return function() end; end}
547
265c4b8f0a8a Changed the ejabberd import script to use util.serialization
Waqas Hussain <waqas20@gmail.com>
parents: 519
diff changeset
26 local serialize = require "util.serialization".serialize;
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
27 local st = require "util.stanza";
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
28 local dm = require "util.datamanager"
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
29 dm.set_data_path("data");
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
30
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
31 function build_stanza(tuple, stanza)
4380
9f1c61805817 ejabberd2prosody: Added a lot more type checks to ensure XML data has proper data types. Ignore attributes of invalid types. Fixes the cause of issue#261.
Waqas Hussain <waqas20@gmail.com>
parents: 4360
diff changeset
32 assert(type(tuple) == "table", "XML node is of unexpected type: "..type(tuple));
5998
60d86c9e02ec tools/ejabberd2prosody: “xmlelement” can be “xmlel” in newer ejabberd (thanks cr).
Waqas Hussain <waqas20@gmail.com>
parents: 5992
diff changeset
33 if tuple[1] == "xmlelement" or tuple[1] == "xmlel" then
4380
9f1c61805817 ejabberd2prosody: Added a lot more type checks to ensure XML data has proper data types. Ignore attributes of invalid types. Fixes the cause of issue#261.
Waqas Hussain <waqas20@gmail.com>
parents: 4360
diff changeset
34 assert(type(tuple[2]) == "string", "element name has type: "..type(tuple[2]));
9f1c61805817 ejabberd2prosody: Added a lot more type checks to ensure XML data has proper data types. Ignore attributes of invalid types. Fixes the cause of issue#261.
Waqas Hussain <waqas20@gmail.com>
parents: 4360
diff changeset
35 assert(type(tuple[3]) == "table", "element attribute array has type: "..type(tuple[3]));
9f1c61805817 ejabberd2prosody: Added a lot more type checks to ensure XML data has proper data types. Ignore attributes of invalid types. Fixes the cause of issue#261.
Waqas Hussain <waqas20@gmail.com>
parents: 4360
diff changeset
36 assert(type(tuple[4]) == "table", "element children array has type: "..type(tuple[4]));
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
37 local name = tuple[2];
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
38 local attr = {};
4380
9f1c61805817 ejabberd2prosody: Added a lot more type checks to ensure XML data has proper data types. Ignore attributes of invalid types. Fixes the cause of issue#261.
Waqas Hussain <waqas20@gmail.com>
parents: 4360
diff changeset
39 for _, a in ipairs(tuple[3]) do
9f1c61805817 ejabberd2prosody: Added a lot more type checks to ensure XML data has proper data types. Ignore attributes of invalid types. Fixes the cause of issue#261.
Waqas Hussain <waqas20@gmail.com>
parents: 4360
diff changeset
40 if type(a[1]) == "string" and type(a[2]) == "string" then attr[a[1]] = a[2]; end
9f1c61805817 ejabberd2prosody: Added a lot more type checks to ensure XML data has proper data types. Ignore attributes of invalid types. Fixes the cause of issue#261.
Waqas Hussain <waqas20@gmail.com>
parents: 4360
diff changeset
41 end
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
42 local up;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
43 if stanza then stanza:tag(name, attr); up = true; else stanza = st.stanza(name, attr); end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
44 for _, a in ipairs(tuple[4]) do build_stanza(a, stanza); end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
45 if up then stanza:up(); else return stanza end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
46 elseif tuple[1] == "xmlcdata" then
6024
c352d97cf137 tools/ejabberd2prosody: Don't throw an error if XML CDATA is null ([] in Erlang, instead of a string or being missing).
Waqas Hussain <waqas20@gmail.com>
parents: 6006
diff changeset
47 if type(tuple[2]) ~= "table" then
c352d97cf137 tools/ejabberd2prosody: Don't throw an error if XML CDATA is null ([] in Erlang, instead of a string or being missing).
Waqas Hussain <waqas20@gmail.com>
parents: 6006
diff changeset
48 assert(type(tuple[2]) == "string", "XML CDATA has unexpected type: "..type(tuple[2]));
c352d97cf137 tools/ejabberd2prosody: Don't throw an error if XML CDATA is null ([] in Erlang, instead of a string or being missing).
Waqas Hussain <waqas20@gmail.com>
parents: 6006
diff changeset
49 stanza:text(tuple[2]);
c352d97cf137 tools/ejabberd2prosody: Don't throw an error if XML CDATA is null ([] in Erlang, instead of a string or being missing).
Waqas Hussain <waqas20@gmail.com>
parents: 6006
diff changeset
50 end -- else it's [], i.e., the null value, used for the empty string
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
51 else
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
52 error("unknown element type: "..serialize(tuple));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
53 end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
54 end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
55 function build_time(tuple)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
56 local Megaseconds,Seconds,Microseconds = unpack(tuple);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
57 return Megaseconds * 1000000 + Seconds;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
58 end
6280
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
59 function build_jid(tuple, full)
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
60 local node, jid, resource = tuple[1], tuple[2], tuple[3]
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
61 if type(node) == "string" and node ~= "" then
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
62 jid = tuple[1] .. "@" .. jid;
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
63 end
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
64 if full and type(resource) == "string" and resource ~= "" then
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
65 jid = jid .. "/" .. resource;
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
66 end
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
67 return jid;
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
68 end
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
69
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
70 function vcard(node, host, stanza)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
71 local ret, err = dm.store(node, host, "vcard", st.preserialize(stanza));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
72 print("["..(err or "success").."] vCard: "..node.."@"..host);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
73 end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
74 function password(node, host, password)
6797
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
75 local data = {};
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
76 if type(password) == "string" then
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
77 data.password = password;
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
78 elseif type(password) == "table" and password[1] == "scram" then
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
79 local unb64 = require"mime".unb64;
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
80 local function hex(s)
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
81 return s:gsub(".", function (c)
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
82 return ("%02x"):format(c:byte());
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
83 end);
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
84 end
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
85 data.stored_key = hex(unb64(password[2]));
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
86 data.server_key = hex(unb64(password[3]));
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
87 data.salt = unb64(password[4]);
11842
c20ff585e966 prosody2ejabberd: Check for iteration count at position 6
Matthew Wild <mwild1@gmail.com>
parents: 11841
diff changeset
88 if type(password[6]) == "number" then
c20ff585e966 prosody2ejabberd: Check for iteration count at position 6
Matthew Wild <mwild1@gmail.com>
parents: 11841
diff changeset
89 assert(password[5] == "sha", "unexpected passwd entry hash: "..tostring(password[5]));
c20ff585e966 prosody2ejabberd: Check for iteration count at position 6
Matthew Wild <mwild1@gmail.com>
parents: 11841
diff changeset
90 data.iteration_count = password[6];
c20ff585e966 prosody2ejabberd: Check for iteration count at position 6
Matthew Wild <mwild1@gmail.com>
parents: 11841
diff changeset
91 else
c20ff585e966 prosody2ejabberd: Check for iteration count at position 6
Matthew Wild <mwild1@gmail.com>
parents: 11841
diff changeset
92 assert(type(password[5]) == "number", "unexpected passwd entry in source data");
c20ff585e966 prosody2ejabberd: Check for iteration count at position 6
Matthew Wild <mwild1@gmail.com>
parents: 11841
diff changeset
93 data.iteration_count = password[5];
c20ff585e966 prosody2ejabberd: Check for iteration count at position 6
Matthew Wild <mwild1@gmail.com>
parents: 11841
diff changeset
94 end
6797
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
95 end
509b70437035 ejabberd2prosody: Support password stored as SCRAM hashes
Kim Alvefur <zash@zash.se>
parents: 6280
diff changeset
96 local ret, err = dm.store(node, host, "accounts", data);
2693
e60494fbf23f ejabberd2prosody: Don't print passwords of imported accounts
Matthew Wild <mwild1@gmail.com>
parents: 1784
diff changeset
97 print("["..(err or "success").."] accounts: "..node.."@"..host);
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
98 end
753
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
99 function roster(node, host, jid, item)
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
100 local roster = dm.load(node, host, "roster") or {};
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
101 roster[jid] = item;
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
102 local ret, err = dm.store(node, host, "roster", roster);
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
103 print("["..(err or "success").."] roster: " ..node.."@"..host.." - "..jid);
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
104 end
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
105 function roster_pending(node, host, jid)
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
106 local roster = dm.load(node, host, "roster") or {};
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
107 roster.pending = roster.pending or {};
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
108 roster.pending[jid] = true;
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
109 local ret, err = dm.store(node, host, "roster", roster);
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
110 print("["..(err or "success").."] roster: " ..node.."@"..host.." - "..jid);
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
111 end
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
112 function private_storage(node, host, xmlns, stanza)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
113 local private = dm.load(node, host, "private") or {};
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
114 private[stanza.name..":"..xmlns] = st.preserialize(stanza);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
115 local ret, err = dm.store(node, host, "private", private);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
116 print("["..(err or "success").."] private: " ..node.."@"..host.." - "..xmlns);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
117 end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
118 function offline_msg(node, host, t, stanza)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
119 stanza.attr.stamp = os.date("!%Y-%m-%dT%H:%M:%SZ", t);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
120 stanza.attr.stamp_legacy = os.date("!%Y%m%dT%H:%M:%S", t);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
121 local ret, err = dm.list_append(node, host, "offline", st.preserialize(stanza));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
122 print("["..(err or "success").."] offline: " ..node.."@"..host.." - "..os.date("!%Y-%m-%dT%H:%M:%SZ", t));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
123 end
4360
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
124 function privacy(node, host, default, lists)
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
125 local privacy = { lists = {} };
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
126 local count = 0;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
127 if default then privacy.default = default; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
128 for _, inlist in ipairs(lists) do
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
129 local name, items = inlist[1], inlist[2];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
130 local list = { name = name; items = {}; };
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
131 local orders = {};
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
132 for _, item in pairs(items) do
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
133 repeat
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
134 if item[1] ~= "listitem" then print("[error] privacy: unhandled item: "..tostring(item[1])); break; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
135 local _type, value = item[2], item[3];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
136 if _type == "jid" then
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
137 if type(value) ~= "table" then print("[error] privacy: jid value is not valid: "..tostring(value)); break; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
138 local _node, _host, _resource = value[1], value[2], value[3];
6280
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
139 value = build_jid(value, true)
4360
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
140 elseif _type == "none" then
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
141 _type = nil;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
142 value = nil;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
143 elseif _type == "group" then
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
144 if type(value) ~= "string" then print("[error] privacy: group value is not string: "..tostring(value)); break; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
145 elseif _type == "subscription" then
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
146 if value~="both" and value~="from" and value~="to" and value~="none" then
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
147 print("[error] privacy: subscription value is invalid: "..tostring(value)); break;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
148 end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
149 else print("[error] privacy: invalid item type: "..tostring(_type)); break; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
150 local action = item[4];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
151 if action ~= "allow" and action ~= "deny" then print("[error] privacy: unhandled action: "..tostring(action)); break; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
152 local order = item[5];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
153 if type(order) ~= "number" or order<0 then print("[error] privacy: order is not numeric: "..tostring(order)); break; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
154 if orders[order] then print("[error] privacy: duplicate order value: "..tostring(order)); break; end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
155 orders[order] = true;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
156 local match_all = item[6];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
157 local match_iq = item[7];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
158 local match_message = item[8];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
159 local match_presence_in = item[9];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
160 local match_presence_out = item[10];
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
161 list.items[#list.items+1] = {
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
162 type = _type;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
163 value = value;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
164 action = action;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
165 order = order;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
166 message = match_message == "true";
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
167 iq = match_iq == "true";
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
168 ["presence-in"] = match_presence_in == "true";
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
169 ["presence-out"] = match_presence_out == "true";
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
170 };
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
171 until true;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
172 end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
173 table.sort(list.items, function(a, b) return a.order < b.order; end);
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
174 if privacy.lists[list.name] then print("[warn] duplicate privacy list: "..tostring(list.name)); end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
175 privacy.lists[list.name] = list;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
176 count = count + 1;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
177 end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
178 if default and not privacy.lists[default] then
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
179 if default == "none" then privacy.default = nil;
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
180 else print("[warn] default privacy list doesn't exist: "..tostring(default)); end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
181 end
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
182 local ret, err = dm.store(node, host, "privacy", privacy);
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
183 print("["..(err or "success").."] privacy: " ..node.."@"..host.." - "..count.." list(s)");
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
184 end
5992
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
185 function muc_room(node, host, properties)
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
186 local store = { jid = node.."@"..host, _data = {}, _affiliations = {} };
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
187 for _,aff in ipairs(properties.affiliations) do
6280
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
188 store._affiliations[build_jid(aff[1])] = aff[2][1] or aff[2];
5992
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
189 end
11871
5dcbba569fb9 ejabberd2prosody.lua: fix MUC subject conversion with appropriate destructuring
arcseconds
parents: 11849
diff changeset
190 -- destructre ejabberd's subject datum (e.g. [{text,<<>>,<<"my room subject">>}] )
5dcbba569fb9 ejabberd2prosody.lua: fix MUC subject conversion with appropriate destructuring
arcseconds
parents: 11849
diff changeset
191 store._data.subject = properties.subject[1][3];
5992
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
192 if properties.subject_author then
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
193 store._data.subject_from = store.jid .. "/" .. properties.subject_author;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
194 end
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
195 store._data.name = properties.title;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
196 store._data.description = properties.description;
11849
7440d610e5f1 ejabberd2prosody: Don't import disabled or empty passwords
Matthew Wild <mwild1@gmail.com>
parents: 11842
diff changeset
197 if properties.password_protected ~= false and properties.password ~= "" then
7440d610e5f1 ejabberd2prosody: Don't import disabled or empty passwords
Matthew Wild <mwild1@gmail.com>
parents: 11842
diff changeset
198 store._data.password = properties.password;
7440d610e5f1 ejabberd2prosody: Don't import disabled or empty passwords
Matthew Wild <mwild1@gmail.com>
parents: 11842
diff changeset
199 end
5992
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
200 store._data.moderated = (properties.moderated == "true") or nil;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
201 store._data.members_only = (properties.members_only == "true") or nil;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
202 store._data.persistent = (properties.persistent == "true") or nil;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
203 store._data.changesubject = (properties.allow_change_subj == "true") or nil;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
204 store._data.whois = properties.anonymous == "true" and "moderators" or "anyone";
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
205 store._data.hidden = (properties.public_list == "false") or nil;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
206
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
207 if not store._data.persistent then
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
208 return print("[error] muc_room: skipping non-persistent room: "..node.."@"..host);
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
209 end
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
210
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
211 local ret, err = dm.store(node, host, "config", store);
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
212 if ret then
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
213 ret, err = dm.load(nil, host, "persistent");
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
214 if ret or not err then
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
215 ret = ret or {};
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
216 ret[store.jid] = true;
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
217 ret, err = dm.store(nil, host, "persistent", ret);
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
218 end
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
219 end
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
220 print("["..(err or "success").."] muc_room: " ..node.."@"..host);
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
221 end
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
222
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
223
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
224 local filters = {
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
225 passwd = function(tuple)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
226 password(tuple[2][1], tuple[2][2], tuple[3]);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
227 end;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
228 vcard = function(tuple)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
229 vcard(tuple[2][1], tuple[2][2], build_stanza(tuple[3]));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
230 end;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
231 roster = function(tuple)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
232 local node = tuple[3][1]; local host = tuple[3][2];
6280
ce1a20bd2053 tools/ejabberd2prosody.lua: Fix JID building, node-less jids became @hostname in some cases
Kim Alvefur <zash@zash.se>
parents: 6024
diff changeset
233 local contact = build_jid(tuple[4]);
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
234 local name = tuple[5]; local subscription = tuple[6];
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
235 local ask = tuple[7]; local groups = tuple[8];
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
236 if type(name) ~= type("") then name = nil; end
1782
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
237 if ask == "none" then
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
238 ask = nil;
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
239 elseif ask == "out" then
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
240 ask = "subscribe"
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
241 elseif ask == "in" then
753
3a0f9cf38f99 tools/ejabberd2prosody: Support for pending-in roster items
Waqas Hussain <waqas20@gmail.com>
parents: 643
diff changeset
242 roster_pending(node, host, contact);
1782
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
243 ask = nil;
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
244 elseif ask == "both" then
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
245 roster_pending(node, host, contact);
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
246 ask = "subscribe";
dd819e5bb0b8 ejabberd2prosody: Added support for ask='both' in subscriptions.
Waqas Hussain <waqas20@gmail.com>
parents: 1726
diff changeset
247 else error("Unknown ask type: "..ask); end
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
248 if subscription ~= "both" and subscription ~= "from" and subscription ~= "to" and subscription ~= "none" then error(subscription) end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
249 local item = {name = name, ask = ask, subscription = subscription, groups = {}};
1784
b2bfd3b93da6 ejabberd2prosody: Fixed a problem with null roster groups.
Waqas Hussain <waqas20@gmail.com>
parents: 1782
diff changeset
250 for _, g in ipairs(groups) do
b2bfd3b93da6 ejabberd2prosody: Fixed a problem with null roster groups.
Waqas Hussain <waqas20@gmail.com>
parents: 1782
diff changeset
251 if type(g) == "string" then
b2bfd3b93da6 ejabberd2prosody: Fixed a problem with null roster groups.
Waqas Hussain <waqas20@gmail.com>
parents: 1782
diff changeset
252 item.groups[g] = true;
b2bfd3b93da6 ejabberd2prosody: Fixed a problem with null roster groups.
Waqas Hussain <waqas20@gmail.com>
parents: 1782
diff changeset
253 end
b2bfd3b93da6 ejabberd2prosody: Fixed a problem with null roster groups.
Waqas Hussain <waqas20@gmail.com>
parents: 1782
diff changeset
254 end
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
255 roster(node, host, contact, item);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
256 end;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
257 private_storage = function(tuple)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
258 private_storage(tuple[2][1], tuple[2][2], tuple[2][3], build_stanza(tuple[3]));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
259 end;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
260 offline_msg = function(tuple)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
261 offline_msg(tuple[2][1], tuple[2][2], build_time(tuple[3]), build_stanza(tuple[7]));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
262 end;
4360
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
263 privacy = function(tuple)
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
264 privacy(tuple[2][1], tuple[2][2], tuple[3], tuple[4]);
a993a4a2ea0a ejabberd2prosody: Add support for privacy lists.
Waqas Hussain <waqas20@gmail.com>
parents: 2943
diff changeset
265 end;
5992
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
266 muc_room = function(tuple)
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
267 local properties = {};
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
268 for _,pair in ipairs(tuple[3]) do
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
269 if not(type(pair[2]) == "table" and #pair[2] == 0) then -- skip nil values
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
270 properties[pair[1]] = pair[2];
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
271 end
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
272 end
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
273 muc_room(tuple[2][1], tuple[2][2], properties);
72157e928c23 tools/ejabberd2prosody: Add support for importing MUC rooms.
Waqas Hussain <waqas20@gmail.com>
parents: 5697
diff changeset
274 end;
5999
e49c0c677c5d tools/ejabberd2prosody: Disable generating a config, as the format it generates is completely out of date.
Waqas Hussain <waqas20@gmail.com>
parents: 5998
diff changeset
275 --[=[config = function(tuple)
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
276 if tuple[2] == "hosts" then
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
277 local output = io.output(); io.output("prosody.cfg.lua");
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
278 io.write("-- Configuration imported from ejabberd --\n");
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
279 io.write([[Host "*"
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
280 modules_enabled = {
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
281 "saslauth"; -- Authentication for clients and servers. Recommended if you want to log in.
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
282 "legacyauth"; -- Legacy authentication. Only used by some old clients and bots.
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
283 "roster"; -- Allow users to have a roster. Recommended ;)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
284 "register"; -- Allow users to register on this server using a client
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
285 "tls"; -- Add support for secure TLS on c2s/s2s connections
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
286 "vcard"; -- Allow users to set vCards
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
287 "private"; -- Private XML storage (for room bookmarks, etc.)
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
288 "version"; -- Replies to server version requests
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
289 "dialback"; -- s2s dialback support
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
290 "uptime";
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
291 "disco";
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
292 "time";
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
293 "ping";
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
294 --"selftests";
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
295 };
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
296 ]]);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
297 for _, h in ipairs(tuple[3]) do
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
298 io.write("Host \"" .. h .. "\"\n");
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
299 end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
300 io.output(output);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
301 print("prosody.cfg.lua created");
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
302 end
5999
e49c0c677c5d tools/ejabberd2prosody: Disable generating a config, as the format it generates is completely out of date.
Waqas Hussain <waqas20@gmail.com>
parents: 5998
diff changeset
303 end;]=]
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
304 };
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
305
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
306 local arg = ...;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
307 local help = "/? -? ? /h -h /help -help --help";
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
308 if not arg or help:find(arg, 1, true) then
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
309 print([[ejabberd db dump importer for Prosody
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
310
5696
9fba74a28e0c package{,c}path fixes for migration tools
Vadim Misbakh-Soloviov <mva@mva.name>
parents: 5310
diff changeset
311 Usage: ]]..my_name..[[ filename.txt
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
312
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
313 The file can be generated from ejabberd using:
5696
9fba74a28e0c package{,c}path fixes for migration tools
Vadim Misbakh-Soloviov <mva@mva.name>
parents: 5310
diff changeset
314 sudo ejabberdctl dump filename.txt
1567
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
315
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
316 Note: The path of ejabberdctl depends on your ejabberd installation, and ejabberd needs to be running for ejabberdctl to work.]]);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
317 os.exit(1);
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
318 end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
319 local count = 0;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
320 local t = {};
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
321 for item in erlparse.parseFile(arg) do
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
322 count = count + 1;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
323 local name = item[1];
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
324 t[name] = (t[name] or 0) + 1;
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
325 --print(count, serialize(item));
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
326 if filters[name] then filters[name](item); end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
327 end
e052a3bdb8b5 ejabberd2prosody, erlparse.lua: Convert from Windows line endings (thanks teo)
Matthew Wild <mwild1@gmail.com>
parents: 1523
diff changeset
328 --print(serialize(t));