Question sur une variable d'un script
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 :roll: et sa m'énerve vraiment de pas comprendre comment elle peux arriver à tout faire. Je vous laisse juger par vous même :
Code:
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; |
