add pgsql driver monitoring

SVN Revision: 1200

2 files changed, 5 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index cd45c1bea..3de74a8b8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-19  Christophe Romain <christophe.romain@process-one.net>
+
+	* src/odbc/ejabberd_odbc.erl: add pgsql driver monitoring
+
 2008-02-19  Mickael Remond <mremond@process-one.net>
 
 	* src/ejabberd_config.erl: dirty_get_registered_users now
diff --git a/src/odbc/ejabberd_odbc.erl b/src/odbc/ejabberd_odbc.erl
index 4f0f0ded1..3a028359e 100644
--- a/src/odbc/ejabberd_odbc.erl
+++ b/src/odbc/ejabberd_odbc.erl
@@ -266,6 +266,7 @@ odbc_connect(SQLServer) ->
 pgsql_connect(Server, Port, DB, Username, Password) ->
     case pgsql:connect(Server, DB, Username, Password, Port) of
 	{ok, Ref} ->
+	    erlang:monitor(process, Ref),
 	    {ok, #state{db_ref = Ref, db_type = pgsql}};
 	{error, Reason} ->
 	    ?ERROR_MSG("PostgreSQL connection failed: ~p~n", [Reason]),