From f58d03c12e1160f40a7c38b61b0b6a47a1bc6a1b Mon Sep 17 00:00:00 2001 From: Evgeniy Khramtsov Date: Mon, 10 May 2010 19:37:37 +1000 Subject: new option ldap_tls_verify is added (EJAB-1229) --- src/eldap/eldap_pool.erl | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) (limited to 'src/eldap/eldap_pool.erl') diff --git a/src/eldap/eldap_pool.erl b/src/eldap/eldap_pool.erl index 2331b2c05..ed03692e7 100644 --- a/src/eldap/eldap_pool.erl +++ b/src/eldap/eldap_pool.erl @@ -49,18 +49,20 @@ search(PoolName, Opts) -> modify_passwd(PoolName, DN, Passwd) -> do_request(PoolName, {modify_passwd, [DN, Passwd]}). -start_link(Name, Hosts, Backups, Port, Rootdn, Passwd, Encrypt) -> +start_link(Name, Hosts, Backups, Port, Rootdn, Passwd, Opts) -> PoolName = make_id(Name), pg2:create(PoolName), - lists:foreach(fun(Host) -> - ID = erlang:ref_to_list(make_ref()), - case catch eldap:start_link(ID, [Host|Backups], Port, Rootdn, Passwd, Encrypt) of - {ok, Pid} -> - pg2:join(PoolName, Pid); - _ -> - error - end - end, Hosts). + lists:foreach( + fun(Host) -> + ID = 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); + _ -> + error + end + end, Hosts). %%==================================================================== %% Internal functions -- cgit v1.2.3