Mercurial > prosody-modules
view mod_mam_adhoc/mod_mam_adhoc.lua @ 4300:3f3b672b7616
mod_vcard_muc: Pass room object around instead of JID, hopefully fixing traceback
More efficient to pass the object around instead of using the JID
and looking up the object when needed.
It seems in some (undetermined) cases get_room_from_jid(room.jid) is nil.
author | Matthew Wild <mwild1@gmail.com> |
---|---|
date | Tue, 15 Dec 2020 10:49:11 +0000 |
parents | 27b41ee61601 |
children |
line wrap: on
line source
module:depends"adhoc"; local dataforms_new = require "util.dataforms".new; local jid_split = require "util.jid".split; local t_insert = table.insert; local prefs = module:require"mod_mam/mamprefs"; local set_prefs, get_prefs = prefs.set, prefs.get; local mam_prefs_form = dataforms_new{ title = "Archive preferences"; --instructions = ""; { name = "default", label = "Default storage policy", type = "list-single", value = { { value = "always", label = "Always" }, { value = "never", label = "Never", default = true}, { value = "roster", label = "Roster" }, }, }; { name = "always", label = "Always store messages to/from", type = "jid-multi" }; { name = "never", label = "Never store messages to/from", type = "jid-multi" }; }; local host = module.host; local default_attrs = { always = true, [true] = "always", never = false, [false] = "never", roster = "roster", } local function mam_prefs_handler(self, data, state) local username = jid_split(data.from); if state then -- the second return value if data.action == "cancel" then return { status = "canceled" }; end local fields = mam_prefs_form:data(data.form); local default, always, never = fields.default, fields.always, fields.never; local prefs = {}; if default then prefs[false] = default_attrs[default]; end if always then for i=1,#always do prefs[always[i]] = true; end end if never then for i=1,#never do prefs[never[i]] = false; end end set_prefs(username, prefs); return { status = "completed" } else -- No state, send the form. local prefs = get_prefs(username); local values = { default = { { value = "always", label = "Always" }; { value = "never", label = "Never" }; { value = "roster", label = "Roster" }; }; always = {}; never = {}; }; for jid, p in pairs(prefs) do if jid then t_insert(values[p and "always" or "never"], jid); elseif p == true then -- Yes, this is ugly. FIXME later. values.default[1].default = true; elseif p == false then values.default[2].default = true; elseif p == "roster" then values.default[3].default = true; end end return { status = "executing", actions = { "complete" }, form = { layout = mam_prefs_form, values = values } }, true; end end module:provides("adhoc", module:require"adhoc".new("Archive settings", "urn:xmpp:mam#configure", mam_prefs_handler, "local_user"));