Discussion :

[manu7762323]

Bonne idée le fichier de test, ça fonctionne ! (vu que je développe très rarement j'ai pas ces petits réflexes pratique^^)

Je me doute bien que tu sais déjà ce qu'il va se passer, parce que sinon tu ne me poserai pas la question ainsi

Bon alors j'ai plusieurs résultats :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
root:/opt/nrpe/scripts#./test_new.pl -w 4 -c 5
Swap CRITICAL -- Swap /dev/vg00/lvol2 = 5% - (w:4/c:5 used)
Swap OK -- Swap /dev/vg00/lvol9 = 1% - (w:4/c:5 used)

Je l'ai configuré dans l'interface de supervision pour voir ce que ça donnait parce que je pensais bien qu'il allait y avoir un hic quelque part...effectivement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Checkmultiswap test   CRITICAL 4m 4s 04/12/2009 13:33:00 2 NRPE: Unable to read output

...Unable to read output...grrrr

Ah ben, vu qu'il fait la boucle 2 fois et qu'il y a 2 valeurs différentes, il ne sait pas lire les 2 "exit_codes", c'est ça ?

[Mr6]

Sans l'intégrer, fais un echo $? pour voir le code retour de ton script après exécution.
Le unable to read output est plutot lié à un pb de conf NRPE, style commande mal déclarée dans ton nrpe.cfg, truc dans le genre.

@+
Mr6

[manu7762323]

echo $? donne 0 ...donc l'état de mon $state du 2e passage dans la boucle... je ne sais pas trop comment faire pour qu'il garde le plus mauvais état après les deux passages dans la boucle..

Ben le truc c'est que j'avais déjà une bonne sortie dans l'interface juste avant qu'on fasse cette étape (quand les deux seuils était OK), enfin quand je dis bonne, il y avait juste écrit "Swap OK -- Swap /dev/vg00/lvol9 = 2% - (w:4/c:5 used)" donc uniquement la ligne du 2e passage...

[Mr6]

Donc ne modifier $state que si l'état s'agrave, soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
$state = $exit_codes{'CRITICAL'}; #pourquoi tester puisqu'il n'y a pas plus grave ?
$state = 1 if $state < $exit_codes{'WARNING'};
$state = 0 if $state < $exit_codes{'OK'};

Ha mais tiens, quel est l'état par défaut avant le test ? Que se passe-t-il s'y a un problème dans les données retournées par swapinfo ? (maj de la commande, formatage différent des résultats, etc...)
Ne faudrait-il pas garder la possibilité d'un état UNKNOWN ?

Je te propose plutot ca pour parer à toutes les éventualités :

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
my $state = -1;
# Tests des seuils
foreach my $id (keys (%infos_hash)) {
  if ($infos_hash{$id}->[4] >= $crit_level){
     print "Swap CRITICAL -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:
$crit_level used)\n";
     $state = $exit_codes{'CRITICAL'};
  }
  elsif ($infos_hash{$id}->[4] >= $warn_level){
     print "Swap WARNING -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$
crit_level used)\n";
    $state = 1 if $state < $exit_codes{'WARNING'};
  }
  elsif ($infos_hash{$id}->[4]){
    print "Swap OK -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_l
evel used)\n";
    $state = 0 if $state < $exit_codes{'OK'};
  }
  else {
    print "Swap UNKNOWN -- Swap $id = $infos_hash{$id}->[4] - (seems to be undef... verify check ?)\n";
  }
}
exit $exit_codes{$state};

[manu7762323]

Ah ouai, ça c'est du code de pro

Mais c'est bien que tu m'aies fait chercher et réfléchir, au moins je comprends ton code et pourquoi ça marche mieux que ce que j'ai fait

Dernière chose, Houston, on a un problème ^^

Quand je lance le script en ligne de commande, tout fonctionne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
root:/opt/nrpe/scripts#./check_new.pl -w 3 -c 4
Swap OK -- Swap /dev/vg00/lvol2 = 1% - (w:3/c:4 used)
Swap OK -- Swap /dev/vg00/lvol9 = 2% - (w:3/c:4 used)

Le fichier nrpe.cfg est bien configuré (j'ai copié la ligne de commande lancée ci-dessus depuis le fichier) donc normalement, tout devrait baigner...ou pas, car "NRPE : Unable to read output"

A mon avis, il n'aime pas le fait qu'il sorte 2 résultats...ou je sais pas...

[Mr6]

Je maintiens, il y a un pb de conf. Si ce n'est pas dans le fichier cfg, c'est un problème de droit sur le fichier à exécuter

@+
Mr6

PS : si nagios a le droit d'exécuter le script perl, a-t-il le droit d'exécuter la commande swapinfo ? pas besoin d'un sudo pour ca ?

[manu7762323]

Probablement...

J'ai retesté en remettant la ligne qui exécute réellement la commande "swapinfo", et ça fonctionne, il y a bien une sortie dans l'interface.

Par contre, avec la ligne qui dit de prendre dans le fichier de test, pas moyen. Il y a bien les droits de lecture pour tous sur ce fichier pourtant.

Juste pour vérifier, la ligne pour prendre dans ce fichier, c'est bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open FH, swapinfo or die "probleme executer swapinfo :$!\n";

(mon fichier test avec le résultat de la commande se nomme "swapinfo")
?

[Mr6]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open FH, 'swapinfo' or die "probleme executer swapinfo :$!\n";

[manu7762323]

toujours pareil...

il sort :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Checkmultiswap test   CRITICAL 7m 36s 04/12/2009 16:02:11 3 NRPE: Unable to read output

au moins il y a déjà un état CRITIQUE...donc ça veut dire qu'il va quand même jusqu'à un certain endroit dans le code... non ?

----
PS. Je suis en formation semaine prochaine, tu as le temps souffler ^^
Merci pour ton aide en tout cas

[Mr6]

Il arrive même à lire tout le code, puisqu'il a le bon retour
Chez nous, les seules erreurs de ce type ont toujours été liées à la config NRPE, c'est pour ca que je suis un peu insistant Vive les checks par SSH !

Bon weekend !

@+
Mr6
PS : que vais-je faire la semaine prochaine moi du coup ?

[manu7762323]

Bizarre...car sans changer la config NRPE, ça fonctionne avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open FH, "swapinfo |" or die "probleme executer swapinfo :$!\n";

mais pas avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open FH, 'swapinfo' or die "probleme executer swapinfo :$!\n";

bizarre non ?

Bon week end à toi aussi !

--
PS. La semaine prochaine tu vas travailler

[Mr6]

Bizarre...car sans changer la config NRPE, ça fonctionne avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open FH, "swapinfo |" or die "probleme executer swapinfo :$!\n";

mais pas avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open FH, 'swapinfo' or die "probleme executer swapinfo :$!\n";

bizarre non ?

Bizarre en effet... je vais sécher sur ce coup je pense vu que le fichier.... on s'en fout

PS. La semaine prochaine tu vas travailler

Prétentieux !

@+
Mr6

[manu7762323]

Hello ! Comment ça va depuis la semaine dernière ?

Me voici de retour !

C'est vrai, le fichier on s'en fou, mais ça m'aurait quand même été pratique pour tester, mais bon pas grave, de toute façon chez nous on a l'habitude de tester en prod ^^ lol

Dernier petit détail du code...dans Nagios, le retour est maintenant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Swap   OK 5h 53s 14/12/2009 15:55:35 1 Swap OK -- Swap /dev/vg00/lvol2 = 2% - (w:30/c:50 used)

On voit ici que le Swap est OK, on voit les seuils définis, mais on ne voit que le % du 1er swap. Comment faire dans la partie qui teste les seuils, on dise qu'il faut afficher l'état des 2 swap ?

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
my $state = -1;
# Tests des seuils
foreach my $id (keys (%infos_hash)) {
  if ($infos_hash{$id}->[4] >= $crit_level){
     print "Swap CRITICAL -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:
$crit_level used)\n";
     $state = $exit_codes{'CRITICAL'};
  }
  elsif ($infos_hash{$id}->[4] >= $warn_level){
     print "Swap WARNING -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$
crit_level used)\n";
    $state = 1 if $state < $exit_codes{'WARNING'};
  }
  elsif ($infos_hash{$id}->[4]){
    print "Swap OK -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_l
evel used)\n";
    $state = 0 if $state < $exit_codes{'OK'};
  }
  else {
    print "Swap UNKNOWN -- Swap $id = $infos_hash{$id}->[4] - (seems to be undef... verify check ?)\n";
  }
}
exit $exit_codes{$state};

Histoire qu'on ait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Swap   OK 5h 53s 14/12/2009 15:55:35 1 Swap OK -- Swap /dev/vg00/lvol2 = 2% - Swap /dev/vg00/lvol9 = 2% - (w:30/c:50 used)

Vala, après ça se sera totalement parfait Merci pour ton aide

[Mr6]

Salut !

Il suffit de stocker au lieu d'afficher, tout bêtement
Au choix tout de même, soit un simple $msg .=..., soit $msg[$i]=....
L'un te permettra de faire un print direct, l'autre un print join ' - ', @msg; (pour un plus joli formatage).
Tu afficheras enfin ton texte juste avant l'exit.
Par contre, je sais que Nagios n'est pas très copain avec les résultats trop longs, donc penses à jeter un oeil à sprintf pour tronquer ta ligne si nécessaire. (et là en bonus tu chercheras peut-être à afficher en priorité les résultats critical, puis warning, et enfin ok, car à quoi sert un resultat critical si tu ne vois pas le swap posant pb ?)

@+
Mr6

[manu7762323]

Ok, donc j'ai fait ce que tu m'a dit comme ceci :

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
# Boucle de tests des seuils
my $state = -1;
foreach my $id (sort keys (%infos_hash)) {
  if ($infos_hash{$id}->[4] >= $crit_level){
      $msg[$i]="Swap CRITICAL -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_level used)\n";
     $state = 2;
  }
  elsif ($infos_hash{$id}->[4] >= $warn_level){
    $msg[$i]="Swap WARNING -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_level used)\n";
    $state = 1 if $state < $exit_codes{'WARNING'};
  }
  elsif ($infos_hash{$id}->[4]){
    $msg[$i]="Swap OK -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_level used)\n";
    $state = 0 if $state < $exit_codes{'OK'};
  }
  else {
    print "Swap UNKNOWN -- Swap $id = $infos_hash{$id}->[4] - Seems to be undefinied, please verify check_multiswap\n";
  }
}
 
# Sortie du resultat
print $msg[$i];
exit $exit_codes{$state};

Ca stocke en effet le message mais il y a un truc sur lequel je bloque (je pense que tu sais ce que c'est). Là, je stocke uniquement ce qu'il y a en dernier dans "msg".
Ca me sort :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Swap OK -- Swap /dev/vg00/lvol9 = 2% - (w:30/c:50 used)

Je ne sais toujours pas comment faire pour afficher l'autre valeur de l'autre swap sur la même ligne... j'avoue que j'ai pas mal de mal à comprendre

[Mr6]

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
my @msg;
my $i=0;
 
# Boucle de tests des seuils
my $state = -1;
foreach my $id (sort keys (%infos_hash)) {
  if ($infos_hash{$id}->[4] >= $crit_level){
      $msg[$i]="Swap CRITICAL -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_level used)";
     $state = 2;
  }
  elsif ($infos_hash{$id}->[4] >= $warn_level){
    $msg[$i]="Swap WARNING -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_level used)";
    $state = 1 if $state < $exit_codes{'WARNING'};
  }
  elsif ($infos_hash{$id}->[4]){
    $msg[$i]="Swap OK -- Swap $id = $infos_hash{$id}->[4] - (w:$warn_level/c:$crit_level used)";
    $state = 0 if $state < $exit_codes{'OK'};
  }
  else {
    print "Swap UNKNOWN -- Swap $id = $infos_hash{$id}->[4] - Seems to be undefinied, please verify check_multiswap";
  }
  $i++;
}
 
# Sortie du resultat
print join ' -- ', @msg;
exit $exit_codes{$state};

C'est mieux la ?

[manu7762323]

Oui, c'est mieux merci

Par contre j'avais 2 fois "Swap OK" du coup, mais pour faire simple, comme dans la console j'ai déjà un indice qui me dit dans quel état c'est, pas la peine de le réécrire en fin de compte. (et en plus je gagne de la place dans l'affichage nagios !)

Voilà comment j'ai fait au final :

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
my @msg;
my $i=0;
 
# Boucle de tests des seuils
my $state = -1;
foreach my $id (sort keys (%infos_hash)) {
  if ($infos_hash{$id}->[4] >= $crit_level){
     $msg[$i]="Swap $id = $infos_hash{$id}->[4]";
     $state = 2;
  }
  elsif ($infos_hash{$id}->[4] >= $warn_level){
    $msg[$i]="Swap $id = $infos_hash{$id}->[4]";
    $state = 1 if $state < $exit_codes{'WARNING'};
  }
  elsif ($infos_hash{$id}->[4]){
    $msg[$i]="Swap $id = $infos_hash{$id}->[4]";
    $state = 0 if $state < $exit_codes{'OK'};
  }
  else {
    print "Swap UNKNOWN - Seems to be undefinied, please verify check_multiswap\n";
  }
  $i++;
}
 
# Sortie du resultat
print join ' -- ',@msg;
print " - (w:$warn_level/c:$crit_level used)\n";
exit $exit_codes{$state};

Et ça me renvoie dans Nagios :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Swap   OK 2m 1s 15/12/2009 16:40:24 1 Swap /dev/vg00/lvol2 = 2% -- Swap /dev/vg00/lvol9 = 2% - (w:30/c:50 used)

Qu'en penses-tu ? c'est au mieux d'après toi ?

[Mr6]

C'est toi qui connais les contraintes, je suis mal placé pour dire si c'est au mieux
Est-ce que tu risques d'avoir plus de 2 espaces de swap sur une machine ? Est-ce que ton affichage supporte autant de texte ?
Si tu as un doute sur ces questions, tu dois envisager de prioriser tes retours à afficher comme je t'ai dit. Je te laisse chercher une façon simple de le faire (mais bon, t'as peut-etre du boulot à faire aussi, pas juste jouer avec des scripts )

@+
Mr6

[manu7762323]

Non il n'y a jamais plus de 2 swap, et l'affichage supporte bien le texte (il y a même encore de la place ^^).
A priori le script là fonctionne bien (grâce à toi ) donc je vais le laisser comme ça et le passer sur tous les autres serveurs aujourd'hui.


Merci beaucoup pour ta disponibilité et tes conseils !!! C'était un plaisir de travailler avec toi