sub cmd_rm{
my ($id) = @_;
$db->job($id)->delete;
- purge '/log/';
- purge "/log/$id";
}
sub cmd_get{
sub cmd_set{
my ($id, %values) = @_;
$db->job($id)->update(\%values);
- purge '/log/';
- purge "/log/$id";
}
sub cmd_rerun{
my ($id) = @_;
$db->job($id)->rerun;
- purge '/log/';
- purge "/log/$id";
}
##################################################