Make tools connect to $ENV{GRUNTMASTER_DSN} if it exists

[gruntmaster-data.git] / gruntmaster-contest

diff --git a/gruntmaster-contest b/gruntmaster-contest
index ff121cddaefed32dad808978b4920a381627a33c..856faae6d7698fbc08b396ccb6f07defd7b92444 100755 (executable)
--- a/gruntmaster-contest
+++ b/gruntmaster-contest
@@ -9,7 +9,8 @@ use Date::Parse qw/str2time/;
 
 ##################################################
 
-my $db = Gruntmaster::Data->connect('dbi:Pg:');
+my $dsn = $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:';
+my $db = Gruntmaster::Data->connect($dsn);
 
 sub cmd_help{
        exec perldoc => $0