From: Jérôme Sautret <jerome.sautret@process-one.net>
Date: Mon, 13 Oct 2008 15:25:30 +0000 (+0000)
Subject: * src/odbc/ejabberd_odbc.erl: log MySQL driver messages.
X-Git-Tag: v2.1.0~18^2~560
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7c736a5ea0f7d9fb707ac3d7946722b815fd6dd0;p=ejabberd

* src/odbc/ejabberd_odbc.erl: log MySQL driver messages.

SVN Revision: 1652
---

diff --git a/ChangeLog b/ChangeLog
index 53b1fa077..b7fa9fef1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-10-13  Jerome Sautret  <jerome.sautret@process-one.net>
+
+	* src/odbc/ejabberd_odbc.erl: log MySQL driver messages.
+
 2008-10-13  Badlop  <badlop@process-one.net>
 
 	* src/web/ejabberd_web_admin.erl: When requesting page of
diff --git a/src/odbc/ejabberd_odbc.erl b/src/odbc/ejabberd_odbc.erl
index da1b01e2c..dfc1ee6c8 100644
--- a/src/odbc/ejabberd_odbc.erl
+++ b/src/odbc/ejabberd_odbc.erl
@@ -318,8 +318,7 @@ pgsql_item_to_odbc(_) ->
 %% part of init/1
 %% Open a database connection to MySQL
 mysql_connect(Server, Port, DB, Username, Password, StartInterval) ->
-    NoLogFun = fun(_Level,_Format,_Argument) -> ok end,
-    case mysql_conn:start(Server, Port, Username, Password, DB, NoLogFun) of
+    case mysql_conn:start(Server, Port, Username, Password, DB, fun log/3) of
 	{ok, Ref} ->
 	    erlang:monitor(process, Ref),
             mysql_conn:fetch(Ref, ["set names 'utf8';"], self()),
@@ -359,3 +358,14 @@ mysql_item_to_odbc(Columns, Recs) ->
 % perform a harmless query on all opened connexions to avoid connexion close.
 keep_alive(PID) ->
     gen_server:call(PID, {sql_query, ?KEEPALIVE_QUERY}, 60000).
+
+% log function used by MySQL driver
+log(Level, Format, Args) ->
+    case Level of
+	debug ->
+	    ?DEBUG(Format, Args);
+	normal ->
+	    ?INFO_MSG(Format, Args);
+	error ->
+	    ?ERROR_MSG(Format, Args)
+    end.