From 0f4ee703c6d72b689284908151616371dfde4e38 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micka=C3=ABl=20R=C3=A9mond?=
 <mickael.remond@process-one.net>
Date: Fri, 7 Mar 2008 14:49:06 +0000
Subject: [PATCH] * src/eldap/eldap_pool.erl: Improved logging

SVN Revision: 1220
---
 ChangeLog                | 6 +++++-
 src/eldap/eldap_pool.erl | 4 ++++
 2 files changed, 9 insertions(+), 1 deletion(-)

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