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

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

diff --git a/gruntmaster-job b/gruntmaster-job
index 126e1d0dea36772fb0d168410f43f36310cc1197..06e3fe14d44edb51f091df1ad96b0a2a839da13e 100755 (executable)
--- a/gruntmaster-job
+++ b/gruntmaster-job
@@ -8,7 +8,8 @@ use POSIX qw/strftime/;
 
 ##################################################
 
-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

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