Allow override of DB to use via environment variable PGCOMMITFEST_DB.

diff --git a/perl-lib/PgCommitFest/Request.pm b/perl-lib/PgCommitFest/Request.pm
index ae38399a5e8b00486155aa931c74901bf43f2fc0..2a2893d87251f85deddd776048cc4a51089f9117 100644 (file)
--- a/perl-lib/PgCommitFest/Request.pm
+++ b/perl-lib/PgCommitFest/Request.pm
@@ -12,8 +12,9 @@ die "Must set PGCOMMITFEST_ROOT to root directory of installation!\n"
 our $ROOT = $ENV{'PGCOMMITFEST_ROOT'};
 our $template = Template->new({ 'INCLUDE_PATH' => $ROOT . '/template',
        'FILTERS' => { 'htmlsafe' => \&PgCommitFest::WebControl::escape } });
-our $PG = 'dbi:Pg:dbname=pgcommitfest';
-our $PGUSERNAME = 'pgcommitfest';
+our $PG = defined $ENV{'PGCOMMITFEST_DB'} ? $ENV{'PGCOMMITFEST_DB'}
+       : 'dbi:Pg:dbname=pgcommitfest user=pgcommitfest';
+our $PGUSERNAME = '';
 our $PGPASSWORD = '';
 $CGI::POST_MAX = 65536;
 $CGI::DISABLE_UPLOADS = 1;  # No need for uploads at present.