2 |
use strict; |
use strict; |
3 |
use DBI; |
use DBI; |
4 |
|
|
5 |
my $dbhost = $ENV{'dbhost'} || '127.0.0.1'; |
my $dbhost = $ENV{'dbhost'} || ''; |
6 |
my $dbname = $ENV{'dbname'} || 'template1'; |
my $dbname = $ENV{'dbname'} || 'template1'; |
7 |
my $dbuser = $ENV{'dbuser'} || 'postgres'; |
my $dbuser = $ENV{'dbuser'} || 'postgres'; |
8 |
my $dbpass = $ENV{'dbpass'} || ''; |
my $dbpass = $ENV{'dbpass'} || ''; |
26 |
exlocks.critical 10 |
exlocks.critical 10 |
27 |
EOF |
EOF |
28 |
} else { |
} else { |
29 |
my $Con = "DBI:Pg:dbname=$dbname;host=$dbhost"; |
my $Con = "DBI:Pg:dbname=$dbname" . ( $dbhost ? ";host=$dbhost" : "" ); |
30 |
my $Dbh = DBI->connect ($Con, |
my $Dbh = DBI->connect ($Con, |
31 |
$dbuser, |
$dbuser, |
32 |
$dbpass, |
$dbpass, |