diff options
Diffstat (limited to 'ejabberd-1.1.2/src/cyrsasl_anonymous.erl')
-rw-r--r-- | ejabberd-1.1.2/src/cyrsasl_anonymous.erl | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/ejabberd-1.1.2/src/cyrsasl_anonymous.erl b/ejabberd-1.1.2/src/cyrsasl_anonymous.erl deleted file mode 100644 index 6f05be9d1..000000000 --- a/ejabberd-1.1.2/src/cyrsasl_anonymous.erl +++ /dev/null @@ -1,39 +0,0 @@ -%%%---------------------------------------------------------------------- -%%% File : cyrsasl_anonymous.erl -%%% Author : Magnus Henoch <henoch@dtek.chalmers.se> -%%% Purpose : ANONYMOUS SASL mechanism -%%% Created : 23 Aug 2005 by Magnus Henoch <henoch@dtek.chalmers.se> -%%% Id : $Id$ -%%%---------------------------------------------------------------------- - -%% See http://www.ietf.org/internet-drafts/draft-ietf-sasl-anon-05.txt - --module(cyrsasl_anonymous). --vsn('$Revision$'). - --export([start/1, stop/0, mech_new/3, mech_step/2]). - --behaviour(cyrsasl). - --record(state, {server}). - -start(_Opts) -> - cyrsasl:register_mechanism("ANONYMOUS", ?MODULE, false), - ok. - -stop() -> - ok. - -mech_new(Host, _GetPassword, _CheckPassword) -> - {ok, #state{server = Host}}. - -mech_step(State, _ClientIn) -> - %% We generate a random username: - User = lists:concat([randoms:get_string() | tuple_to_list(now())]), - Server = State#state.server, - - %% Checks that the username is available - case ejabberd_auth:is_user_exists(User, Server) of - true -> {error, "not-authorized"}; - false -> {ok, [{username, User}]} - end. |