diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-05-10 19:37:37 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-05-10 19:37:37 +1000 |
| commit | f58d03c12e1160f40a7c38b61b0b6a47a1bc6a1b (patch) | |
| tree | 3efc5d340d385a2660c1c6b69a3445f2d8c46264 /src/eldap/eldap_pool.erl | |
| parent | full support for XEP-0115 v1.5 (EJAB-1223) (EJAB-1189) (diff) | |
new option ldap_tls_verify is added (EJAB-1229)
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 2331b2c0..ed03692e 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 |