diff options
| -rwxr-xr-x | bin/iris-delay-stats | 2 | ||||
| -rw-r--r-- | index.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/bin/iris-delay-stats b/bin/iris-delay-stats index 1083348..9ca42d5 100755 --- a/bin/iris-delay-stats +++ b/bin/iris-delay-stats @@ -13,7 +13,7 @@ our $VERSION = '0.00'; my $station = shift or die("Usage: $0 <station> [database]\n"); my $dbname = shift // 'dbdb'; -my $dbh = DBI->connect( "dbi:Pg:dbname=$dbname;host=localhost;port=5432", +my $dbh = DBI->connect( "dbi:Pg:dbname=$dbname;host=localhost;port=5433", 'dbdb', $ENV{DBDB_PASSWORD} ); sub int_or_undef { @@ -19,7 +19,7 @@ app->attr( my $dbname = 'dbdb'; my $dbh - = DBI->connect( "dbi:Pg:dbname=$dbname;host=localhost;port=5432", + = DBI->connect( "dbi:Pg:dbname=$dbname;host=localhost;port=5433", 'dbdb', $ENV{DBDB_PASSWORD}, { RaiseError => 1 } ); return $dbh; |