prosody-modules: mod_bookmarks2/mod_bookmarks2.lua annotate

annotate mod_bookmarks2/mod_bookmarks2.lua @ 4869:c3bf568e3977

mod_http_xep227: Initialize XEP-0227 XML mod_storage_xep0227 only writes if there is XML already for a user (it uses the presence of an existing <user> element as an indicator that an account exists, although technically this is not something Prosody itself does, so it's a little weird).

author	Matthew Wild <mwild1@gmail.com>
date	Sat, 15 Jan 2022 14:25:27 +0000
parents	a1181413a0eb
children	347894e08b4f

rev	line source
3678 7575399ae544 mod_bookmarks, mod_bookmarks2: Refuse to load if the other one is also loaded. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3677 diff changeset	1 local mm = require "core.modulemanager";
7575399ae544 mod_bookmarks, mod_bookmarks2: Refuse to load if the other one is also loaded. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3677 diff changeset	2 if mm.get_modules_for_host(module.host):contains("bookmarks") then
7575399ae544 mod_bookmarks, mod_bookmarks2: Refuse to load if the other one is also loaded. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3677 diff changeset	3 error("mod_bookmarks2 and mod_bookmarks are conflicting, please disable one of them.", 0);
7575399ae544 mod_bookmarks, mod_bookmarks2: Refuse to load if the other one is also loaded. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3677 diff changeset	4 end
7575399ae544 mod_bookmarks, mod_bookmarks2: Refuse to load if the other one is also loaded. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3677 diff changeset	5
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	6 local st = require "util.stanza";
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	7 local jid_split = require "util.jid".split;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	8
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	9 local mod_pep = module:depends "pep";
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	10 local private_storage = module:open_store("private", "map");
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	11
4640 d835cb7d2b47 mod_bookmarks2: Update namespace to :1 Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4639 diff changeset	12 local namespace = "urn:xmpp:bookmarks:1";
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	13 local namespace_private = "jabber:iq:private";
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	14 local namespace_legacy = "storage:bookmarks";
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	15
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	16 local default_options = {
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	17 ["persist_items"] = true;
4719 5a06c711649c mod_bookmarks2: Use max_items='max' on trunk, with fallback Kim Alvefur <zash@zash.se> parents: 4688 diff changeset	18 ["max_items"] = "max";
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	19 ["send_last_published_item"] = "never";
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	20 ["access_model"] = "whitelist";
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	21 };
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	22
4848 5001104f0275 Back out ad7767a9f3ea Kim Alvefur <zash@zash.se> parents: 4846 diff changeset	23 if not pcall(mod_pep.check_node_config, nil, nil, default_options) then
4719 5a06c711649c mod_bookmarks2: Use max_items='max' on trunk, with fallback Kim Alvefur <zash@zash.se> parents: 4688 diff changeset	24 -- 0.11 or earlier not supporting max_items="max" trows an error here
5a06c711649c mod_bookmarks2: Use max_items='max' on trunk, with fallback Kim Alvefur <zash@zash.se> parents: 4688 diff changeset	25 module:log("debug", "Setting max_items=pep_max_items because 'max' is not supported in this version");
5a06c711649c mod_bookmarks2: Use max_items='max' on trunk, with fallback Kim Alvefur <zash@zash.se> parents: 4688 diff changeset	26 default_options["max_items"] = module:get_option_number("pep_max_items", 256);
4866 a1181413a0eb mod_bookmarks2: Skip send_last_published_item (unavailable in 0.11) (thanks carlos) Kim Alvefur <zash@zash.se> parents: 4850 diff changeset	27 default_options["send_last_published_item"] = nil; -- not available in 0.11
4719 5a06c711649c mod_bookmarks2: Use max_items='max' on trunk, with fallback Kim Alvefur <zash@zash.se> parents: 4688 diff changeset	28 end
5a06c711649c mod_bookmarks2: Use max_items='max' on trunk, with fallback Kim Alvefur <zash@zash.se> parents: 4688 diff changeset	29
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	30 module:hook("account-disco-info", function (event)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	31 -- This Time it’s Serious!
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	32 event.reply:tag("feature", { var = namespace.."#compat" }):up();
4835 60b2dbe032c0 mod_bookmarks2: Finally add the #compat-pep feature! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4834 diff changeset	33 event.reply:tag("feature", { var = namespace.."#compat-pep" }):up();
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	34 end);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	35
4838 fd2e48d4ac94 mod_bookmarks2: Advertise XEP-0049 support Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4837 diff changeset	36 -- This must be declared on the domain JID, not the account JID. Note that
fd2e48d4ac94 mod_bookmarks2: Advertise XEP-0049 support Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4837 diff changeset	37 -- this isn’t defined in the XEP.
fd2e48d4ac94 mod_bookmarks2: Advertise XEP-0049 support Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4837 diff changeset	38 module:add_feature(namespace_private);
fd2e48d4ac94 mod_bookmarks2: Advertise XEP-0049 support Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4837 diff changeset	39
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	40 local function generate_legacy_storage(items)
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	41 local storage = st.stanza("storage", { xmlns = namespace_legacy });
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	42 for _, item_id in ipairs(items) do
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	43 local item = items[item_id];
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	44 local bookmark = item:get_child("conference", namespace);
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	45 local conference = st.stanza("conference", {
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	46 jid = item.attr.id,
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	47 name = bookmark.attr.name,
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	48 autojoin = bookmark.attr.autojoin,
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	49 });
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	50 local nick = bookmark:get_child_text("nick");
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	51 if nick ~= nil then
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	52 conference:text_tag("nick", nick):up();
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	53 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	54 local password = bookmark:get_child_text("password");
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	55 if password ~= nil then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	56 conference:text_tag("password", password):up();
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	57 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	58 storage:add_child(conference);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	59 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	60
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	61 return storage;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	62 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	63
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	64 local function on_retrieve_legacy_pep(event)
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	65 local stanza, session = event.stanza, event.origin;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	66 local pubsub = stanza:get_child("pubsub", "http://jabber.org/protocol/pubsub");
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	67 if pubsub == nil then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	68 return;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	69 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	70
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	71 local items = pubsub:get_child("items");
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	72 if items == nil then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	73 return;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	74 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	75
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	76 local node = items.attr.node;
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	77 if node ~= namespace_legacy then
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	78 return;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	79 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	80
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	81 local username = session.username;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	82 local jid = username.."@"..session.host;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	83 local service = mod_pep.get_pep_service(username);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	84 local ok, ret = service:get_items(namespace, session.full_jid);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	85 if not ok then
4845 6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	86 module:log("error", "Failed to retrieve PEP bookmarks of %s: %s", jid, ret);
6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	87 session.send(st.error_reply(stanza, "cancel", ret, "Failed to retrive bookmarks from PEP"));
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	88 return true;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	89 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	90
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	91 local storage = generate_legacy_storage(ret);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	92
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	93 module:log("debug", "Sending back legacy PEP for %s: %s", jid, storage);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	94 session.send(st.reply(stanza)
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	95 :tag("pubsub", {xmlns = "http://jabber.org/protocol/pubsub"})
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	96 :tag("items", {node = namespace_legacy})
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	97 :tag("item", {id = "current"})
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	98 :add_child(storage));
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	99 return true;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	100 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	101
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	102 local function on_retrieve_private_xml(event)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	103 local stanza, session = event.stanza, event.origin;
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	104 local query = stanza:get_child("query", namespace_private);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	105 if query == nil then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	106 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	107 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	108
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	109 local bookmarks = query:get_child("storage", namespace_legacy);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	110 if bookmarks == nil then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	111 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	112 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	113
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	114 module:log("debug", "Getting private bookmarks: %s", bookmarks);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	115
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	116 local username = session.username;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	117 local jid = username.."@"..session.host;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	118 local service = mod_pep.get_pep_service(username);
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	119 local ok, ret = service:get_items(namespace, session.full_jid);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	120 if not ok then
4845 6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	121 if ret == "item-not-found" then
6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	122 module:log("debug", "Got no PEP bookmarks item for %s, returning empty private bookmarks", jid);
6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	123 session.send(st.reply(stanza):add_child(query));
6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	124 else
6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	125 module:log("error", "Failed to retrieve PEP bookmarks of %s: %s", jid, ret);
6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	126 session.send(st.error_reply(stanza, "cancel", ret, "Failed to retrive bookmarks from PEP"));
6e17df6becec mod_bookmarks2: Actually fix the right wrong codepath Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4844 diff changeset	127 end
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	128 return true;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	129 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	130
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	131 local storage = generate_legacy_storage(ret);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	132
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	133 module:log("debug", "Sending back private for %s: %s", jid, storage);
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	134 session.send(st.reply(stanza):query(namespace_private):add_child(storage));
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	135 return true;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	136 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	137
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	138 local function compare_bookmark2(a, b)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	139 if a == nil or b == nil then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	140 return false;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	141 end
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	142 local a_conference = a:get_child("conference", namespace);
3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	143 local b_conference = b:get_child("conference", namespace);
4739 fdd9e5d89d73 mod_bookmarks2: Fix comparison Kim Alvefur <zash@zash.se> parents: 4738 diff changeset	144 local a_nick = a_conference:get_child_text("nick");
fdd9e5d89d73 mod_bookmarks2: Fix comparison Kim Alvefur <zash@zash.se> parents: 4738 diff changeset	145 local b_nick = b_conference:get_child_text("nick");
fdd9e5d89d73 mod_bookmarks2: Fix comparison Kim Alvefur <zash@zash.se> parents: 4738 diff changeset	146 local a_password = a_conference:get_child_text("password");
fdd9e5d89d73 mod_bookmarks2: Fix comparison Kim Alvefur <zash@zash.se> parents: 4738 diff changeset	147 local b_password = b_conference:get_child_text("password");
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	148 return (a.attr.id == b.attr.id and
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	149 a_conference.attr.name == b_conference.attr.name and
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	150 a_conference.attr.autojoin == b_conference.attr.autojoin and
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	151 a_nick == b_nick and
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	152 a_password == b_password);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	153 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	154
3739 1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	155 local function publish_to_pep(jid, bookmarks, synchronise)
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	156 local service = mod_pep.get_pep_service(jid_split(jid));
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	157
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	158 if #bookmarks.tags == 0 then
3739 1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	159 if synchronise then
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	160 -- If we set zero legacy bookmarks, purge the bookmarks 2 node.
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	161 module:log("debug", "No bookmark in the set, purging instead.");
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	162 return service:purge(namespace, jid, true);
3739 1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	163 else
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	164 return true;
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	165 end
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	166 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	167
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	168 -- Retrieve the current bookmarks2.
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	169 module:log("debug", "Retrieving the current bookmarks 2.");
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	170 local has_bookmarks2, ret = service:get_items(namespace, jid);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	171 local bookmarks2;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	172 if not has_bookmarks2 and ret == "item-not-found" then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	173 module:log("debug", "Got item-not-found, assuming it was empty until now, creating.");
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	174 local ok, err = service:create(namespace, jid, default_options);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	175 if not ok then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	176 module:log("error", "Creating bookmarks 2 node failed: %s", err);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	177 return ok, err;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	178 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	179 bookmarks2 = {};
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	180 elseif not has_bookmarks2 then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	181 module:log("debug", "Got %s error, aborting.", ret);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	182 return false, ret;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	183 else
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	184 module:log("debug", "Got existing bookmarks2.");
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	185 bookmarks2 = ret;
4850 9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	186
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	187 local ok, err = service:get_node_config(namespace, jid);
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	188 if not ok then
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	189 module:log("error", "Retrieving bookmarks 2 node config failed: %s", err);
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	190 return ok, err;
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	191 end
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	192
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	193 local options = err;
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	194 for key, value in pairs(default_options) do
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	195 if options[key] and options[key] ~= value then
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	196 module:log("warn", "Overriding bookmarks 2 configuration for %s, from %s to %s", jid, options[key], value);
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	197 options[key] = value;
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	198 end
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	199 end
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	200
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	201 local ok, err = service:set_node_config(namespace, jid, options);
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	202 if not ok then
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	203 module:log("error", "Setting bookmarks 2 node config failed: %s", err);
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	204 return ok, err;
9187a7adfc39 mod_bookmarks2: Override the node configuration if it was wrong Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4848 diff changeset	205 end
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	206 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	207
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	208 -- Get a list of all items we may want to remove.
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	209 local to_remove = {};
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	210 for i in ipairs(bookmarks2) do
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	211 to_remove[bookmarks2[i]] = true;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	212 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	213
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	214 for bookmark in bookmarks:childtags("conference", namespace_legacy) do
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	215 -- Create the new conference element by copying everything from the legacy one.
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	216 local conference = st.stanza("conference", {
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	217 xmlns = namespace,
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	218 name = bookmark.attr.name,
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	219 autojoin = bookmark.attr.autojoin,
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	220 });
1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	221 local nick = bookmark:get_child_text("nick");
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	222 if nick ~= nil then
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	223 conference:text_tag("nick", nick):up();
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	224 end
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	225 local password = bookmark:get_child_text("password");
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	226 if password ~= nil then
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	227 conference:text_tag("password", password):up();
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	228 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	229
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	230 -- Create its wrapper.
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	231 local item = st.stanza("item", { xmlns = "http://jabber.org/protocol/pubsub", id = bookmark.attr.jid })
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	232 :add_child(conference);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	233
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	234 -- Then publish it only if it’s a new one or updating a previous one.
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	235 if compare_bookmark2(item, bookmarks2[bookmark.attr.jid]) then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	236 module:log("debug", "Item %s identical to the previous one, skipping.", item.attr.id);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	237 to_remove[bookmark.attr.jid] = nil;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	238 else
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	239 if bookmarks2[bookmark.attr.jid] == nil then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	240 module:log("debug", "Item %s not existing previously, publishing.", item.attr.id);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	241 else
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	242 module:log("debug", "Item %s different from the previous one, publishing.", item.attr.id);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	243 to_remove[bookmark.attr.jid] = nil;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	244 end
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	245 local ok, err = service:publish(namespace, jid, bookmark.attr.jid, item, default_options);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	246 if not ok then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	247 module:log("error", "Publishing item %s failed: %s", item.attr.id, err);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	248 return ok, err;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	249 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	250 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	251 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	252
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	253 -- Now handle retracting items that have been removed.
3739 1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	254 if synchronise then
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	255 for id in pairs(to_remove) do
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	256 module:log("debug", "Item %s removed from bookmarks.", id);
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	257 local ok, err = service:retract(namespace, jid, id, st.stanza("retract", { id = id }));
3739 1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	258 if not ok then
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	259 module:log("error", "Retracting item %s failed: %s", id, err);
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	260 return ok, err;
1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	261 end
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	262 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	263 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	264 return true;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	265 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	266
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	267 -- Synchronise legacy PEP to PEP.
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	268 local function on_publish_legacy_pep(event)
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	269 local stanza, session = event.stanza, event.origin;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	270 local pubsub = stanza:get_child("pubsub", "http://jabber.org/protocol/pubsub");
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	271 if pubsub == nil then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	272 return;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	273 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	274
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	275 local publish = pubsub:get_child("publish");
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	276 if publish == nil or publish.attr.node ~= namespace_legacy then
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	277 return;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	278 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	279
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	280 local item = publish:get_child("item");
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	281 if item == nil then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	282 return;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	283 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	284
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	285 -- Here we ignore the item id, it’ll be generated as 'current' anyway.
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	286
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	287 local bookmarks = item:get_child("storage", namespace_legacy);
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	288 if bookmarks == nil then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	289 return;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	290 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	291
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	292 -- We also ignore the publish-options.
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	293
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	294 module:log("debug", "Legacy PEP bookmarks set by client, publishing to PEP.");
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	295
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	296 local ok, err = publish_to_pep(session.full_jid, bookmarks, true);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	297 if not ok then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	298 module:log("error", "Failed to publish to PEP bookmarks for %s@%s: %s", session.username, session.host, err);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	299 session.send(st.error_reply(stanza, "cancel", "internal-server-error", "Failed to store bookmarks to PEP"));
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	300 return true;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	301 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	302
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	303 session.send(st.reply(stanza));
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	304 return true;
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	305 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	306
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	307 -- Synchronise Private XML to PEP.
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	308 local function on_publish_private_xml(event)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	309 local stanza, session = event.stanza, event.origin;
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	310 local query = stanza:get_child("query", namespace_private);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	311 if query == nil then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	312 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	313 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	314
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	315 local bookmarks = query:get_child("storage", namespace_legacy);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	316 if bookmarks == nil then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	317 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	318 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	319
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	320 module:log("debug", "Private bookmarks set by client, publishing to PEP.");
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	321
3739 1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	322 local ok, err = publish_to_pep(session.full_jid, bookmarks, true);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	323 if not ok then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	324 module:log("error", "Failed to publish to PEP bookmarks for %s@%s: %s", session.username, session.host, err);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	325 session.send(st.error_reply(stanza, "cancel", "internal-server-error", "Failed to store bookmarks to PEP"));
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	326 return true;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	327 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	328
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	329 session.send(st.reply(stanza));
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	330 return true;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	331 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	332
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	333 local function migrate_legacy_bookmarks(event)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	334 local session = event.session;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	335 local username = session.username;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	336 local service = mod_pep.get_pep_service(username);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	337 local jid = username.."@"..session.host;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	338
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	339 local ok, ret = service:get_items(namespace_legacy, session.full_jid);
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	340 if ok then
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	341 module:log("debug", "Legacy PEP bookmarks found for %s, migrating.", jid);
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	342 local failed = false;
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	343 for _, item_id in ipairs(ret) do
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	344 local item = ret[item_id];
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	345 if item.attr.id ~= "current" then
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	346 module:log("warn", "Legacy PEP bookmarks for %s isn’t using 'current' as its id: %s", jid, item.attr.id);
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	347 end
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	348 local bookmarks = item:get_child("storage", namespace_legacy);
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	349 module:log("debug", "Got legacy PEP bookmarks of %s: %s", jid, bookmarks);
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	350
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	351 local ok, err = publish_to_pep(session.full_jid, bookmarks, false);
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	352 if not ok then
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	353 module:log("error", "Failed to store legacy PEP bookmarks to bookmarks 2 for %s, aborting migration: %s", jid, err);
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	354 failed = true;
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	355 break;
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	356 end
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	357 end
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	358 if not failed then
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	359 module:log("debug", "Successfully migrated legacy PEP bookmarks of %s to bookmarks 2, attempting deletion of the node.", jid);
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	360 local ok, err = service:delete(namespace_legacy, jid);
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	361 if not ok then
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	362 module:log("error", "Failed to delete legacy PEP bookmarks for %s: %s", jid, err);
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	363 end
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	364 end
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	365 end
33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	366
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	367 local data, err = private_storage:get(username, "storage:storage:bookmarks");
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	368 if not data then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	369 module:log("debug", "No existing legacy bookmarks for %s, migration already done: %s", jid, err);
4639 3da7cd77aca9 mod_bookmarks2: Factor namespace string into a variable Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4279 diff changeset	370 local ok, ret2 = service:get_items(namespace, session.full_jid);
4279 776eacd233b5 mod_bookmarks2: Fix luacheck warning Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3743 diff changeset	371 if not ok or not ret2 then
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	372 module:log("debug", "Additionally, no bookmarks 2 were existing for %s, assuming empty.", jid);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	373 module:fire_event("bookmarks/empty", { session = session });
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	374 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	375 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	376 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	377 local bookmarks = st.deserialize(data);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	378 module:log("debug", "Got legacy bookmarks of %s: %s", jid, bookmarks);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	379
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	380 module:log("debug", "Going to store legacy bookmarks to bookmarks 2 %s.", jid);
3739 1ed3d86eeaed mod_bookmarks2: Don’t purge or remove inexistant items when synchronising existing Private XML data. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3738 diff changeset	381 local ok, err = publish_to_pep(session.full_jid, bookmarks, false);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	382 if not ok then
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	383 module:log("error", "Failed to store legacy bookmarks to bookmarks 2 for %s, aborting migration: %s", jid, err);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	384 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	385 end
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	386 module:log("debug", "Stored legacy bookmarks to bookmarks 2 for %s.", jid);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	387
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	388 local ok, err = private_storage:set(username, "storage:storage:bookmarks", nil);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	389 if not ok then
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	390 module:log("error", "Failed to remove legacy bookmarks of %s: %s", jid, err);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	391 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	392 end
3741 33b3e2387a10 mod_bookmarks2: Also migrate legacy PEP bookmarks (current XEP-0048). Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3740 diff changeset	393 module:log("debug", "Removed legacy bookmarks of %s, migration done!", jid);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	394 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	395
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	396 local function on_node_created(event)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	397 local service, node, actor = event.service, event.node, event.actor;
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	398 if node ~= namespace_legacy then
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	399 return;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	400 end
3743 5eab799b5fa4 mod_bookmarks2: Delete legacy PEP bookmarks whenever they get recreated, to prevent them from being used. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3742 diff changeset	401
5eab799b5fa4 mod_bookmarks2: Delete legacy PEP bookmarks whenever they get recreated, to prevent them from being used. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3742 diff changeset	402 module:log("debug", "Something tried to create legacy PEP bookmarks for %s.", actor);
4837 1f1acb7f3c10 mod_bookmarks2: Use constants for namespaces Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4835 diff changeset	403 local ok, err = service:delete(namespace_legacy, actor);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	404 if not ok then
3743 5eab799b5fa4 mod_bookmarks2: Delete legacy PEP bookmarks whenever they get recreated, to prevent them from being used. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3742 diff changeset	405 module:log("error", "Failed to delete legacy PEP bookmarks for %s: %s", actor, err);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	406 end
3743 5eab799b5fa4 mod_bookmarks2: Delete legacy PEP bookmarks whenever they get recreated, to prevent them from being used. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3742 diff changeset	407 module:log("debug", "Legacy PEP bookmarks node of %s deleted.", actor);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	408 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	409
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	410 module:hook("iq/bare/jabber:iq:private:query", function (event)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	411 if event.stanza.attr.type == "get" then
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	412 return on_retrieve_private_xml(event);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	413 else
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	414 return on_publish_private_xml(event);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	415 end
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	416 end, 1);
4834 7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	417 module:hook("iq/bare/http://jabber.org/protocol/pubsub:pubsub", function (event)
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	418 if event.stanza.attr.type == "get" then
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	419 return on_retrieve_legacy_pep(event);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	420 else
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	421 return on_publish_legacy_pep(event);
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	422 end
7ed2467c9bb5 mod_bookmarks2: Add simple support for legacy PEP queries Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 4739 diff changeset	423 end, 1);
3677 90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	424 module:hook("resource-bind", migrate_legacy_bookmarks);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	425 module:handle_items("pep-service", function (event)
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	426 local service = event.item.service;
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	427 module:hook_object_event(service.events, "node-created", on_node_created);
90f88a643973 mod_bookmarks2: Add new module. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	428 end, function () end, true);

Mercurial > prosody-modules

annotate mod_bookmarks2/mod_bookmarks2.lua @ 4869:c3bf568e3977