From: Christian S. <no...@us...> - 2006-09-17 11:04:55
|
Update of /cvsroot/jungerl/jungerl/lib/pgsql/src In directory sc8-pr-cvs6.sourceforge.net:/tmp/cvs-serv1518 Modified Files: pgsql.erl Log Message: Added a way to connect to postgresql on non-standard ports. Patch by: Juhani Rankimies <ju...@ju...> Index: pgsql.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/pgsql/src/pgsql.erl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- pgsql.erl 17 Dec 2005 23:19:57 -0000 1.3 +++ pgsql.erl 17 Sep 2006 09:29:56 -0000 1.4 @@ -8,7 +8,7 @@ %% -module(pgsql). --export([connect/4]). +-export([connect/1, connect/4, connect/5]). -export([squery/2, pquery/3, @@ -16,13 +16,22 @@ prepare/3, unprepare/2, execute/3]). -%% Connect routine. Might be insufficient for your needs because I dont -%% know about your needs. + connect(Host, Database, User, Password) -> - {ok, Db} = pgsql_proto:run([{database, Database}, - {host, Host}, - {user, User}, - {password, Password}]), + connect([{database, Database}, + {host, Host}, + {user, User}, + {password, Password}]). + +connect(Host, Database, User, Password, Port) -> + connect([{database, Database}, + {host, Host}, + {user, User}, + {port, Port}, + {password, Password}]). + +connect(Options) -> + {ok, Db} = pgsql_proto:run(Options), %% Receive startup params or error. receive {pgsql_error, Reason} -> |