* src/odbc/ejabberd_odbc.erl: Reconnect on ODBC connection closing

SVN Revision: 502

diff --git a/ChangeLog b/ChangeLog
index 5e8ef8cf9a68e918afcd1ca9014e5cc8f1cd58f6..918cecc55a0a1dec0b83bd9ddfe09864acf4340a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-02-08  Alexey Shchepin  <alexey@sevcom.net>
+
+       * src/odbc/ejabberd_odbc.erl: Reconnect on ODBC connection closing
+
 2006-02-07  Mickael Remond  <mickael.remond@process-one.net>
 
        * src/ejabberd_auth.erl: plugin authentication modules can now

diff --git a/src/odbc/ejabberd_odbc.erl b/src/odbc/ejabberd_odbc.erl
index 2be88c6bf420f430a2e1a4b65631d1a3767cf5f0..b0776c5cb357505342b419bdbe090f6fae0501d8 100644 (file)
--- a/src/odbc/ejabberd_odbc.erl
+++ b/src/odbc/ejabberd_odbc.erl
@@ -223,6 +223,7 @@ execute_transaction(State, F, NRestarts) ->
 odbc_connect(SQLServer) ->
     case odbc:connect(SQLServer,[{scrollable_cursors, off}]) of
        {ok, Ref} -> 
+           erlang:monitor(process, Ref),
            {ok, #state{db_ref = Ref, db_type = odbc}};
        {error, Reason} ->
            ?ERROR_MSG("ODBC connection (~s) failed: ~p~n",