Remove now-obsolete purges

[gruntmaster-data.git] / gruntmaster-job

diff --git a/gruntmaster-job b/gruntmaster-job
index 126e1d0dea36772fb0d168410f43f36310cc1197..0b99cb715c655d08c4a658298d9bec8c98a9b2cf 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
@@ -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;
 }
 
 ##################################################