Changeset 6

Timestamp:

11/20/07 01:56:15 (1 year ago)

Author:

twidi

Message:

tentatives supplementaires pour tuer un demon si un stop classique n a pas reussi

Files:

• sys_alive.pl (modified) (2 diffs)

sys_alive.pl

@@ -27 +27 @@
-###############################################################
-# Historique :                                                #
-
+
+
-# v 1.2.8: 2007-05-07 : Séparation rép conf, data & log       #
-#                       + affichage "ps faux" au lieu de top  #
@@ -259 +260 @@
-                                                WriteLog("Alerte de niveau 2 : arrêt de $demon pour $main::demons_to_stop{$demon} secondes");
-                                                Execute($main::demons_stop{$demon});
+                                                # essais supplémentaires si encore des traces
+                                                my $essai = 1;
+                                                while ((my $top2 = `$term top b n 1`) =~ /\s$demon\s*$/m) {
+                                                        WriteLog("Trop d'essai pour forcer l'arrêt de $demon qui semble tourner encore"), last if $essai > 5;
+                                                        my @pids; map { push @pids, $1 if /^\s*(\d+).+\s$demon\s*$/} split(/\n/, $top2);
+                                                        if (@pids+0) {
+                                                                WriteLog("Suite alerte de niveau 2 : force arrêt de $demon, essai $essai (kill @pids)");
+                                                                Execute('kill -9 '.join(' ', @pids));
+                                                        }
+                                                        $essai++;
+                                                }
-                                        } else {
-                                                WriteLog("Alerte de niveau 2 : impossible de stopper $demon car il n'est pas lancé");