Do not print full error message when LDAP timeout occurs (EJAB-1324)

This commit is contained in:
Evgeniy Khramtsov 2010-11-17 17:14:47 +09:00
parent 549f1029a6
commit 0ccbd7e3f2
1 changed files with 2 additions and 0 deletions

View File

@ -71,6 +71,8 @@ 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]),