plugins/muc/muc.lib: Fix getting a list of occupants by role (it was sending presence...
[prosody.git] / plugins / muc / mod_muc.lua
index a9480465c0417adf5c3f043b03ee2c9c6936393c..6f6094b45bcb5a6d3cedbbf33e8d01c216423e24 100644 (file)
@@ -1,11 +1,12 @@
 -- Prosody IM
 -- Copyright (C) 2008-2010 Matthew Wild
 -- Copyright (C) 2008-2010 Waqas Hussain
--- 
+--
 -- This project is MIT/X11 licensed. Please see the
 -- COPYING file in the source package for more information.
 --
 
+local array = require "util.array";
 
 if module:get_host_type() ~= "component" then
        error("MUC should be loaded as a component, please see http://prosody.im/doc/components", 0);
@@ -16,18 +17,18 @@ local muc_name = module:get_option("name");
 if type(muc_name) ~= "string" then muc_name = "Prosody Chatrooms"; end
 local restrict_room_creation = module:get_option("restrict_room_creation");
 if restrict_room_creation then
-       if restrict_room_creation == true then 
+       if restrict_room_creation == true then
                restrict_room_creation = "admin";
        elseif restrict_room_creation ~= "admin" and restrict_room_creation ~= "local" then
                restrict_room_creation = nil;
        end
 end
+
 local muclib = module:require "muc";
 local muc_new_room = muclib.new_room;
 local jid_split = require "util.jid".split;
 local jid_bare = require "util.jid".bare;
 local st = require "util.stanza";
-local uuid_gen = require "util.uuid".generate;
 local um_is_admin = require "core.usermanager".is_admin;
 local hosts = prosody.hosts;
 
@@ -43,13 +44,16 @@ muclib.set_max_history_length(module:get_option_number("max_history_messages"));
 module:depends("disco");
 module:add_identity("conference", "text", muc_name);
 module:add_feature("http://jabber.org/protocol/muc");
+module:depends "muc_unique"
+module:require "muc/lock";
 
 local function is_admin(jid)
        return um_is_admin(jid, module.host);
 end
 
-local _set_affiliation = muc_new_room.room_mt.set_affiliation;
-local _get_affiliation = muc_new_room.room_mt.get_affiliation;
+room_mt = muclib.room_mt; -- Yes, global.
+local _set_affiliation = room_mt.set_affiliation;
+local _get_affiliation = room_mt.get_affiliation;
 function muclib.room_mt:get_affiliation(jid)
        if is_admin(jid) then return "owner"; end
        return _get_affiliation(self, jid);
@@ -59,7 +63,6 @@ function muclib.room_mt:set_affiliation(actor, jid, affiliation, callback, reaso
        return _set_affiliation(self, actor, jid, affiliation, callback, reason);
 end
 
-local function room_route_stanza(room, stanza) module:send(stanza); end
 local function room_save(room, forced)
        local node = jid_split(room.jid);
        persistent_rooms[room.jid] = room._data.persistent;
@@ -84,13 +87,20 @@ end
 
 function create_room(jid)
        local room = muc_new_room(jid);
-       room.route_stanza = room_route_stanza;
        room.save = room_save;
        rooms[jid] = room;
        module:fire_event("muc-room-created", { room = room });
        return room;
 end
 
+function forget_room(jid)
+       rooms[jid] = nil;
+end
+
+function get_room_from_jid(room_jid)
+       return rooms[room_jid]
+end
+
 local persistent_errors = false;
 for jid in pairs(persistent_rooms) do
        local node = jid_split(jid);
@@ -108,8 +118,8 @@ end
 if persistent_errors then persistent_rooms_storage:set(nil, persistent_rooms); end
 
 local host_room = muc_new_room(muc_host);
-host_room.route_stanza = room_route_stanza;
 host_room.save = room_save;
+rooms[muc_host] = host_room;
 
 module:hook("host-disco-items", function(event)
        local reply = event.reply;
@@ -121,64 +131,72 @@ module:hook("host-disco-items", function(event)
        end
 end);
 
-local function handle_to_domain(event)
-       local origin, stanza = event.origin, event.stanza;
-       local type = stanza.attr.type;
-       if type == "error" or type == "result" then return; end
-       if stanza.name == "iq" and type == "get" then
-               local xmlns = stanza.tags[1].attr.xmlns;
-               local node = stanza.tags[1].attr.node;
-               if xmlns == "http://jabber.org/protocol/muc#unique" then
-                       origin.send(st.reply(stanza):tag("unique", {xmlns = xmlns}):text(uuid_gen())); -- FIXME Random UUIDs can theoretically have collisions
-               else
-                       origin.send(st.error_reply(stanza, "cancel", "service-unavailable")); -- TODO disco/etc
-               end
-       else
-               host_room:handle_stanza(origin, stanza);
-               --origin.send(st.error_reply(stanza, "cancel", "service-unavailable", "The muc server doesn't deal with messages and presence directed at it"));
+module:hook("muc-room-destroyed",function(event)
+       local room = event.room
+       forget_room(room.jid)
+end)
+
+module:hook("muc-occupant-left",function(event)
+       local room = event.room
+       if not next(room._occupants) and not persistent_rooms[room.jid] then -- empty, non-persistent room
+               module:fire_event("muc-room-destroyed", { room = room });
        end
-       return true;
-end
+end);
 
-function stanza_handler(event)
+-- Watch presence to create rooms
+local function attempt_room_creation(event)
        local origin, stanza = event.origin, event.stanza;
-       local bare = jid_bare(stanza.attr.to);
-       local room = rooms[bare];
-       if not room then
-               if stanza.name ~= "presence" then
-                       origin.send(st.error_reply(stanza, "cancel", "item-not-found"));
-                       return true;
-               end
-               if not(restrict_room_creation) or
-                 (restrict_room_creation == "admin" and is_admin(stanza.attr.from)) or
-                 (restrict_room_creation == "local" and select(2, jid_split(stanza.attr.from)) == module.host:gsub("^[^%.]+%.", "")) then
-                       room = create_room(bare);
-               end
-       end
-       if room then
-               room:handle_stanza(origin, stanza);
-               if not next(room._occupants) and not persistent_rooms[room.jid] then -- empty, non-persistent room
-                       rooms[bare] = nil; -- discard room
-               end
-       else
-               origin.send(st.error_reply(stanza, "cancel", "not-allowed"));
+       local room_jid = jid_bare(stanza.attr.to);
+       if stanza.attr.type == nil and
+               get_room_from_jid(room_jid) == nil and
+               (
+                       not(restrict_room_creation) or
+                       is_admin(stanza.attr.from) or
+                       (
+                               restrict_room_creation == "local" and
+                               select(2, jid_split(stanza.attr.from)) == module.host:gsub("^[^%.]+%.", "")
+                       )
+               ) then
+               create_room(room_jid);
        end
-       return true;
 end
-module:hook("iq/bare", stanza_handler, -1);
-module:hook("message/bare", stanza_handler, -1);
-module:hook("presence/bare", stanza_handler, -1);
-module:hook("iq/full", stanza_handler, -1);
-module:hook("message/full", stanza_handler, -1);
-module:hook("presence/full", stanza_handler, -1);
-module:hook("iq/host", handle_to_domain, -1);
-module:hook("message/host", handle_to_domain, -1);
-module:hook("presence/host", handle_to_domain, -1);
+module:hook("presence/full", attempt_room_creation, -1)
+module:hook("presence/bare", attempt_room_creation, -1)
+module:hook("presence/host", attempt_room_creation, -1)
 
-hosts[module.host].send = function(stanza) -- FIXME do a generic fix
-       if stanza.attr.type == "result" or stanza.attr.type == "error" then
-               module:send(stanza);
-       else error("component.send only supports result and error stanzas at the moment"); end
+for event_name, method in pairs {
+       -- Normal room interactions
+       ["iq-get/bare/http://jabber.org/protocol/disco#info:query"] = "handle_disco_info_get_query" ;
+       ["iq-get/bare/http://jabber.org/protocol/disco#items:query"] = "handle_disco_items_get_query" ;
+       ["iq-set/bare/http://jabber.org/protocol/muc#admin:query"] = "handle_admin_query_set_command" ;
+       ["iq-get/bare/http://jabber.org/protocol/muc#admin:query"] = "handle_admin_query_get_command" ;
+       ["iq-set/bare/http://jabber.org/protocol/muc#owner:query"] = "handle_owner_query_set_to_room" ;
+       ["iq-get/bare/http://jabber.org/protocol/muc#owner:query"] = "handle_owner_query_get_to_room" ;
+       ["message/bare"] = "handle_message_to_room" ;
+       ["presence/bare"] = "handle_presence_to_room" ;
+       -- Host room
+       ["iq-get/host/http://jabber.org/protocol/disco#info:query"] = "handle_disco_info_get_query" ;
+       ["iq-get/host/http://jabber.org/protocol/disco#items:query"] = "handle_disco_items_get_query" ;
+       ["iq-set/host/http://jabber.org/protocol/muc#admin:query"] = "handle_admin_query_set_command" ;
+       ["iq-get/host/http://jabber.org/protocol/muc#admin:query"] = "handle_admin_query_get_command" ;
+       ["iq-set/host/http://jabber.org/protocol/muc#owner:query"] = "handle_owner_query_set_to_room" ;
+       ["iq-get/host/http://jabber.org/protocol/muc#owner:query"] = "handle_owner_query_get_to_room" ;
+       ["message/host"] = "handle_message_to_room" ;
+       ["presence/host"] = "handle_presence_to_room" ;
+       -- Direct to occupant (normal rooms and host room)
+       ["presence/full"] = "handle_presence_to_occupant" ;
+       ["iq/full"] = "handle_iq_to_occupant" ;
+       ["message/full"] = "handle_message_to_occupant" ;
+} do
+       module:hook(event_name, function (event)
+               local origin, stanza = event.origin, event.stanza;
+               local room = get_room_from_jid(jid_bare(stanza.attr.to))
+               if room == nil then
+                       origin.send(st.error_reply(stanza, "cancel", "not-allowed"));
+                       return true;
+               end
+               return room[method](room, origin, stanza);
+       end, -2)
 end
 
 hosts[module:get_host()].muc = { rooms = rooms };
@@ -199,27 +217,14 @@ module.restore = function(data)
        hosts[module:get_host()].muc = { rooms = rooms };
 end
 
-function shutdown_room(room, stanza)
-       for nick, occupant in pairs(room._occupants) do
-               stanza.attr.from = nick;
-               for jid in pairs(occupant.sessions) do
-                       stanza.attr.to = jid;
-                       room:_route_stanza(stanza);
-                       room._jid_nick[jid] = nil;
-               end
-               room._occupants[nick] = nil;
-       end
-end
 function shutdown_component()
        if not saved then
-               local stanza = st.presence({type = "unavailable"})
-                       :tag("x", {xmlns = "http://jabber.org/protocol/muc#user"})
-                               :tag("item", { affiliation='none', role='none' }):up()
+               local x = st.stanza("x", {xmlns = "http://jabber.org/protocol/muc#user"})
                                :tag("status", { code = "332"}):up();
                for roomjid, room in pairs(rooms) do
-                       shutdown_room(room, stanza);
+                       room:clear(x);
                end
-               shutdown_room(host_room, stanza);
+               host_room:clear(x);
        end
 end
 module.unload = shutdown_component;