From b8e99a3c05399b1b9f86aa5f3abd314ea267d112 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Wed, 8 Feb 2006 03:55:30 +0000
Subject: * src/odbc/ejabberd_odbc.erl: Reconnect on ODBC connection closing

SVN Revision: 502
---
 src/odbc/ejabberd_odbc.erl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/odbc/ejabberd_odbc.erl b/src/odbc/ejabberd_odbc.erl
index 2be88c6b..b0776c5c 100644
--- 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",
-- 
cgit v1.2.3