Bonjour,

J'aurais voulu savoir à quoi correspondais le $1 dans ce script (il permet de savoir si le fichier à plus de un jour, et il permet également de savoir si il n'y a pas de fichiers copiés) J'ai l'impression que cette variable est magique et sa m'énerve vraiment de pas comprendre comment elle peux arriver à tout faire. Je vous laisse juger par vous même :



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#
#						0 : OK
#						1 : WARNING
#						2 : CRITICAL
#
#     
#
# ====================================================================================
#
# PARAMETRES D'APPEL : rien
#
# ====================================================================================
 
use strict;
 
my $FicLog = "";
 
my $Infile = 'C:\applinat\Nagios\plugins\local\am_check_pabxcav.ini';
open IN, "< $Infile" or die "Can't open $Infile : $!";
($FicLog) = <IN>;
chomp($FicLog);
 
# Date et Heure du Jour
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday) = localtime();
$mon++;
$year += 1900;
my $Date_W=sprintf("%02d/%02d/%04d",$day,$mon,$year);
 
if (!open(LOG, $FicLog)) {
	print "ERREUR !!! IMPOSSIBLE D'OUVRIR LE FICHIER: $FicLog";
	exit 2;
}
 
while (<LOG>) {
  chomp;
  if (/ERREUR/) {
    print "$_";
    exit 2;
  } elsif (/DEBUT DE LA COPIE DES SAUVEGARDES DU PABX CAV.*(..\/..\/....)/) {
    # Control de la date
    if ($1 ne $Date_W) {
      print "LE FICHIER LOG A PLUS D'UN JOUR - VERIFIER LA TACHE PLANIFIE SUR LE SERVEUR";
      exit 2
    }
  } elsif (/([0-9]+) fichier/) {
  	if ($1 eq "0") {
  		print "AUCUN FICHIER N'A ETE COPIE";
  		exit 1;
  	}
  } elsif (/FIN DE LA COPIE DES SAUVEGARDES DU PABX DU CAV/) {
  	print "$_";
  	exit 0;
  }
}
close (LOG);
print "PROBLEME SUR LA RECUPERATION DES SAUVEGARDES PABX DU CAV SUR LE W11130113BCKCAV";
exit 2;