Perl

[PERL] Supervisation d'un onduleur et alerte

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] Supervisation d'un onduleur et alerte

quaresma

salut à tous,
j'ai un petit problème.
Dans le cadre de mon projet de fin d'année, je dois ajouter au logiciel de monitoring NAGIOS, un plugin qui va recuperer la temperature interne d'un onduleur.
Pour cela je me sert du protocole SNMP et de la MIB de l'onduleur.
Une fois le T° récupérée, je dois faire en sorte que si la T° est trop élevée, NAGIOS nous informe par SMS et/ou email de la situation.

Pour le moment, j'ai réalisé un script qui récupère bien la T° voulue :

Code :

#!/usr/bin/perl
use strict;
use Net::SNMP;
my ($session, $error) = Net::SNMP->session(
-hostname => shift || '192.168.254.250', \\adresse IP de l'onduleur\\
-community => shift || 'public',
-port => shift || 161
);
if (!defined($session)) {
printf("ERROR: %s.\n", $error);
exit 1;
}
\\MIB de la T° interne de l'onduleur\\
my $temperature = '1.3.6.1.4.1.705.1.5.7.0';
my $result = $session->get_request(-varbindlist => [$temperature]);
if (!defined($result)) {
printf("ERROR: %s.\n", $session->error);
$session->close;
exit 1;
}
printf("la Temperature dans la salle machine est de %s degres\n",
$result->{$temperature});
$session->close;
exit 0;

La T° interne doit être de 20° maxi.
Cependant, je ne sais pas comment faire pour comparer la T° et voir si elle est supérieur à 20°. Et ensuite, si elle est >20° être alerté...

Pourriez-vous m'aider ?
merci bcp pour vos réponses

Publicité

anapajari

s/travail/glanding on hfr/gs;

lire la doc?
( en même temps if c'est quand même la base )

---------------
Software and cathedrals are much the same - first we build them, then we pray.

quaresma

OK je connais très bien les if.
Mais pour Nagios, est-ce que je dois créer deux scripts différents ou faire le test de la T° dans celui-ci ?

couak

dans nagios tu dois renvoyer un code retour suivant les états suivants :
'OK' => 0,
'WARNING' => 1,
'CRITICAL'=> 2,
'UNKNOWN' => 3

quaresma

'lut couak,
merci pour ta réponse.
En effet, je crois que j'ai du mal a comprendre comment fonctionne Nagios en fait.
C'est ces "états" que je ne comprend pas vraiment et comment les interpreter...et les imcorporer dans le script.

:sarcastic:

couak

c'est toi qui définit les interprétation de ces états, nagios ne fait que récupérer le code retour
en perl, pour le code retour c'est comme en shell :

Code :

exit X;

avec X le numéro du code retour

Message édité par couak le 31-01-2008 à 21:47:31

quaresma

OK j'esayerai cela au taff demain.
merci bien en tout cas.
bonne soirée

quaresma

salut,
voici mon plug, je pense qu'il fonctionne puisqu'il me retourne T° correcte

Code :

#!/usr/bin/perl
use strict;
use Net::SNMP;
my ($session, $error) = Net::SNMP->session(
-hostname => shift || '192.168.254.250',
-community => shift || 'public',
-port => shift || 161
);
my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
if (!defined($session)) {
printf("ERROR: %s.\n", $error);
exit 1;
}
my $temperature = '1.3.6.1.4.1.705.1.5.7.0';
my $result = $session->get_request(-varbindlist => [$temperature]);
if (!defined($result)) {
printf("ERROR: %s.\n", $session->error);
$session->close;
exit 1;
}
if( ($result->{$temperature} > 18 ) or ($result->{$temperature} < 25 ) ){
printf("temperature correcte" );
exit $ERRORS{'OK'};
$session->close;
}else{
if( ($result->{$temperature} > 25 ) or ($result->{$temperature} < 28 ) ){
printf("Attention seuil de temperature limite" );
exit $ERRORS{'WARNING'};
$session->close;
}else{
if( $result->{$temperature} >28 ){
printf("seuil de temperature critique atteint" );
exit $ERRORS{'CRITICAL'};
$session->close;
} } }

matafan

Si la température est de 18, 25 ou 28 degrés exactement, tu fais quoi ?

couak

et si la température est inférieur à 18 ?

en perl tu as le mot-clé "elsif", ca aide pour éviter de faire des boucles immondes

Publicité

matafan

Ah et aussi je crois que tu veux dire "and", pas "or". La température est correcte si elle est supérieure à 18 ET inférieure à 25. Tu est au seuil si elle et supérieure à 25 ET inférieure à 28.

FORUM HardWare.fr

Programmation

Perl

[PERL] Supervisation d'un onduleur et alerte

Sujets relatifs
[PERL] besoin de votre aide pour comprendre une variable	[Resolu] Equivalent de la commande unpack de PHP/Perl en Java
[PERL] de l'aide pour petite manip de champs dans un fichier	Que pensez vous de mon script perl ??
[PERL] Perl et onduleurs	Fenetre dialog en perl
[Resolu] [Problème] [Perl,Tableaux] lire un fichier texte	[Sql,Sybase,perl]Requête Sql sybase pour script perl
[Perl] Problème de syntaxe	Traduction perl en python
Plus de sujets relatifs à : [PERL] Supervisation d'un onduleur et alerte

Page générée en 0.070 secondes