Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/processone/ejabberd.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlexey Shchepin <alexey@process-one.net>2006-02-08 06:55:30 +0300
committerAlexey Shchepin <alexey@process-one.net>2006-02-08 06:55:30 +0300
commitb8e99a3c05399b1b9f86aa5f3abd314ea267d112 (patch)
tree0012eeb35595440e9fa5d63ca67645d7fa1b194e /src
parent2f0cf8bce8d7cb7a6dc8d1c84d946340dec1b1b1 (diff)
* src/odbc/ejabberd_odbc.erl: Reconnect on ODBC connection closing
SVN Revision: 502
Diffstat (limited to 'src')
-rw-r--r--src/odbc/ejabberd_odbc.erl1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/odbc/ejabberd_odbc.erl b/src/odbc/ejabberd_odbc.erl
index 2be88c6bf..b0776c5cb 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",