X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=gruntmaster-job;h=0b99cb715c655d08c4a658298d9bec8c98a9b2cf;hb=17d4928116ac07ae3a5cabd5790130de5f244228;hp=126e1d0dea36772fb0d168410f43f36310cc1197;hpb=4af3660592d7b245e02e48b146d0a950b7f54ffc;p=gruntmaster-data.git

diff --git a/gruntmaster-job b/gruntmaster-job
index 126e1d0..0b99cb7 100755
--- 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
@@ -31,7 +32,8 @@ END
 }
 
 sub cmd_rm{
-	$db->job(shift)->delete
+	my ($id) = @_;
+	$db->job($id)->delete;
 }
 
 sub cmd_get{
@@ -41,11 +43,12 @@ sub cmd_get{
 
 sub cmd_set{
 	my ($id, %values) = @_;
-	$db->job($id)->update(\%values)
+	$db->job($id)->update(\%values);
 }
 
 sub cmd_rerun{
-	$db->job(shift)->rerun
+	my ($id) = @_;
+	$db->job($id)->rerun;
 }
 
 ##################################################