* src/eldap/eldap_pool.erl: Improved logging

SVN Revision: 1220

diff --git a/ChangeLog b/ChangeLog
index 8723807807a52cec3b7e8b6a9664ac11b37f9229..e710155d2e584dc5c94040d8dbc4bc0586d6b209 100644 (file)
--- 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 f3aad356fd50b7fb06c4e2b5379e1f88a3c2cd9f..6b6815bfb1610375e1c30fdb4cc96885c64d05d0 100644 (file)
--- 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