aboutsummaryrefslogtreecommitdiffstats
path: root/plugins/muc/lock.lib.lua
blob: 73dfa1515449fb9532dffb97c4d8b17505542b92 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
-- Prosody IM
-- Copyright (C) 2008-2010 Matthew Wild
-- Copyright (C) 2008-2010 Waqas Hussain
-- Copyright (C) 2014 Daurnimator
--
-- This project is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--

local lock_rooms = module:get_option_boolean("muc_room_locking", false);
local lock_room_timeout = module:get_option_number("muc_room_lock_timeout", 300);

local function lock(room)
	module:fire_event("muc-room-locked", {room = room;});
	room.locked = true;
end
local function unlock(room)
	module:fire_event("muc-room-unlocked", {room = room;});
	room.locked = nil;
end
local function is_locked(room)
	return not not room.locked;
end

if lock_rooms then
	module:hook("muc-room-created", function(event)
		local room = event.room;
		lock(room);
		if lock_room_timeout and lock_room_timeout > 0 then
			module:add_timer(lock_room_timeout, function ()
				if is_locked(room) then
					room:destroy(); -- Not unlocked in time
				end
			end);
		end
	end);
end

-- Older groupchat protocol doesn't lock
module:hook("muc-room-pre-create", function(event)
	if is_locked(event.room) and not event.stanza:get_child("x", "http://jabber.org/protocol/muc") then
		unlock(event.room);
	end
end, 10);

-- Don't let users into room while it is locked
module:hook("muc-occupant-pre-join", function(event)
	if is_locked(event.room) then -- Deny entry
		event.origin.send(st.error_reply(event.stanza, "cancel", "item-not-found"));
		return true;
	end
end, -30);

-- When config is submitted; unlock the room
module:hook("muc-config-submitted", function(event)
	if is_locked(event.room) then
		unlock(event.room);
	end
end, -1);

return {
	lock = lock;
	unlock = unlock;
	is_locked = is_locked;
};