diff options
| author | Steinar H. Gunderson <sgunderson@bigfoot.com> | 2014-04-06 12:01:57 +0200 |
|---|---|---|
| committer | Steinar H. Gunderson <sgunderson@bigfoot.com> | 2014-04-06 12:01:57 +0200 |
| commit | 72f79dcd924420e9f3237c263c22f97ef36fba06 (patch) | |
| tree | 8a547fbf0dd83f79a8b2630b8e3fd3a9ba940208 /include/nms.pm | |
| parent | 5b534fcc5cb0544554938954209419b2ff5d6fdb (diff) | |
Support Postgres connections over UNIX domain sockets (set host to undef).
Diffstat (limited to 'include/nms.pm')
| -rw-r--r-- | include/nms.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/include/nms.pm b/include/nms.pm index 13689a2..49b3cad 100644 --- a/include/nms.pm +++ b/include/nms.pm @@ -19,11 +19,12 @@ BEGIN { } sub db_connect { - my $dbh = DBI->connect("dbi:Pg:" . - "dbname=" . $nms::config::db_name . - ";host=" . $nms::config::db_host, - $nms::config::db_username, - $nms::config::db_password) + my $connstr = "dbi:Pg:dbname=" . $nms::config::db_name; + $connstr .= ";host=" . $nms::config::db_host unless (!defined($nms::config::db_host)); + + my $dbh = DBI->connect($connstr, + $nms::config::db_username, + $nms::config::db_password) or die "Couldn't connect to database"; return $dbh; } |