From 0d2a8cd04f3f360ee76ba68336a8e156c7cb29cc Mon Sep 17 00:00:00 2001 From: Evgeniy Khramtsov Date: Wed, 17 Nov 2010 17:14:47 +0900 Subject: [PATCH] Do not print full error message when LDAP timeout occurs (EJAB-1324) --- src/eldap/eldap_pool.erl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/eldap/eldap_pool.erl b/src/eldap/eldap_pool.erl index ed03692e7..c8f224824 100644 --- a/src/eldap/eldap_pool.erl +++ b/src/eldap/eldap_pool.erl @@ -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]),