1 files changed, 0 insertions, 86 deletions
diff --git a/src/eldap/eldap_pool.erl b/src/eldap/eldap_pool.erl
deleted file mode 100644
index 1f52999ef..000000000
--- a/src/eldap/eldap_pool.erl
+++ /dev/null
@@ -1,86 +0,0 @@
-%%%-------------------------------------------------------------------
-%%% File    : eldap_pool.erl
-%%% Author  : Evgeniy Khramtsov <xram@jabber.ru>
-%%% Purpose : LDAP connections pool
-%%% Created : 12 Nov 2006 by Evgeniy Khramtsov <xram@jabber.ru>
-%%%
-%%%
-%%% ejabberd, Copyright (C) 2002-2013   ProcessOne
-%%%
-%%% This program is free software; you can redistribute it and/or
-%%% modify it under the terms of the GNU General Public License as
-%%% published by the Free Software Foundation; either version 2 of the
-%%% License, or (at your option) any later version.
-%%%
-%%% This program is distributed in the hope that it will be useful,
-%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
-%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-%%% General Public License for more details.
-%%%
-%%% You should have received a copy of the GNU General Public License
-%%% along with this program; if not, write to the Free Software
-%%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-%%% 02111-1307 USA
-%%%
-%%%-------------------------------------------------------------------
-
--module(eldap_pool).
-
--author('xram@jabber.ru').
-
-%% API
--export([start_link/7, bind/3, search/2,
-	 modify_passwd/3]).
-
--include("ejabberd.hrl").
-
-%%====================================================================
-%% API
-%%====================================================================
-bind(PoolName, DN, Passwd) ->
-    do_request(PoolName, {bind, [DN, Passwd]}).
-
-search(PoolName, Opts) ->
-    do_request(PoolName, {search, [Opts]}).
-
-modify_passwd(PoolName, DN, Passwd) ->
-    do_request(PoolName, {modify_passwd, [DN, Passwd]}).
-
-start_link(Name, Hosts, Backups, Port, Rootdn, Passwd,
-	   Opts) ->
-    PoolName = make_id(Name),
-    pg2:create(PoolName),
-    lists:foreach(fun (Host) ->
-			  ID = list_to_binary(erlang:ref_to_list(make_ref())),
-			  case catch eldap:start_link(ID, [Host | Backups],
-						      Port, Rootdn, Passwd,
-						      Opts)
-			      of
-			    {ok, Pid} -> pg2:join(PoolName, Pid);
-			    Err ->
-                                  ?INFO_MSG("Err = ~p", [Err]),
-                                  error
-			  end
-		  end,
-		  Hosts).
-
-%%====================================================================
-%% Internal functions
-%%====================================================================
-do_request(Name, {F, Args}) ->
-    case pg2:get_closest_pid(make_id(Name)) of
-      Pid when is_pid(Pid) ->
-	  case catch apply(eldap, F, [Pid | Args]) of
-	    {'EXIT', {timeout, _}} ->
-		?ERROR_MSG("LDAP request failed: timed out", []);
-	    {'EXIT', Reason} ->
-		?ERROR_MSG("LDAP request failed: eldap:~p(~p)~nReason: ~p",
-			   [F, Args, Reason]),
-		{error, Reason};
-	    Reply -> Reply
-	  end;
-      Err -> Err
-    end.
-
-make_id(Name) ->
-    jlib:binary_to_atom(<<"eldap_pool_", Name/binary>>).