git-svn-id: http://svn.centreon.com/Plugins/Dev@2980 6bcd3966-0018-0410-8128-fd23d134de7e
This commit is contained in:
Julien Mathis
parent
2a1a37d84b
commit
7a12cb5a46
|
|
@ -0,0 +1,50 @@
|
|||
[GLOBAL]
|
||||
DIR_OREON=@INSTALL_DIR_OREON@/
|
||||
DIR_TRAFFICMAP=@INSTALL_DIR_OREON@/include/trafficMap/average/
|
||||
DIR_NAGIOS=@INSTALL_DIR_NAGIOS@/
|
||||
DIR_RRDTOOL=@INSTALL_DIR_OREON@/rrd/
|
||||
NAGIOS_LIBEXEC=@NAGIOS_PLUGINS@/
|
||||
NAGIOS_ETC=@NAGIOS_ETC@/
|
||||
|
||||
[NT]
|
||||
CPU=.1.3.6.1.2.1.25.3.3.1.2
|
||||
HD_USED=.1.3.6.1.2.1.25.2.3.1.6
|
||||
HD_NAME=.1.3.6.1.2.1.25.2.3.1.3
|
||||
|
||||
[CISCO]
|
||||
NB_CONNECT=.1.3.6.1.4.1.9.9.147.1.2.2.2.1.5.40.6
|
||||
|
||||
[UNIX]
|
||||
CPU_USER=.1.3.6.1.4.1.2021.11.50.0
|
||||
CPU_SYSTEM=.1.3.6.1.4.1.2021.11.52.0
|
||||
CPU_LOAD_1M =.1.3.6.1.4.1.2021.10.1.3.1
|
||||
CPU_LOAD_5M =.1.3.6.1.4.1.2021.10.1.3.2
|
||||
CPU_LOAD_15M =.1.3.6.1.4.1.2021.10.1.3.3
|
||||
|
||||
[DELL]
|
||||
TEMP=.1.3.6.1.4.1.674.10892.1.700.20.1.6.1
|
||||
|
||||
[ALTEON]
|
||||
VIRT=1.3.6.1.4.1.1872.2.1.8.2.7.1.3.1
|
||||
FRONT=1.3.6.1.4.1.1872.2.1.8.2.5.1.3.1
|
||||
|
||||
[MIB2]
|
||||
SW_RUNNAME=.1.3.6.1.2.1.25.4.2.1.2
|
||||
SW_RUNINDEX=.1.3.6.1.2.1.25.4.2.1.1
|
||||
SW_RUNSTATUS=.1.3.6.1.2.1.25.4.2.1.7
|
||||
HR_STORAGE_DESCR=.1.3.6.1.2.1.25.2.3.1.3
|
||||
HR_STORAGE_ALLOCATION_UNITS=.1.3.6.1.2.1.25.2.3.1.4
|
||||
HR_STORAGE_SIZE=.1.3.6.1.2.1.25.2.3.1.5
|
||||
HR_STORAGE_USED=.1.3.6.1.2.1.25.2.3.1.6
|
||||
OBJECTID=.1.3.6.1.2.1.1.1.0
|
||||
UPTIME_WINDOWS=.1.3.6.1.2.1.1.3.0
|
||||
UPTIME_OTHER=.1.3.6.1.2.1.25.1.1.0
|
||||
IF_IN_OCTET=.1.3.6.1.2.1.2.2.1.10
|
||||
IF_OUT_OCTET=.1.3.6.1.2.1.2.2.1.16
|
||||
IF_SPEED=.1.3.6.1.2.1.2.2.1.5
|
||||
IF_DESC=.1.3.6.1.2.1.2.2.1.2
|
||||
IF_IN_ERROR=.1.3.6.1.2.1.2.2.1.14
|
||||
IF_OUT_ERROR=.1.3.6.1.2.1.2.2.1.20
|
||||
IF_OPERSTATUS=.1.3.6.1.2.1.2.2.1.8
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,221 @@
|
|||
###################################################################
|
||||
# Oreon is developped with GPL Licence 2.0
|
||||
#
|
||||
# GPL License: http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt
|
||||
#
|
||||
# Developped by : Julien Mathis - Romain Le Merlus
|
||||
# Mathavarajan Sugumaran
|
||||
#
|
||||
###################################################################
|
||||
# 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, or (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# For information : contact@merethis.com
|
||||
####################################################################
|
||||
#
|
||||
# Plugin init
|
||||
#
|
||||
package centreon;
|
||||
|
||||
use Exporter ();
|
||||
use FindBin qw($Bin);
|
||||
use lib "$FindBin::Bin";
|
||||
use lib "@NAGIOS_PLUGINS@";
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
||||
use utils qw($TIMEOUT %ERRORS &print_revision &support);
|
||||
|
||||
if (eval "require Config::IniFiles" ) {
|
||||
use Config::IniFiles;
|
||||
} else {
|
||||
print "Unable to load Config::IniFiles\n";
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
|
||||
### RRDTOOL Module
|
||||
use lib qw(@RRDTOOL_PERL_LIB@ ../lib/perl);
|
||||
if (eval "require RRDs" ) {
|
||||
use RRDs;
|
||||
} else {
|
||||
print "Unable to load RRDs perl module\n";
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
|
||||
# On défini une version pour les vérifications
|
||||
#$VERSION = do { my @r = (q$Revision: XXX $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
|
||||
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(get_parameters create_rrd update_rrd fetch_rrd &is_valid_serviceid);
|
||||
our @EXPORT = @EXPORT_OK;
|
||||
|
||||
my $params_file = "centreon.conf";
|
||||
my @ds = ("a","b","c","d","e","f","g","h","i","j","k","l");
|
||||
|
||||
###############################################################################
|
||||
# Get all parameters from the ini file
|
||||
###############################################################################
|
||||
sub get_parameters {
|
||||
$params_file = "@NAGIOS_PLUGINS@/$params_file";
|
||||
unless (-e $params_file) {
|
||||
print "Unknown - In oreon.pm :: $params_file :: $!\n";
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
my %centreon;
|
||||
tie %centreon, 'Config::IniFiles', ( -file => $params_file );
|
||||
return %centreon;
|
||||
}
|
||||
|
||||
|
||||
###############################################################################
|
||||
# Create RRD file
|
||||
###############################################################################
|
||||
sub create_rrd($$$$$$$)
|
||||
{
|
||||
my @rrd_arg;
|
||||
my ($rrd, $nb_ds ,$start, $step, $min, $max, $type) = @_;
|
||||
$nb_ds = 1 unless($nb_ds);
|
||||
$start = time unless($start);
|
||||
$step = 300 unless($step);
|
||||
$min = "U" unless($min);
|
||||
$max = "U" unless($max);
|
||||
$type = "GAUGE" unless($type);
|
||||
|
||||
my $ERROR = RRDs::error;
|
||||
|
||||
@rrd_arg=($rrd,
|
||||
"--start",
|
||||
$start-1,
|
||||
"--step",
|
||||
$step);
|
||||
|
||||
for ($i = 0; $i < $nb_ds; $i++) {
|
||||
push(@rrd_arg,"DS:".$ds[$i].":$type:".($step * 2).":".$min.":".$max);
|
||||
}
|
||||
push(@rrd_arg,"RRA:AVERAGE:0.5:1:8640",
|
||||
"RRA:MIN:0.5:12:8640",
|
||||
"RRA:MAX:0.5:12:8640");
|
||||
RRDs::create (@rrd_arg);
|
||||
$ERROR = RRDs::error;
|
||||
if ($ERROR) {
|
||||
print "unable to create '$rrd' : $ERROR\n" ;
|
||||
exit 3;
|
||||
}
|
||||
}
|
||||
|
||||
###############################################################################
|
||||
# Update RRD file
|
||||
###############################################################################
|
||||
sub update_rrd($$@)
|
||||
{
|
||||
my @rrd_arg;
|
||||
my ($rrd, $start,@values) = @_;
|
||||
$start = time unless($start);
|
||||
|
||||
my $ERROR = RRDs::error;
|
||||
for (@values) {
|
||||
s/,/\./ ;
|
||||
$str_value .= ":" . $_;
|
||||
}
|
||||
RRDs::update ($rrd, "$start$str_value");
|
||||
$ERROR = RRDs::error;
|
||||
if ($ERROR) {
|
||||
print "unable to update '$rrd' : $ERROR\n" ;
|
||||
exit 3;
|
||||
}
|
||||
}
|
||||
|
||||
###############################################################################
|
||||
# Fetch RRD file
|
||||
###############################################################################
|
||||
sub fetch_rrd($$){
|
||||
my ($line, $val, @valeurs, $update_time, $step, $ds_names, $data, $i) ;
|
||||
my ($rrd, $CF, @values) = @_;
|
||||
$start = time unless($start);
|
||||
|
||||
my $ERROR = RRDs::error;
|
||||
|
||||
($update_time,$step,$ds_names,$data) = RRDs::fetch($rrd, "--resolution=300","--start=now-5min","--end=now",$CF);
|
||||
|
||||
|
||||
$ERROR = RRDs::error;
|
||||
if ($ERROR) {
|
||||
print "unable to update '$rrd' : $ERROR\n" ;
|
||||
exit 3;
|
||||
}
|
||||
foreach $line (@$data) {
|
||||
foreach $val (@$line) {
|
||||
if ( defined $val ) { $valeur[$i]=$val; } else { $valeur[$i]="undef"; }
|
||||
$i++;
|
||||
}
|
||||
}
|
||||
return @valeur;
|
||||
}
|
||||
|
||||
###############################################################################
|
||||
# Is a valid ServiceId
|
||||
###############################################################################
|
||||
|
||||
sub is_valid_serviceid {
|
||||
my $ServiceId = shift;
|
||||
if ($ServiceId && $ServiceId =~ m/^([0-9_]+)$/) {
|
||||
return $ServiceId;
|
||||
} else {
|
||||
print "Unknown -S Service ID expected... or it doesn't exist, try another id - number\n";
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
centreon - shared module for Oreon plugins
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use oreon;
|
||||
centreon::get_parameters()
|
||||
centreon::create_rrd( )
|
||||
centreon::update_rrd( )
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
=head2 Functions
|
||||
|
||||
B<oreon::create_rrd> create a rrd database.
|
||||
|
||||
create_rrd($rrd, $nb_ds ,$start, $step, $min, $max, $type );
|
||||
|
||||
$rrd : RRD filename
|
||||
$nb_ds : Number of Data Sources to create
|
||||
$start : Start time of RRD
|
||||
$step : RRD step
|
||||
$min : Minimum value in RRD
|
||||
$max : Maximum value in RRD
|
||||
$type : GAUGE or COUNTER
|
||||
|
||||
update_rrd($rrd, $start,@values);
|
||||
|
||||
$rrd : RRD filename to update
|
||||
$start :
|
||||
@values : update RRD with list values
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Mathieu Chateau E<lt>mathieu.chateau@lsafrance.comE<gt>
|
||||
Christophe Coraboeuf E<lt>ccoraboeuf@oreon-project.orgE<gt>
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue