add pgsql driver monitoring

SVN Revision: 1200

diff --git a/ChangeLog b/ChangeLog
index 2f7710c9c76e650857bd87109996c894811da899..b13c75c669b67ab81ee3542e62b22d3f66a4631a 100644 (file)
--- 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 4f0f0ded1cbe566493c553121ae5699e89335ebf..3a028359e26ad3fdfe3f027eafecc45abcbf17d7 100644 (file)
--- 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]),