aboutsummaryrefslogtreecommitdiffstats
path: root/clients
diff options
context:
space:
mode:
Diffstat (limited to 'clients')
-rwxr-xr-xclients/smanagrun.pl7
1 files changed, 6 insertions, 1 deletions
diff --git a/clients/smanagrun.pl b/clients/smanagrun.pl
index a68edf8..30a702d 100755
--- a/clients/smanagrun.pl
+++ b/clients/smanagrun.pl
@@ -127,6 +127,11 @@ while (1) {
waitpid($ssh->{pid}, 0);
$sunlock->execute($switch->{sysname});
};
- warn $@ if $@;
+ if ($@) {
+ warn $@;
+ $sdelay->execute($@ . ", delaying...", $switch->{sysname});
+ $sunlock->execute($switch->{sysname});
+ $dbh->commit();
+ }
}