This commit is contained in:
Quentin Garnier 2013-01-11 16:45:23 +01:00
parent 2429c090cc
commit 8405c7f53e
2 changed files with 147 additions and 172 deletions

View File

@ -89,8 +89,9 @@ sub check_snmp_options {
print "Missing parameter to open SNMPv3 session\n";
exit $exit_status;
}
if ($OPTION->{'snmp-auth-protocol'} ne "MD5" && $OPTION->{'snmp-auth-protocol'} ne "SHA1") {
print "Wrong authentication protocol. Must be MD5 or SHA1\n";
$OPTION->{'snmp-auth-protocol'} = lc($OPTION->{'snmp-auth-protocol'});
if ($OPTION->{'snmp-auth-protocol'} ne "md5" && $OPTION->{'snmp-auth-protocol'} ne "sha") {
print "Wrong authentication protocol. Must be MD5 or SHA\n";
exit $exit_status;
}
$session_params{-username} = $OPTION->{'snmp-auth-user'};
@ -102,8 +103,9 @@ sub check_snmp_options {
}
if ((defined($OPTION->{'snmp-priv-password'}) || defined($OPTION->{'snmp-priv-key'})) && defined($OPTION->{'snmp-priv-protocol'})) {
if ($OPTION->{'snmp-priv-protocol'} ne "DES" && $OPTION->{'snmp-priv-protocol'} ne "AES") {
print "Wrong encryption protocol. Must be DES or AES\n";
$OPTION->{'snmp-priv-protocol'} = lc($OPTION->{'snmp-priv-protocol'});
if ($OPTION->{'snmp-priv-protocol'} ne "des" && $OPTION->{'snmp-priv-protocol'} ne "aes" && $OPTION->{'snmp-priv-protocol'} ne "aes128") {
print "Wrong encryption protocol. Must be DES, AES or AES128\n";
exit $exit_status;
}

View File

@ -1,6 +1,6 @@
#! /usr/bin/perl -w
################################################################################
# Copyright 2004-2011 MERETHIS
# Copyright 2004-2013 MERETHIS
# Centreon is developped by : Julien Mathis and Romain Le Merlus under
# GPL Licence 2.0.
#
@ -40,23 +40,15 @@
#
use strict;
use Net::SNMP qw(:snmp);
use FindBin;
use lib "$FindBin::Bin";
use lib "@NAGIOS_PLUGINS@";
use utils qw($TIMEOUT %ERRORS &print_revision &support);
require "@NAGIOS_PLUGINS@/Centreon/SNMP/Utils.pm";
if (eval "require centreon" ) {
use centreon qw(get_parameters);
use vars qw(%centreon);
%centreon = get_parameters();
} else {
print "Unable to load centreon perl module\n";
exit $ERRORS{'UNKNOWN'};
}
use vars qw($PROGNAME);
use Getopt::Long;
use vars qw($opt_V $opt_t $opt_P $opt_h $opt_v $opt_f $opt_C $opt_d $opt_k $opt_u $opt_p $opt_n $opt_w $opt_c $opt_H $opt_s $opt_L $opt_M $opt_a @test);
use vars qw($opt_V $opt_t $opt_h $opt_f $opt_d $opt_n $opt_w $opt_c $opt_s $opt_L $opt_M $opt_a @test);
my %ERRORS = ('OK' => 0, 'WARNING' => 1, 'CRITICAL' => 2, 'UNKNOWN' => 3);
my %centreon = Centreon::SNMP::Utils::load_oids($ERRORS{'UNKNOWN'}, "@NAGIOS_PLUGINS@/centreon.conf");
# Plugin var init
@ -68,83 +60,76 @@ $PROGNAME = "$0";
sub print_help ();
sub print_usage ();
my %OPTION = (
"host" => undef,
"snmp-community" => "public", "snmp-version" => 1, "snmp-port" => 161,
"snmp-auth-key" => undef, "snmp-auth-user" => undef, "snmp-auth-password" => undef, "snmp-auth-protocol" => "MD5",
"snmp-priv-key" => undef, "snmp-priv-password" => undef, "snmp-priv-protocol" => "DES",
"maxrepetitions" => undef,
"64-bits" => undef,
);
Getopt::Long::Configure('bundling');
GetOptions
("h" => \$opt_h, "help" => \$opt_h,
"u=s" => \$opt_u, "username=s" => \$opt_u,
"p=s" => \$opt_p, "password=s" => \$opt_p,
"k=s" => \$opt_k, "key=s" => \$opt_k,
"P=s" => \$opt_P, "snmp-port=s" => \$opt_P,
"V" => \$opt_V, "version" => \$opt_V,
"s" => \$opt_s, "show" => \$opt_s,
"v=s" => \$opt_v, "snmp=s" => \$opt_v,
"C=s" => \$opt_C, "community=s" => \$opt_C,
"d=s" => \$opt_d, "disk=s" => \$opt_d,
"n" => \$opt_n, "name" => \$opt_n,
"w=s" => \$opt_w, "warning=s" => \$opt_w,
"c=s" => \$opt_c, "critical=s" => \$opt_c,
"H=s" => \$opt_H, "hostname=s" => \$opt_H,
"L" => \$opt_L, "label" => \$opt_L,
"a=s" => \$opt_a, "cache=s" => \$opt_a,
"M" => \$opt_M,
"t=s" => \$opt_t);
(
"H|hostname|host=s" => \$OPTION{'host'},
"C|community=s" => \$OPTION{'snmp-community'},
"v|snmp|snmp-version=s" => \$OPTION{'snmp-version'},
"P|snmpport|snmp-port=i" => \$OPTION{'snmp-port'},
"u|username=s" => \$OPTION{'snmp-auth-user'},
"p|authpassword|password=s" => \$OPTION{'snmp-auth-password'},
"k|authkey=s" => \$OPTION{'snmp-auth-key'},
"authprotocol=s" => \$OPTION{'snmp-auth-protocol'},
"privpassword=s" => \$OPTION{'snmp-priv-password'},
"privkey=s" => \$OPTION{'snmp-priv-key'},
"privprotocol=s" => \$OPTION{'snmp-priv-protocol'},
"maxrepetitions=s" => \$OPTION{'maxrepetitions'},
"64-bits" => \$OPTION{'64-bits'},
"h" => \$opt_h, "help" => \$opt_h,
"V" => \$opt_V, "version" => \$opt_V,
"s" => \$opt_s, "show" => \$opt_s,
"d=s" => \$opt_d, "disk=s" => \$opt_d,
"n" => \$opt_n, "name" => \$opt_n,
"w=s" => \$opt_w, "warning=s" => \$opt_w,
"c=s" => \$opt_c, "critical=s" => \$opt_c,
"L" => \$opt_L, "label" => \$opt_L,
"a=s" => \$opt_a, "cache=s" => \$opt_a,
"M" => \$opt_M,
"t=s" => \$opt_t);
if ($opt_V) {
print_revision($PROGNAME,'$Revision: 1.3 $');
exit $ERRORS{'OK'};
}
if (!defined($opt_P)) {
$opt_P = 161;
}
if ($opt_h) {
print_help();
exit $ERRORS{'OK'};
}
if (!$opt_H) {
print_usage();
exit $ERRORS{'OK'};
print_help();
exit $ERRORS{'OK'};
}
if ($opt_n && !$opt_d) {
if (!defined($opt_d)) {
print "Option -d (--disk) needed\n";
exit $ERRORS{'UNKNOWN'};
}
if (defined($opt_n) && !defined($opt_d)) {
print "Option -n (--name) need option -d (--disk)\n";
exit $ERRORS{'UNKNOWN'};
}
($opt_v) || ($opt_v = shift) || ($opt_v = "2");
my $snmp = $1 if ($opt_v =~ /(\d)/);
if ($snmp eq "3") {
if (!$opt_u) {
print "Option -u (--username) is required for snmpV3\n";
exit $ERRORS{'OK'};
}
if (!$opt_p && !$opt_k) {
print "Option -k (--key) or -p (--password) is required for snmpV3\n";
exit $ERRORS{'OK'};
} elsif ($opt_p && $opt_k) {
print "Only option -k (--key) or -p (--password) is needed for snmpV3\n";
exit $ERRORS{'OK'};
}
}
$opt_C = "public" if (!$opt_C);
$opt_d = 2 if (!$opt_d);
$opt_a = 3 if (!$opt_a);
($opt_d) || ($opt_d = shift) || ($opt_d = 2);
my $partition = 0;
if ($opt_d =~ /([0-9]+)/ && !$opt_n){
if ($opt_d =~ /([0-9]+)/ && !defined($opt_n)) {
$partition = $1;
} elsif (!$opt_n){
print "Unknown -d number expected... or it doesn't exist, try another disk - number\n";
print "Unknown -d: number expected... try another disk - number\n";
exit $ERRORS{'UNKNOWN'};
}
if (!$opt_c) {
$opt_c = 95;
$opt_c = 95;
}
if (!$opt_w) {
$opt_w = 90;
$opt_w = 90;
}
# this are boolean variables to see if --warn or --crit were set in MB/GB
@ -179,61 +164,39 @@ if ($opt_w && $opt_w =~ /^([0-9]+)(.)[Bb]$/) {
# MB applies to free space so --crit must be lower than --warn
if ($criticalMB == $warningMB) {
if ($criticalMB && ($critical >= $warning)) {
print "(--crit) must be inferior to (--warn) when using absolute size";
print_usage();
exit $ERRORS{'OK'};
print "(--crit) must be inferior to (--warn) when using absolute size";
print_usage();
exit $ERRORS{'OK'};
}
if (!$criticalMB && ($critical <= $warning)) {
print "(--crit) must be superior to (--warn)";
print_usage();
exit $ERRORS{'OK'};
print "(--crit) must be superior to (--warn)";
print_usage();
exit $ERRORS{'OK'};
}
} else {
print "(--crit) and (--warn) must both use either percent or absolute sizes";
print_usage();
exit $ERRORS{'OK'};
print "(--crit) and (--warn) must both use either percent or absolute sizes";
print_usage();
exit $ERRORS{'OK'};
}
my $name = $0;
$name =~ s/\.pl.*//g;
# Plugin snmp requests
my $OID_hrStorageDescr = "";
if (defined($opt_t) && ($opt_t eq "AIX" || $opt_t eq "AS400")){
$OID_hrStorageDescr = ".1.3.6.1.2.1.25.3.8.1.2";
if (defined($opt_t) && ($opt_t eq "AIX" || $opt_t eq "AS400")) {
$OID_hrStorageDescr = ".1.3.6.1.2.1.25.3.8.1.2";
} else {
$OID_hrStorageDescr = $centreon{MIB2}{HR_STORAGE_DESCR};
$OID_hrStorageDescr = $centreon{MIB2}{HR_STORAGE_DESCR};
}
my $OID_hrStorageAllocationUnits = $centreon{MIB2}{HR_STORAGE_ALLOCATION_UNITS};
my $OID_hrStorageSize = $centreon{MIB2}{HR_STORAGE_SIZE};
my $OID_hrStorageUsed = $centreon{MIB2}{HR_STORAGE_USED};
# create a SNMP session
my ($session, $error);
if ($snmp eq "1" || $snmp eq "2") {
($session, $error) = Net::SNMP->session(-hostname => $opt_H, -community => $opt_C, -version => $snmp, -port => $opt_P);
if (!defined($session)) {
print("UNKNOWN: SNMP Session : $error\n");
exit $ERRORS{'UNKNOWN'};
}
} elsif ($opt_k) {
($session, $error) = Net::SNMP->session(-hostname => $opt_H, -version => $snmp, -username => $opt_u, -authkey => $opt_k, -port => $opt_P);
if (!defined($session)) {
print("UNKNOWN: SNMP Session : $error\n");
exit $ERRORS{'UNKNOWN'};
}
} elsif ($opt_p) {
($session, $error) = Net::SNMP->session(-hostname => $opt_H, -version => $snmp, -username => $opt_u, -authpassword => $opt_p, -port => $opt_P);
if (!defined($session)) {
print("UNKNOWN: SNMP Session : $error\n");
exit $ERRORS{'UNKNOWN'};
}
}
$session->translate(Net::SNMP->TRANSLATE_NONE) if (defined($session));
my ($session_params) = Centreon::SNMP::Utils::check_snmp_options($ERRORS{'UNKNOWN'}, \%OPTION);
my $session = Centreon::SNMP::Utils::connection($ERRORS{'UNKNOWN'}, $session_params);
my $cacheFile = "@CENTPLUGINS_TMP@/remote_storage_cache_".$opt_H;
my $cacheFile = "@CENTPLUGINS_TMP@/remote_storage_cache_" . $OPTION{'host'};
my $result;
my $mustCreateFile = 0;
my $row;
@ -243,37 +206,45 @@ my $countLine;
# Cache File exists, lets read it
#
if (-e $cacheFile) {
my $one_line = 0;
open(FILE,"<".$cacheFile);
$countLine = 0;
while ($row = <FILE>){
if (!$countLine) {
my $deltaTime = time() - $row;
if ($deltaTime > ($opt_a * 3600)) {
$mustCreateFile = 1;
}
$row = <FILE>;
if (defined($row)) {
chomp $row;
my $deltaTime = time() - $row;
if ($deltaTime > ($opt_a * 3600)) {
$mustCreateFile = 1;
}
$countLine++;
$one_line = 1 if (!<FILE>);
}
close(FILE);
}
else {
# Manage file empty or line 1 empty
if (!defined($row) || $row eq '' || $one_line == 1) {
$mustCreateFile = 1;
}
} else {
$mustCreateFile = 1;
}
if ($mustCreateFile) {
$result = $session->get_table(Baseoid => $OID_hrStorageDescr);
$result = Centreon::SNMP::Utils::get_snmp_table($OID_hrStorageDescr, $session, $ERRORS{'UNKNOWN'}, \%OPTION);
unless (open(FILE,">".$cacheFile)){
print "Check mod for temporary file : ".$cacheFile."...\n";
exit $ERRORS{"UNKNOWN"};
}
my $currentTime = time();
print FILE $currentTime."\n";
my $first = 0;
foreach my $key (oid_lex_sort(keys %$result)) {
if (defined($opt_t) && $opt_t eq "AS400"){
$result->{$key} =~ s/\ //g;
}
my @oid_list = split (/\./,$key);
my $partitionIndex = pop (@oid_list);
my @oid_list = split (/\./,$key);
my $partitionIndex = pop (@oid_list);
if ($first == 0) {
print FILE $currentTime."\n";
$first = 1;
}
print FILE $partitionIndex.";".$result->{$key}."\n";
}
close(FILE);
@ -288,29 +259,31 @@ if ($opt_n) {
}
my $expr = "";
my $case_sensitive = 1;
if ($opt_d =~ m/^[A-Za-z]:/i) {
$opt_d =~ s/\\/\\\\/g;
$expr = "^$opt_d";
}elsif ($opt_d =~ m/^\//) {
$expr = "$opt_d\$";
}else {
$expr = "$opt_d";
$opt_d =~ s/\\/\\\\/g;
$expr = "^$opt_d";
} elsif ($opt_d =~ m/^\//) {
$expr = "^$opt_d\$";
} else {
$case_sensitive = 0;
$expr = "$opt_d";
}
open(FILE,"<".$cacheFile);
$countLine = 0;
while ($row = <FILE>){
chomp $row;
if ($countLine) {
my @resLine = split(/\;/, $row);
if ($resLine[1] =~ m/$expr/) {
$partition = $resLine[0];
if ($case_sensitive == 1 && $resLine[1] =~ /$expr/) {
$partition = $resLine[0];
} elsif ($case_sensitive == 0 && $resLine[1] =~ /$expr/i) {
$partition = $resLine[0];
}
}
$countLine++;
}
if ($countLine == 1) {
unlink($cacheFile);
}
close(FILE);
}
@ -330,25 +303,16 @@ if ($opt_s) {
$countLine++;
}
close(FILE);
exit $ERRORS{'OK'};
exit $ERRORS{'OK'};
}
$result = $session->get_request(
-varbindlist => [$OID_hrStorageDescr.".".$partition ,
$OID_hrStorageAllocationUnits.".".$partition ,
$OID_hrStorageSize.".".$partition,
$OID_hrStorageUsed.".".$partition
]
);
if (!defined($result)) {
printf("ERROR: %s.\n", $session->error);
if ($opt_n) { print(" - You must specify the disk name when option -n is used");}
print ".\n";
$session->close;
exit $ERRORS{'UNKNOWN'};
}
$result = Centreon::SNMP::Utils::get_snmp_leef([$OID_hrStorageDescr.".".$partition,
$OID_hrStorageAllocationUnits.".".$partition,
$OID_hrStorageSize.".".$partition,
$OID_hrStorageUsed.".".$partition
], $session, $ERRORS{'UNKNOWN'},
defined($opt_n) ? " Cases: 1) SNMP not working. 2) specify the disk name when option -n is used. 3) Disk not exist. 4) Delete cache file '$cacheFile' (maybe corrupted)" : undef);
$hrStorageDescr = $result->{$OID_hrStorageDescr.".".$partition };
$AllocationUnits = $result->{$OID_hrStorageAllocationUnits.".".$partition };
@ -357,9 +321,9 @@ $Used = $result->{$OID_hrStorageUsed.".".$partition };
$hrStorageLabel = $hrStorageDescr;
if ($hrStorageDescr =~ /Label:(.*) Serial Number/) {
$hrStorageLabel = $1;
$hrStorageLabel = $1;
} else {
$hrStorageLabel = '';
$hrStorageLabel = '';
}
@ -372,7 +336,7 @@ if (!$Size){
if (($Size =~ /([0-9]+)/) && ($AllocationUnits =~ /([0-9]+)/)){
if ($hrStorageDescr =~ /\:/){
if ($hrStorageDescr =~ /\:/){
my @tab = split(/\:/, $hrStorageDescr);
$hrStorageDescr = $tab[0] . ":";
}
@ -383,7 +347,9 @@ if (($Size =~ /([0-9]+)/) && ($AllocationUnits =~ /([0-9]+)/)){
}
$tot = 1;
$tot = $Size * $AllocationUnits;
if (!$tot){$tot = 1;}
if (!$tot) {
$tot = 1;
}
$used = $Used * $AllocationUnits;
$pourcent = ($used * 100) / $tot;
@ -399,7 +365,6 @@ if (($Size =~ /([0-9]+)/) && ($AllocationUnits =~ /([0-9]+)/)){
my $freeGB = $freeMB / 1024;
# Plugin return code
if ($criticalMB ? ($freeMB <= $critical) : ($pourcent >= $critical)) {
print "Disk CRITICAL - ";
$return_code = 2;
@ -413,17 +378,17 @@ if (($Size =~ /([0-9]+)/) && ($AllocationUnits =~ /([0-9]+)/)){
if ($hrStorageDescr){
$hrStorageDescr =~ s/\ //g if (defined($opt_t) && $opt_t eq "AS400");
my $warn; my $crit;
my $warn; my $crit;
$warn = $warningMB ? $tot-$warning*1024*1024 : int($warning * $tot / 100);
$crit = $criticalMB ? $tot-$critical*1024*1024 : int($critical * $tot / 100);
if ($opt_M){
printf($hrStorageDescr . " TOTAL: %dMB USED: %dMB (%d%%) FREE: %dMB (%d%%)", $totMB, $usedMB, $pourcent, $freeMB, 100-$pourcent );
} else {
if ($opt_M) {
printf($hrStorageDescr . " TOTAL: %dMB USED: %dMB (%d%%) FREE: %dMB (%d%%)", $totMB, $usedMB, $pourcent, $freeMB, 100-$pourcent );
} else {
printf($hrStorageDescr . " TOTAL: %.3fGB USED: %.3fGB (%d%%) FREE: %.3fGB (%d%%)", $totGB, $usedGB, $pourcent, $freeGB, 100-$pourcent );
}
if ($opt_L) {
print " - ".$hrStorageLabel;
}
}
if ($opt_L) {
print " - ".$hrStorageLabel;
}
print "|size=".$tot."B used=".$used."B;".$warn.";".$crit.";0;".$tot."\n";
exit $return_code;
} else {
@ -438,15 +403,22 @@ if (($Size =~ /([0-9]+)/) && ($AllocationUnits =~ /([0-9]+)/)){
sub print_usage () {
print "\nUsage:\n";
print "$PROGNAME\n";
print " -H (--hostname) Hostname to query - (required)\n";
print " -C (--community) SNMP read community (default: public)\n";
print " -H (--hostname) Hostname to query (required)\n";
print " -C (--community) SNMP read community (defaults to public)\n";
print " used with SNMP v1 and v2c\n";
print " -v (--snmp_version) 1 for SNMP v1 (default)\n";
print " -v (--snmp-version) 1 for SNMP v1 (default)\n";
print " 2 for SNMP v2c\n";
print " -P (--snmp-port) SNMP port (default: 161)\n";
print " 3 for SNMP v3\n";
print " -P (--snmp-port) SNMP port (default: 161)\n";
print " -k (--key) snmp V3 key\n";
print " -u (--username) snmp V3 username \n";
print " -p (--password) snmp V3 password\n";
print " -u (--username) snmp v3 username \n";
print " --authprotocol protocol MD5/SHA1 (v3)\n";
print " --privprotocol encryption system (DES/AES)(v3) \n";
print " --privpassword passphrase (v3) \n";
print " --64-bits Use 64 bits OID\n";
print " --maxrepetitions To use when you have the error: 'Message size exceeded buffer maxMsgSize'\n";
print " Work only with SNMP v2c and v3 (Example: --maxrepetitions=1)\n";
print " -d (--disk) Set the disk (number expected) ex: 1, 2,... (default: 2 )\n";
print " -n (--name) Allows to use disk name with option -d instead of disk oid index\n";
print " (ex: -d \"C:\" -n, -d \"E:\" -n, -d \"Swap Memory\" -n, -d \"Real Memory\" -n\n";
@ -465,6 +437,7 @@ sub print_usage () {
print " -V (--version) Plugin version\n";
print " -L add Windows drive label to output\n";
print " -M Shows the size in output in MB instead of GB\n";
print " -t To use for AIX or AS/400 (ex. 'AIX' or 'AS/400'\n";
print " -a (--cache) Updates cache file every n hours instead of doing snmpwalk for every check (default: 3)\n";
print " -h (--help) usage help\n";
@ -472,7 +445,7 @@ sub print_usage () {
sub print_help () {
print "##############################################\n";
print "# Copyright (c) 2004-2011 Centreon #\n";
print "# Copyright (c) 2004-2013 Centreon #\n";
print "# Bugs to http://forge.centreon.com/ #\n";
print "##############################################\n";
print_usage();