Просмотр исходного кода

Merge branch 'devel' of git://github.com/lordmetroid/epgsql into lordmetroid-devel

David N. Welton 10 лет назад
Родитель
Сommit
cac08b9a80
1 измененных файлов с 7 добавлено и 1 удалено
  1. 7 1
      src/epgsql.erl

+ 7 - 1
src/epgsql.erl

@@ -3,7 +3,7 @@
 
 -module(epgsql).
 
--export([connect/2, connect/3, connect/4, connect/5,
+-export([connect/1, connect/2, connect/3, connect/4, connect/5,
          close/1,
          get_parameter/2,
          squery/2,
@@ -57,6 +57,12 @@
                          | {ok, non_neg_integer(), [#column{}], [RowType]}. % UPDATE / INSERT + RETURNING
 
 %% -- client interface --
+connect(Settings) ->
+	Host = proplists:get_value(host, Settings, "localhost"),
+	Username = proplists:get_value(username, Settings, os:getenv("USER")),
+	Password = proplists:get_value(password, Settings, ""),
+	
+	connect(Host, Username, Password, Settings).
 
 connect(Host, Opts) ->
     connect(Host, os:getenv("USER"), "", Opts).