2 -- Copyright (C) 2008-2010 Matthew Wild
3 -- Copyright (C) 2008-2010 Waqas Hussain
4 -- Copyright (C) 2014 Daurnimator
6 -- This project is MIT/X11 licensed. Please see the
7 -- COPYING file in the source package for more information.
10 local st = require "util.stanza";
12 local function get_password(room)
13 return room._data.password;
16 local function set_password(room, password)
17 if password == "" then password = nil; end
18 if room._data.password == password then return false; end
19 room._data.password = password;
20 if room.save then room:save(true); end
24 module:hook("muc-disco#info", function(event)
25 event.reply:tag("feature", {var = get_password(event.room) and "muc_passwordprotected" or "muc_unsecured"}):up();
28 module:hook("muc-config-form", function(event)
29 table.insert(event.form, {
30 name = "muc#roomconfig_roomsecret";
31 type = "text-private";
33 value = get_password(event.room) or "";
37 module:hook("muc-config-submitted", function(event)
38 local new = event.fields["muc#roomconfig_roomsecret"];
39 if new ~= nil and set_password(event.room, new) then
40 event.status_codes["104"] = true;
44 -- Don't allow anyone to join room unless they provide the password
45 module:hook("muc-occupant-pre-join", function(event)
46 local room, stanza = event.room, event.stanza;
47 local password = stanza:get_child("x", "http://jabber.org/protocol/muc");
48 password = password and password:get_child_text("password", "http://jabber.org/protocol/muc");
49 if not password or password == "" then password = nil; end
50 if get_password(room) ~= password then
51 local from, to = stanza.attr.from, stanza.attr.to;
52 module:log("debug", "%s couldn't join due to invalid password: %s", from, to);
53 local reply = st.error_reply(stanza, "auth", "not-authorized"):up();
54 reply.tags[1].attr.code = "401";
55 event.origin.send(reply:tag("x", {xmlns = "http://jabber.org/protocol/muc"}));
60 -- Add password to outgoing invite
61 module:hook("muc-invite", function(event)
62 local password = get_password(event.room);
64 local x = event.stanza:get_child("x", "http://jabber.org/protocol/muc#user");
65 x:tag("password"):text(password):up();