aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--src/eldap/eldap_pool.erl4
2 files changed, 9 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 872380780..e710155d2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-07 Mickael Remond <mremond@process-one.net>
+
+ * src/eldap/eldap_pool.erl: Improved logging
+
2008-03-04 Badlop <badlop@process-one.net>
* doc/guide.tex: Improve documentation of host_config
@@ -32,7 +36,7 @@
* src/mod_muc/mod_muc_room.erl (init): Ensure rooms are called
when the process dies due to a linked die (EJAB-536)
-2008-02-27 Mickael Remond <mremond@process-one.net>
+2008-02-27 Mickael Remond <mremond@process-one.net>
* src/ejabberd_check.erl: Separate config loading from
configuration sanity checks (EJAB-533)
diff --git a/src/eldap/eldap_pool.erl b/src/eldap/eldap_pool.erl
index f3aad356f..6b6815bfb 100644
--- a/src/eldap/eldap_pool.erl
+++ b/src/eldap/eldap_pool.erl
@@ -34,6 +34,8 @@
search/2
]).
+-include("ejabberd.hrl").
+
%%====================================================================
%% API
%%====================================================================
@@ -64,6 +66,8 @@ do_request(Name, {F, Args}) ->
Pid when is_pid(Pid) ->
case catch apply(eldap, F, [Pid | Args]) of
{'EXIT', Reason} ->
+ ?ERROR_MSG("LDAP request failed: eldap:~p(~p)~nReason: ",
+ [F, Args, Reason]),
{error, Reason};
Reply ->
Reply