Hi again. I've just

Anonymous — Mon, 07 Jan 2008 16:30:23 +0000

Hi again.

I've just discovered the mod_filter and modified it a bit. Not sure about the speed, but seems cool =)

Am I right in the way I handle "room joins" ?

-module(mod_muc_access_filter).

-behaviour(gen_mod).

-export([start/2, stop/1, filter_packet/1]).

-include("ejabberd.hrl").
-include("jlib.hrl").

start(_Host, _Opts) ->
    ejabberd_hooks:add(filter_packet, global, ?MODULE, filter_packet, 100).

stop(_Host) ->
    ejabberd_hooks:delete(filter_packet, global, ?MODULE, filter_packet, 100).

filter_packet(drop) ->
    drop;
filter_packet({From, To, Packet} = Input) ->
    MucHostname = "conference." ++ ?MYNAME, % TODO:
    if 
	To#jid.server == MucHostname ->
	    {_, PT, _, _} = Packet,
	    if 
		PT == "presence" ->		    
		    case can_join(To#jid.user, From#jid.luser) of
			allow ->
			    Input;
			_ ->
			    drop
		    end
	    end,
	    % io:format("From: ~p~nTo: ~p~nPacket: ~p~n", [From, To, Packet]),
	    Input;
	true ->
	    Input
    end. 

can_join(Room, Who) ->
    io:format("Room: ~p~nWho: ~p~n", [Room, Who]),
    % TODO: Call web-service or execute the SQL query
    allow.

ejabberd - Comments for "How to implement my own access control to the MUC rooms ?"

Hi again. I've just