Fix job_list error

[gruntmaster-data.git] / gruntmaster-job

diff --git a/gruntmaster-job b/gruntmaster-job
index 126e1d0dea36772fb0d168410f43f36310cc1197..47bb2ab301eb1ceb7472bd54375f6c4d087414eb 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,10 @@ END
 }
 
 sub cmd_rm{
-       $db->job(shift)->delete
+       my ($id) = @_;
+       $db->job($id)->delete;
+       purge '/log/';
+       purge "/log/$id";
 }
 
 sub cmd_get{
@@ -41,11 +45,16 @@ sub cmd_get{
 
 sub cmd_set{
        my ($id, %values) = @_;
-       $db->job($id)->update(\%values)
+       $db->job($id)->update(\%values);
+       purge '/log/';
+       purge "/log/$id";
 }
 
 sub cmd_rerun{
-       $db->job(shift)->rerun
+       my ($id) = @_;
+       $db->job($id)->rerun;
+       purge '/log/';
+       purge "/log/$id";
 }
 
 ##################################################