1 Simulation d'un compteur d'imprimante

#!/usr/bin/perl -w
#===============================================================================
# Auteur : kermith72
# Date   : 07/04/2014
# But    : plugin Centreon Tutoriel RRD simulant l'activité d'une imprimante
#===============================================================================
use strict; # rends le language moins permissif, déclaration de variable obligatoire,...
use warnings; # affichage des avertissements, on peut utiliser /usr/bin/perl -w
use Nagios::Plugin; # Chargement du module CPAN

# déclaration variable $licence
my $licence = "This program is free software; you can redistribute it and/or modify it under"
        ." the terms of the GNU General Public License as published by the Free Software"
        ." Foundation ; either version 2 of the License.";

# déclaration de la sonde
my $np = Nagios::Plugin->new(
        shortname => 'Test compteur imprimante',
        usage => 'Usage : %s -n|numero ',
        license => $licence,
        version => '1.00',
        blurb => "Ce plugin est un test pour le RDD "

        );

# Définition de l'argument --numero ou -n
$np->add_arg(
  spec     => 'numero|n=f',
  help     => 'numero fichier',    # Aide au sujet de cette option
  required => 1,                  # Argument obligatoire
);

# Récupération des valeurs de paramètres
$np->getopts;

# logique du programme
#declaration des variables
my $nbpage;
my $pagetotal;
my $filename;
my $fh;
my $command;
my $code_retour;
my $compteur;

$filename = "/var/lib/centreon/centplugins/check_imp".$np->opts->numero.".tmp";

# lecture du résulat précédent
if (-e $filename) {
        open ($fh, '<', $filename) or die "impossible d'ouvrir le fichier";
        $compteur = <$fh>;
        close $fh;
} else {
   $compteur = 0;
}
# nombre aléatoire entre 0 et 180
$nbpage = int rand(181);
$pagetotal = $compteur + $nbpage;

# sauvegarde du résultat
open ($fh, '>', $filename) or die "impossible d'ouvrir le fichier";
print $fh $pagetotal;
close $fh;
        
# ajout des données de performances
$np->add_perfdata(
        label => "compteur",
        value => $pagetotal
     );
# traitement du code retour
$np->nagios_exit( OK, "all test imp OK $nbpage : $pagetotal");


__END__

# nombre 42 pages à la minutes soit 42 x 5 = 210
$nbpage = 210;
$pagetotal = $compteur + $nbpage;