Changed runcheckdir so that failure and success only trigger once per change
close CHECK;
my $exitstatus = $? >> 8;
-if ($exitstatus == 0) {
- foreach my $command (@{$on{success}}) {
- do_command $command;
- }
-} else {
- foreach my $command (@{$on{failure}}) {
- do_command $command;
- }
+my $command;
+if ($exitstatus == 0 && $oldstatus != 0) {
+ do_command($command) foreach $command @{$on{success}};
+}
+if ($exitstatus != 0 && $oldstatus == 0) {
+ do_command($command) foreach $command @{$on{failure}};
}
if ($exitstatus != $oldstatus) {
- foreach my $command(@{$on{change}}) {
- do_command $command;
- }
+ do_command($command) foreach $command @{$on{change}};
}
open STATUS, ">$dir/checkstatus";