From 72f79dcd924420e9f3237c263c22f97ef36fba06 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Sun, 6 Apr 2014 12:01:57 +0200 Subject: Support Postgres connections over UNIX domain sockets (set host to undef). --- include/nms.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'include/nms.pm') 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; } -- cgit v1.2.3