Discussion :

[dubis]

Bonjour,

Je ne sais pas si je suis dans le bon forum dans ce cas merci de me modérer

Tous les plugins pour avoir la température des CPU ne me donne pas une bonne mise en forme du résultat.
exemple :

Code :

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

1
2
snmpget -v2c -c public host .1.3.6.1.4.1.2021.13.16.5.1.3.1
UCD-SNMP-MIB::ucdExperimental.16.5.1.3.1 = Gauge32: 42000

J'ai trouvé un script perl déjà tout fait mais je n'ai pas rèeussi à le faire fonctionner j'ai toujours l'erreur suivante :

Code :

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

1
2
check_snmp_temperature.pl -H host -2 -C public   -D .1.3.6.1.4.1.2021.13.16.2.1.3  -i 1000C -w 60 -c 80
Specify system type (-T) OR base SNMP OIDs for names (-N) and data (-D) tables OR exact list of sensor names (-n) and data OIDs (-d) !

J'ai donc pris mon courage après avoir lu la doc de djibril merci à lui : http://djibril.developpez.com/tutori...n-nagios-perl/

Voici mon script :

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
#!/usr/bin/perl -w
use strict;
use Net::SNMP;
 
my $host= "host" ;
my $community = "public" ;
# requires a hostname and a community string as its arguments
(my $session, my $error) = Net::SNMP->session(Hostname => $host,
                                       Community => $community);
 
die "session error: $error" unless ($session);
 
# Check OID temp CPU
#  1.3.6.1.4.1.2021.13.16.5.1.3.1
my $result = $session->get_request("1.3.6.1.4.1.2021.13.16.5.1.3.1");
print "Flag Result $result\n";
die "request error: ".$session->error unless (defined $result);
 
$session->close;
print "CPU Temp : ".$result->{"1.3.6.1.4.1.2021.13.16.5.1.3.1"}."\n"

Voici ce que j'obtiens :
Flag Result HASH(0x8081d70)
CPU Temp : 45000

Mon soucis était prévisible car je pointe sur l'OID. Je ne comprend comment obtenir la valeur lisible de $result afin de la mettre en forme de style "SNMP OK CPU TEMP 45 C"


Merci de votre aide.

[6ril23]

je ne connais pas du tout le format du hash obtenu

Par contre si tu veux "lire" le hash tu peux faire:

Code :

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

1
2
3
foreach my $cle (keys(%$resultat)){
     print "Cle: $cle -- Valeur: $$resultat{'$cle'}\n";
}

Ensuite tu pourras donc pour mettre en forme $resultatcomme tu le souhaites en utilisant directement le nom de la clé que tu veux utiliser:

Code :

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

print "Flag Result $$result{''} $$result{''} $$result{''} $$result{''} \n";

Désolé de ne pas être plus précis immédiatement mais je n'utilise pas Nagios et ne peux pas tester

[dubis]

Merci 6ril,

J'ai un peut corrigé et voici ce que j’obtiens :

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
#!/usr/bin/perl -w
use strict;
use Net::SNMP;
 
my $host= "host" ;
my $community = "public" ;
# requires a hostname and a community string as its arguments
(my $session, my $error) = Net::SNMP->session(Hostname => $host,
                                       Community => $community);
 
die "session error: $error" unless ($session);
 
# Check OID temp CPU
#  1.3.6.1.4.1.2021.13.16.5.1.3.1
my $result = $session->get_request("1.3.6.1.4.1.2021.13.16.5.1.3.1");
#print "Flag Result $result\n";
die "request error: ".$session->error unless (defined $result);
 
$session->close;
foreach my $cle (keys(%$result)){
     print "Cle: $cle -- Valeur: $$result{'$cle'}\n";
}
 
 
print "CPU Temp : ".$result->{"1.3.6.1.4.1.2021.13.16.5.1.3.1"}."\n"

Reponse :

Code :

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

1
2
3
Use of uninitialized value in concatenation (.) or string at ./perl_check_snmp_CPUtemp.pl line 21.
Cle: 1.3.6.1.4.1.2021.13.16.5.1.3.1 -- Valeur: 
CPU Temp : 45000

[djibril]

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
#!/usr/bin/perl
use warnings;
use strict;
use Net::SNMP;
use Data::Dumper;
 
my $host= "host" ;
my $community = "public" ;
# requires a hostname and a community string as its arguments
(my $session, my $error) = Net::SNMP->session(Hostname => $host,
                                       Community => $community);
 
die "session error: $error" unless ($session);
 
# Check OID temp CPU
#  1.3.6.1.4.1.2021.13.16.5.1.3.1
my $result = $session->get_request("1.3.6.1.4.1.2021.13.16.5.1.3.1");
#print "Flag Result $result\n";
die "request error: ".$session->error unless (defined $result);
 
$session->close;
print Dumper $result;
#foreach my $cle (keys(%$result)){
#     print "Cle: $cle -- Valeur: $$result{'$cle'}\n";
#}
 
 
print "CPU Temp : ".$result->{"1.3.6.1.4.1.2021.13.16.5.1.3.1"}."\n"

Essaye déjà ça pour voir le contenu de ta variable.

[dubis]

Voila ce que cela donne:

Code :

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

1
2
3
4
5
./perl_check_snmp_CPUtemp.pl
$VAR1 = {
          '1.3.6.1.4.1.2021.13.16.5.1.3.1' => 45000
        };
CPU Temp : 45000

N'y a t-il pas un moyen plus simple.... ?

[djibril]

Donc tu as ta réponse :

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
#!/usr/bin/perl
use warnings;
use strict;
use Net::SNMP;
use Data::Dumper;
 
my $host= "host" ;
my $community = "public" ;
# requires a hostname and a community string as its arguments
(my $session, my $error) = Net::SNMP->session(Hostname => $host,
                                       Community => $community);
 
die "session error: $error" unless ($session);
 
# Check OID temp CPU
#  1.3.6.1.4.1.2021.13.16.5.1.3.1
my $result = $session->get_request("1.3.6.1.4.1.2021.13.16.5.1.3.1");
#print "Flag Result $result\n";
die "request error: ".$session->error unless (defined $result);
 
$session->close;
#print Dumper $result;
foreach my $cle (keys(%{$result})){
     print "Cle: $cle -- Valeur: $result->{$cle}\n";
}
 
 
print "CPU Temp : ".$result->{"1.3.6.1.4.1.2021.13.16.5.1.3.1"}."\n"

Maintenant, il te reste à le concevoir en mode plugun nagios comme dans mon article.

[dubis]

Oui Merci .... J'en pleurerai tellement c'est simple.

Code :

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

1
2
3
./perl_check_snmp_CPUtemp.pl
Cle: 1.3.6.1.4.1.2021.13.16.5.1.3.1 -- Valeur: 45000
CPU Temp : 45000

[djibril]

Pense maintenant à mettre ton programme en mode plugin nagios comme dans ma doc.

[dubis]

Est ce que le chargement du module Nagios:lugin est obligatoire.....?

[djibril]

Si tu écris un plugin pour ton nagios, je te le recommande. Si c'est juste un programme comme ça sans rapport avec nagios, alors tu peux t'en passer.

[dubis]

Effectivement sans le nagios Plugins J'ai le message d'erreur : Service check did not exit properly

J'ai donc installé Nagios:: Plugin::Simple car je n'arrive pas à installer Nagios:: Plugin. J'ai trop d'erreur, et je suis sur SOLARIS10.

D'apres les recommandation du CPAN voic commanet est devenu mon script :

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
58
59
60
61
62
63
64
65
66
#!/usr/bin/perl -w
use strict;
use Net::SNMP;
use Data::Dumper;
use Getopt::Long;
use Nagios::Plugin::Simple
 
 
my $temp;
my $OID = "1.3.6.1.4.1.2021.13.16.5.1.3.1";
my $host = "";
my $community = "public" ;
my $warn = "" ;
my $crit = "" ;
 
 
 
Getopt::Long::Configure ("bundling");
GetOptions ( 'H:s' => \$host,
            'C:s'=> \$community,
            'w:s' => \$warn,
            'c:s' => \$crit)
or die("Error in command line arguments\n");
 
#print " Flag host $host\n Flag community $community\n Flag Warning $warn\n Flag Critical $crit\n";
 
 
# requires a hostname and a community string as its arguments
(my $session, my $error) = Net::SNMP->session(Hostname => $host,Community => $community);
die "session error: $error" unless ($session);
 
# Check OID temp CPU
#  1.3.6.1.4.1.2021.13.16.5.1.3.1
#my $result = $session->get_request("1.3.6.1.4.1.2021.13.16.5.1.3.1");
my $result = $session->get_request($OID);
 
die "request error: ".$session->error unless (defined $result);
 
$session->close;
# Affichache de la valeur result
# print Dumper $result;
 
foreach my $cle (keys(%{$result})){
     $temp =$result->{$cle} ;
}
 
$temp=$temp/1000 ;
#print "Température CPU $temp C\n";
my $nps=Nagios::Plugin::Simple->new;
if ( $temp < $warn ) {
  $nps->ok("Température CPU  - $temp °C");
#  print "Température CPU OK - $temp °C\n";
  exit 0;
}
if ( $temp > $crit ) {
  $nps->critical("Température CPU  - $temp °C");
#  print "Température CPU CRITICAL - $temp °C\n";
  exit 2;
}
else {
  $nps->warning("Température CPU  - $temp °C");
#  print "Température CPU WARNING - $temp °C\n";
  exit 1;
}
 
__END__

En mode commande le script fonctionne.

Code :

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

1
2
3
check_CPU_temp.pl -H host -C public -w 50 -c 60 ; echo $?
OK: Température CPU - 45 °C
0

Dans nagios j'ai le message : Service check did not exit properly pourtant le code retour change si modifie la limite warning et critical
exemple :

Code :

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

1
2
3
check_CPU_temp.pl -H host -C public -w 20 -c 40 ; echo $?
Critical: Température CPU  - 45 °C
2

Je ne comprend pas pourquoi Nagios ne prend pas en compte mon code retour.

[dubis]

ça y est j'ai rèussi à installer le module Nagios:lugin,

J'ai modifié le script en conséquence mais je pense qu'il manque quelque chose :

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
#!/usr/bin/perl -w
use strict;
use Net::SNMP;
use Data::Dumper;
use Getopt::Long;
use Nagios::Plugin
 
 
my $temp;
my $OID = "1.3.6.1.4.1.2021.13.16.5.1.3.1";
my $host = "";
my $community = "public" ;
my $warn = "" ;
my $crit = "" ;
 
 
 
Getopt::Long::Configure ("bundling");
GetOptions ( 'H:s' => \$host,
            'C:s'=> \$community,
            'w:s' => \$warn,
            'c:s' => \$crit)
or die("Error in command line arguments\n");
 
#print " Flag host $host\n Flag community $community\n Flag Warning $warn\n Flag Critical $crit\n";
 
 
# requires a hostname and a community string as its arguments
(my $session, my $error) = Net::SNMP->session(Hostname => $host,Community => $community);
die "session error: $error" unless ($session);
 
# Check OID temp CPU
#  1.3.6.1.4.1.2021.13.16.5.1.3.1
#my $result = $session->get_request("1.3.6.1.4.1.2021.13.16.5.1.3.1");
my $result = $session->get_request($OID);
 
die "request error: ".$session->error unless (defined $result);
 
$session->close;
# Affichache de la valeur result
# print Dumper $result;
 
foreach my $cle (keys(%{$result})){
     $temp =$result->{$cle} ;
}
 
$temp=$temp/1000 ;
#print "Température CPU $temp C\n";
 
# Version du plugin
my $VERSION = 'Beta';
 
my $LICENCE
  = "Ce plugin Nagios est gratuit et libre de droits, et vous pouvez l'utiliser à votre convenance."
  . ' Il est livré avec ABSOLUMENT AUCUNE GARANTIE.';
 
my $plugin_nagios = Nagios::Plugin->new(
  shortname => 'Verification Temperature CPU',
  usage =>
    'Usage : %s [-H=<hostname>] [-C=<community>] [-c=<critical threshold> ] [ -w=<warning threshold> ]',
  version => $VERSION,
  license => $LICENCE,
);
 
if ( $temp < $warn ) {
 
  $plugin_nagios-> nagios_exit (OK, join ("Température CPU OK - $temp °C"));
  exit 0;
}
if ( $temp > $crit ) {
  $plugin_nagios->nagios_exit(CRITICAL,join ("Température CPU CRITICAL - $temp °C"));
  exit 2;
}
else {
  $plugin_nagios->nagios_exit(warning("Température CPU WARNING - $temp °C");
  exit 1;
}
 
__END__

Cela fonctionneen mode commande :

Code :

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

1
2
3
./check_CPU_temp.pl -H pascal -C public -w 10 -c 20 ; echo $?
Verification Temperature CPU CRITICAL - Température CPU CRITICAL - 45 °C
2

J'ai toujours le même message d'erreur dans Nagios.... snif..
Service check did not exit properly

[djibril]

Ton souci est maintenant au niveau de ta configuration nagios.

[dubis]

Je pense que je me suis fais mal à la tête pour rien, du coup à vous aussi et j'en suis désolé...

J'ai trouvé un mode débug ici :
http://forums.gentoo.org/viewtopic-p-6821774.html

Le petit script sh à inserer en amont du script perl dans le lanceur de commande Nagios, a été marrant car cela a
résolu mon problème les températures se sont bien affichée dans l'interface Nagios, avec les bon niveaux d'alerte.

Mais ce qui m'a donné la solution c'est de passer Nagios en mode débug, et j'ai trouvé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Embedded Perl failed to compile /opt/csw/libexec/nagios-
plugins/check_CPU_temp.pl, compile error **ePN failed to compile
/opt/csw/libexec/nagios-plugins/check_CPU_temp.pl: "Can't locate Net/SNMP.pm
in @INC (@INC contains: /opt/csw/lib/perl/site_perl
/opt/csw/share/perl/site_perl /opt/csw/share/perl/site_perl
/opt/csw/lib/perl/csw /opt/csw/share/perl/csw /opt/csw/share/perl/csw
/opt/csw/lib/perl/5.10.1 /opt/csw/share/perl/5.10.1 .) at (eval 1) line 4,
BEGIN failed--compilation aborted at (eval 1) line 11." at
/opt/csw/nagios/bin/p1.pl line 248.

Logique, j'ai un conflit entre l'installation de perl par defaut dans SOLARIS10 et celle installée par OpenCSW qui est necessaire à Nagios. Malheureusement mes scripts et mes modules pointent sur perl par defaut donc mon script est devenu 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
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
#!/opt/csw/bin/perl -w
use strict;
use Net::SNMP;
use Data::Dumper;
use Getopt::Long;
use Nagios::Plugin;
 
my $temp;
my $OID = "1.3.6.1.4.1.2021.13.16.5.1.3.1";
my $host = "";
my $community = "public" ;
my $warn = "" ;
my $crit = "" ;
 
 
 
Getopt::Long::Configure ("bundling");
GetOptions ( 'H:s' => \$host,
            'C:s'=> \$community, 
            'w:s' => \$warn,
            'c:s' => \$crit)     
or die("Error in command line arguments\n");
 
#print " Flag host $host\n Flag community $community\n Flag Warning $warn\n Flag Critical $crit\n";
 
 
# requires a hostname and a community string as its arguments
(my $session, my $error) = Net::SNMP->session(Hostname => $host,Community => $community);
die "session error: $error" unless ($session);
 
# Check OID temp CPU
#  1.3.6.1.4.1.2021.13.16.5.1.3.1
#my $result = $session->get_request("1.3.6.1.4.1.2021.13.16.5.1.3.1");
my $result = $session->get_request($OID);
 
die "request error: ".$session->error unless (defined $result);
 
$session->close;
# Affichache de la valeur result
# print Dumper $result;
 
foreach my $cle (keys(%{$result})){
     $temp =$result->{$cle} ;
}
 
$temp=$temp/1000 ;
#print "Température CPU $temp C\n";
#Preparation du Plugin Nagios
my $VERSION = 'Beta';
my $LICENCE
  = "Ce plugin Nagios est gratuit et libre de droits, et vous pouvez l'utiliser à votre convenance."
  . ' Il est livré avec ABSOLUMENT AUCUNE GARANTIE.';
 
my $plugin_nagios = Nagios::Plugin->new(
  shortname => 'Verification Temperature CPU',
  usage =>
    'Usage : %s [-H=<hostname>] [-C=<community>] [-c=<critical threshold> ] [ -w=<warning threshold> ]',
  version => $VERSION,
  license => $LICENCE,
);
 
if ( $temp < $warn ) {
  $plugin_nagios-> nagios_exit (OK, " - $temp C");
#  exit 0;
}
if ( $temp > $crit ) {
  $plugin_nagios->nagios_exit(CRITICAL, " - $temp C");
#  exit 2;
}
else {
  $plugin_nagios->nagios_exit(WARNING, " - $temp C");
#  exit 1;
}
 
#__END__

J'ai donc changé le PATH du perl et j'ai viré le "__END__" à la fin des script qui est présent dans le tuto mais c'est peut être du à des effets de bord il y en a eu tellement.

De toute façon merci de votre support.....