plugins Nagios check de température des CPU.

Version imprimable

Bonjour,

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

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

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:

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 :ccool::kiss: : http://djibril.developpez.com/tutori...n-nagios-perl/

Voici mon script :
Code:

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.

19/09/2013, 11h44
6ril23
je ne connais pas du tout le format du hash obtenu

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

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:

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

Merci 6ril,

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

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
#!/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:

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

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
#!/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.

Voila ce que cela donne:

Code:

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.... ?

Donc tu as ta réponse :

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
#!/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.

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

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

19/09/2013, 14h20
djibril

Pense maintenant à mettre ton programme en mode plugin nagios comme dans ma doc.
19/09/2013, 15h44
dubis

Est ce que le chargement du module Nagios::Plugin est obligatoire.....?
19/09/2013, 22h36
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.

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:

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:

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:

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.

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

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

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
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:

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

23/09/2013, 12h10
djibril

Ton souci est maintenant au niveau de ta configuration nagios.

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:

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:

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..... :ccool: