Signed-off-by: Bill Erickson <berickxx@gmail.com>
my $count_only;
my $out_file;
my $limit;
-my $db_user = 'evergreen';
-my $db_host = 'localhost';
-my $db_name = 'evergreen';
-my $db_port = 5432;
-my $db_pass;
+my $db_user = $ENV{PGUSER} || 'evergreen';
+my $db_name = $ENV{PGDATABASE} || 'evergreen';
+my $db_host = $ENV{PGHOST} || 'localhost';
+my $db_port = $ENV{PGPORT} || '5432';
+my $db_pass = $ENV{PGPASSWORD};
my $help;
GetOptions(
my $working_dir = '.',
my $bib_collision_file;
my $verbose;
-my $db_user = 'evergreen';
-my $db_host = 'localhost';
-my $db_name = 'evergreen';
-my $db_port = 5432;
-my $db_pass;
+my $db_user = $ENV{PGUSER} || 'evergreen';
+my $db_name = $ENV{PGDATABASE} || 'evergreen';
+my $db_host = $ENV{PGHOST} || 'localhost';
+my $db_port = $ENV{PGPORT} || '5432';
+my $db_pass = $ENV{PGPASSWORD};
+
my $syslog_facility = 'LOCAL6'; # matches Evergreen gateway
my $syslog_ops = 'pid';
my $syslog_ident = 'BACKSTAGE';