IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

plugins Nagios check de température des CPU.


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre très actif
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    299
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 299
    Par défaut plugins Nagios check de température des CPU.
    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.

  2. #2
    Membre chevronné
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2013
    Messages
    247
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2013
    Messages : 247
    Par défaut
    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

  3. #3
    Membre très actif
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    299
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 299
    Par défaut
    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

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    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.

  5. #5
    Membre très actif
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    299
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 299
    Par défaut
    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.... ?

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Red Hat] Analyser la sortie d'un check-update pour faire un plugin Nagios
    Par djibril dans le forum Administration système
    Réponses: 5
    Dernier message: 16/04/2015, 16h48
  2. Nagios check température et supprimer un host
    Par thetrollman dans le forum Linux
    Réponses: 0
    Dernier message: 04/07/2014, 16h04
  3. Plugin Nagios : check des partitions
    Par ludo40190 dans le forum Shell et commandes GNU
    Réponses: 4
    Dernier message: 07/08/2012, 21h01
  4. [release plugin][SVN] check des modifications locales
    Par fouckybzh dans le forum Maven
    Réponses: 2
    Dernier message: 01/07/2009, 10h05
  5. Réponses: 7
    Dernier message: 10/03/2008, 09h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo