Changeset 8

Timestamp:

11/22/07 01:10:13 (3 years ago)

Author:

twidi

Message:

amelioration du mode demon, et sys_alive utilisable dans /etc/init.d et autres /etc/rc.d

Files:

• sys_alive.pl (modified) (16 diffs)

sys_alive.pl

@@ -20 +20 @@
-###############################################################
-# DerniÚre version sur : http://scripts.twidi.com/            #
+# Informations : http://b.twidi.com/index.php/tag/sys_alive   #
-###############################################################
-# Contributeurs :                                             #
@@ -27 +28 @@
-###############################################################
-# Historique :                                                #
+# v 1.5.1: 2007-11-21 : mode "demon" utilisable en tant que   #
+#                       script de démarrage (/etc/init.d)     #
-# v 1.5  : 2007-11-19 : mode "demon", tentatives supll.       #
-#                       d'arrets de demons                    #
@@ -70 +73 @@
-# 2) adapter la configuration dans le fichier sys_alive.conf  #
-# 3) mettre la configuration en chmod 600                     #
-
+
+
+
-#    Lancer, en root : crontab -e                             #
-
+
+
+
+
+
+
+
-###############################################################
-
@@ -80 +91 @@
-use File::Pid;
-
-Proc::Daemon::Init;
-
-#------------------------------------------------------------------------------#
-# répertoire des données : remplacer *éventuellement* GetLocalRep() par
-# le répertoires où est stocké le fichier de configuration, uniquement s'il ne
-
+
+
-
-my $rep_conf = GetLocalRep();
@@ -94 +104 @@
-#------------------------------------------------------------------------------#
-# fichier de configuration
+die 'Fichier conf non trouvé' if ! -e $rep_conf.'/sys_alive.conf';
-require($rep_conf.'/sys_alive.conf');
-
@@ -101 +112 @@
-
-# variables globales
-
+.1
-my $arg = lc(shift(@ARGV));
-if (!$main::logfile) { $main::logfile = $main::rep_log.'/sys_alive.log'; }
@@ -113 +124 @@
-);
-
+my $demon_running = demon_running();
+my $mode_demon_actif = $main::mode_demon{'actif'} || $demon_running;
+
-my $term = $ENV{'TERM'} ? '' : 'TERM=vt100; export TERM;'; # on simule un terminal si la variable d'environnement n'est pas définie
-
@@ -118 +132 @@
-if ($arg eq 'stop') {
-        SetInfo('stopped', 1);
-
+
+
+
+
+
+
+
+
+
-} elsif ($arg eq 'start') {
-        SetInfo('stopped', 0);
-
-
-
-
+
+
+
+
+
+
+
+
-        mode_demon();
-} else {
@@ -132 +158 @@
-# mode demon
-sub mode_demon {
-
+
+
+
-        $pid{'obj'} = File::Pid->new({
-                file => $pid{'file'},
@@ -138 +166 @@
-        });
-
-        if (-e $pid{'file'}) {
-                my $current_pid;
-                eval { $current_pid = $pid{'obj'}->running(); };
-                WriteLog('Erreur : ProblÚme en accédant au fichier pid : '.$@, 1) if $@;
-                WriteLog('Erreur : Sys_alive est déjà lancé en mode démon (pid='.$current_pid.')', 1) if $current_pid;
-        }
-
-        if ($pid{'value'} = $pid{'obj'}->write()) {
-                WriteLog('Sys_alive lancé en mode démon (pid='.$pid{'value'}.')');
@@ -152 +173 @@
-
-        while(1) {
+                %infos = LireFichier();
+                last if $infos{'stopped'};
-                sys_alive();
-                sleep($main::mode_demon{'wait'} || 60);
@@ -170 +193 @@
-        my %process;
-
-        %infos = LireFichier();
-        # on ne vas gérer le tout que si sys_alive n'est pas stoppé
-        if (!$infos{'stopped'}) {
@@ -465 +487 @@
---
-Mail envoyé par sys_alive.pl, programme de surveillance serveur v$version
-
+
-ENDFINMAIL
-
@@ -617 +639 @@
-sub WriteLog {
-        my ($texte, $die) = @_;
+        print $texte."\n" if $die;
-        LockFichier($main::logfile, 1);
-        my %d = GetTime();
@@ -624 +647 @@
-        close(LOG);
-        LockFichier($main::logfile, 0);
-die
+exit 1
-        return 1;
-}
@@ -737 +760 @@
-# =================================================================
-
+# test si un demon sys_alive tourne deja
+sub demon_running {
+        $pid{'obj'} = File::Pid->new({
+                file => $pid{'file'},
+                pid  => $$,
+        });
+
+        my $current_pid;
+        if (-e $pid{'file'}) {
+                eval { $current_pid = $pid{'obj'}->running(); };
+                WriteLog('Erreur : ProblÚme en accédant au fichier pid : '.$@, 1) if $main::mode_demon{'actif'} and $@;
+        }
+
+        return $current_pid;
+} # fin de demon_running
+
-# END : appelé à la fin du script : supprime le fichier pid si besoin
-sub END {
-ain::mode_demon{'actif'}
+ode_demon_actif
-                $pid{'obj'}->remove();
+                Execute('kill -15 '.$pid{'value'}) if $pid{'value'} != $$;
-                WriteLog('Sys_alive stoppé en mode démon (pid='.$pid{'value'}.')');
-        }