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

[gruntmaster-data.git] / gruntmaster-problem

diff --git a/gruntmaster-problem b/gruntmaster-problem
index afcb1be7135e065fdc342d694a0297bd328f0f11..b942897ac41d12388c93b4427474dd0c34a94db0 100755 (executable)
--- a/gruntmaster-problem
+++ b/gruntmaster-problem
@@ -11,7 +11,8 @@ use Getopt::Long qw/:config require_order/;
 
 ##################################################
 
-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