diff options
Diffstat (limited to 'src/eldap/eldap_pool.erl')
| -rw-r--r-- | src/eldap/eldap_pool.erl | 22 |
1 files changed, 12 insertions, 10 deletions
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 |