Changeset 10

Timestamp:

09/23/08 19:40:39 (2 years ago)

Author:

twidi

Message:

ajout d alertes sur la ram utilisee

Files:

• sys_alive.conf (modified) (2 diffs)
• sys_alive.pl (modified) (5 diffs)

sys_alive.conf

@@ -72 +72 @@
-# liste des alertes (commenter la ligne pour pas d'alerte)
-%seuil_alertes = (
+        #'ram_used' => 1000000, # alerte quand la ram reellement utilisee dépasse cette valeur
-        'swap' => 32000,     # alerte quand le swap dépasse cette valeur (1/16 de la ram)
-        'load_average' => 4, # alerte quand le load average dépasse cette valeur
@@ -79 +80 @@
-# ces alertes vont etre utilisées pour stopper certains démons qd ils atteindront ces seuils
-%seuil_alertes_niveau2 = (
+        #'ram_used' => 1500000, # alerte quand la ram reellement utilisee dépasse cette valeur
-        'swap' => 128000,     # alerte quand le swap dépasse cette valeur (1/4 de la ram ?)
-        'load_average' => 20, # alerte quand le load average dépasse cette valeur

sys_alive.pl

@@ -1 +1 @@
-#!/usr/bin/perl
-###############################################################
-2
+3
-###############################################################
-#    Programme de surveillance de serveur web sous Linux      #
@@ -28 +28 @@
-###############################################################
-# Historique :                                                #
+# v 1.5.3: 2008-09-23 : ajout d'alertes sur la ram utilisee   #
-# v 1.5.2: 2007-11-26 : meilleure gestion du brute stop       #
-#                       et on ne kill pas sys_alive !!        #
@@ -114 +115 @@
-
-# variables globales
-2
+3
-my $arg = lc(shift(@ARGV));
-if (!$main::logfile) { $main::logfile = $main::rep_log.'/sys_alive.log'; }
@@ -215 +216 @@
-                        } # fin de if swap
-
+                        # gestion de l'alerte ram_used
+                        if ($main::seuil_alertes{'ram_used'}) {
+                                if ($data{'ram_reelle'} > $main::seuil_alertes{'ram_used'}) { # en cas de dépassement
+                                        push @alertes, 'ram_used';
+                                        WriteLog("Seuil 1 de la ram réelle dépassé : $data{'ram_reelle'} > $main::seuil_alertes{'ram_used'}");
+                                } # fin de if data > seuil
+                        } # fin de if ram_used
+
-                        # gestion de l'alerte load_average
-                        if ($main::seuil_alertes{'load_average'}) {
@@ -253 +262 @@
-                                } # fin de if data > seuil
-                        } # fin de if swap
+
+                        # gestion de l'alerte ram_used
+                        if ($main::seuil_alertes_niveau2{'ram_used'}) {
+                                if ($data{'ram_reelle'} > $main::seuil_alertes_niveau2{'ram_used'}) { # en cas de dépassement
+                                        if (!$alertes_niveau2) { unshift @alertes, '--ALERTE--'; }
+                                        $alertes_niveau2++;
+                                        $alerte_importante = 1;
+                                        WriteLog("Seuil 2 de la ram reelle dépassé : $data{'ram_reelle'} > $main::seuil_alertes_niveau2{'ram_used'}");
+                                } # fin de if data > seuil
+                        } # fin de if ram_used
-
-                        # gestion de l'alerte load_average