242 lines
7.0 KiB
Perl
Executable File
242 lines
7.0 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
# -*- perl -*-
|
|
# vim: ft=perl
|
|
|
|
=head1 NAME
|
|
|
|
snmp__cisco_ - Munin plugin to monitor arbitrary SNMP MIBs on Cisco Switches.
|
|
|
|
This currently only supports the CISCO-ENVMON-MIB (definitions found in
|
|
ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz).
|
|
|
|
=head2 EXTENDING THE PLUGIN
|
|
|
|
This plugin is designed to be extensible, by adding descriptors to the %params
|
|
hash.
|
|
|
|
The assumption is that each monitored instance will have at least a Descr and a
|
|
Value (or a State, as a fallback), and potentially either one Threshold or a
|
|
range (ThresholdLow:ThresholdHigh).
|
|
|
|
Each sub-hash in the %params hash must list all those bojects, and the matching
|
|
OID (or 0 if irrelevant). It should also include the Munin graph details (title,
|
|
category, info, ...), an optional cdef, and an instancePrefix used when naming
|
|
the values (by prepending them to the entry OID).
|
|
|
|
=head1 APPLICABLE SYSTEMS
|
|
|
|
Cisco Switches with SNMP support; maybe other SNMP devices too, if the %params
|
|
get extended.
|
|
|
|
=head1 CONFIGURATION
|
|
|
|
As a rule SNMP plugins need site specific configuration. The default
|
|
configuration (shown here) will only work on insecure sites/devices.
|
|
|
|
[snmp_*]
|
|
env.version 2
|
|
env.community public
|
|
|
|
In general SNMP is not very secure at all unless you use SNMP version
|
|
3 which supports authentication and privacy (encryption). But in any
|
|
case the community string for your devices should not be "public".
|
|
|
|
Please see 'perldoc Munin::Plugin::SNMP' for further configuration
|
|
information
|
|
|
|
=head1 MAGIC MARKERS
|
|
|
|
#%# family=snmpauto
|
|
#%# capabilities=snmpconf suggest
|
|
|
|
=head1 BUGS
|
|
|
|
EnvMonVoltage hasn't been tested.
|
|
|
|
snmpconf doesn't actually work, as this wildard plugin targets classe of MIBs,
|
|
rather than single instances of an object.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Copyright (C) 2015 James DeVincentis (snmp__cisco_sbs_cpu)
|
|
Copyright (C) 2020 Olivier Mehani <shtrom+munin@ssji.net>
|
|
|
|
=head1 LICENSE
|
|
|
|
SPDX-License-Identifier: GPL-3.0
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use Munin::Plugin::SNMP;
|
|
use Data::Dumper;
|
|
|
|
my $entPhysicalIndexMib = '1.3.6.1.2.1.47.1.1.1.1.1';
|
|
my $entPhysicalDescrMib = '1.3.6.1.2.1.47.1.1.1.1.2';
|
|
my $ciscoEnvMonObjectsMib = '1.3.6.1.4.1.9.9.13.1';
|
|
|
|
my %params = (
|
|
'EnvMonVoltage' => {
|
|
'title' => 'Voltages',
|
|
'category' => 'sensors',
|
|
'vlabel' => 'volts',
|
|
'info' => "The table of voltage status maintained by the environmental monitor.",
|
|
'cdef' => '1000,*',
|
|
|
|
'baseMib' => "$ciscoEnvMonObjectsMib.2.1",
|
|
'descrOid' => 2,
|
|
'valueOid' => 3,
|
|
'thresholdLowOid' => 4,
|
|
'thresholdHighOid' => 5,
|
|
'thresholdOid' => 0, # n/a
|
|
'stateOid' => 6,
|
|
|
|
'instancePrefix' => 'voltage',
|
|
},
|
|
'EnvMonTemperature' => {
|
|
'title' => 'Temperatures',
|
|
'category' => 'sensors',
|
|
'vlabel' => 'Degrees Celsius',
|
|
'info' => "The table of ambient temperature status maintained by the environmental monitor.",
|
|
|
|
'baseMib' => "$ciscoEnvMonObjectsMib.3.1",
|
|
'descrOid' => 2,
|
|
'valueOid' => 3,
|
|
'thresholdLowOid' => 0, # n/a
|
|
'thresholdHighOid' => 0, # n/a
|
|
'thresholdOid' => 4,
|
|
'stateOid' => 6,
|
|
|
|
'instancePrefix' => 'temp',
|
|
},
|
|
'EnvMonFanStatus' => {
|
|
'title' => 'Fans',
|
|
'category' => 'sensors',
|
|
'vlabel' => 'state',
|
|
'info' => "The table of fan status maintained by the environmental monitor (1=normal, 2=warning, 3=critical, 4=shutdown, 5=notPresent, 6=notFunctioning).\n", # CiscoEnvMonState
|
|
|
|
'baseMib' => "$ciscoEnvMonObjectsMib.4.1",
|
|
'descrOid' => 2,
|
|
'valueOid' => 0, # n/a
|
|
'thresholdLowOid' => 0, # n/a
|
|
'thresholdHighOid' => 0, # n/a
|
|
'thresholdOid' => 0, # n/a
|
|
'stateOid' => 3,
|
|
|
|
'instancePrefix' => 'fan',
|
|
},
|
|
'EnvMonSupplyStatus' => {
|
|
'title' => 'Power supplies',
|
|
'category' => 'sensors',
|
|
'vlabel' => 'state',
|
|
'info' => "The table of power supply status maintained by the environmental monitor card (1=normal, 2=warning, 3=critical, 4=shutdown, 5=notPresent, 6=notFunctioning).\n", # CiscoEnvMonState
|
|
|
|
'baseMib' => "$ciscoEnvMonObjectsMib.5.1",
|
|
'descrOid' => 2,
|
|
'valueOid' => 0, # n/a
|
|
'thresholdLowOid' => 0, # n/a
|
|
'thresholdHighOid' => 0, # n/a
|
|
'thresholdOid' => 0, # n/a
|
|
'stateOid' => 3,
|
|
|
|
'instancePrefix' => 'supply',
|
|
},
|
|
);
|
|
|
|
|
|
my ($object) = $0 =~ m/([^_]+)$/;
|
|
$object ||= 'EnvMonTemperature';
|
|
|
|
if (defined $ARGV[0] and $ARGV[0] eq 'suggest') {
|
|
print join(' ', keys (%params)) . "\n";
|
|
exit 0;
|
|
}
|
|
|
|
if (defined $ARGV[0] and $ARGV[0] eq 'snmpconf') {
|
|
print "index $entPhysicalIndexMib.\n";
|
|
print "require $params{$object}{baseMib}.$params{$object}{valueOid}. [0-9]\n";
|
|
exit 0;
|
|
}
|
|
|
|
my $session = Munin::Plugin::SNMP->session();
|
|
|
|
my $values = $session->get_hash(
|
|
-baseoid => "$params{$object}{baseMib}",
|
|
-cols => {
|
|
$params{$object}{descrOid} => 'Descr',
|
|
$params{$object}{valueOid} => 'Value',
|
|
$params{$object}{thresholdHighOid} => 'ThresholdHigh',
|
|
$params{$object}{thresholdLowOid} => 'ThresholdLow',
|
|
$params{$object}{thresholdOid} => 'Threshold',
|
|
$params{$object}{stateOid} => 'State',
|
|
}
|
|
);
|
|
|
|
# For some reason, some instanceIds are returned with trailing spaces,
|
|
# sometimes. Flatten them.
|
|
foreach my $instanceId (keys %{$values}) {
|
|
my $instanceIdTrim = $instanceId;
|
|
$instanceIdTrim =~ s/\s+$//;
|
|
if (!($instanceIdTrim eq $instanceId)) {
|
|
foreach my $data (keys %{$values->{$instanceId}}) {
|
|
$values->{$instanceIdTrim}->{$data} = $values->{$instanceId}->{$data}
|
|
}
|
|
delete $values->{$instanceId};
|
|
}
|
|
}
|
|
|
|
if (defined $ARGV[0] and $ARGV[0] eq "config") {
|
|
my ($host) = Munin::Plugin::SNMP->config_session();
|
|
|
|
print "host_name $host\n" unless $host eq 'localhost';
|
|
print <<"EOF";
|
|
graph_title $params{$object}{title}
|
|
graph_args --base 1000
|
|
graph_vlabel $params{$object}{vlabel}
|
|
graph_category $params{$object}{category}
|
|
graph_info $params{$object}{info}
|
|
EOF
|
|
foreach my $instanceId (keys %{$values}) {
|
|
print "$params{$object}{instancePrefix}$instanceId.draw LINE1\n";
|
|
print "$params{$object}{instancePrefix}$instanceId.label "
|
|
. $session->get_single("$entPhysicalDescrMib.$instanceId") . "\n";
|
|
|
|
my $descr = $values->{$instanceId}->{'Descr'};
|
|
print "$params{$object}{instancePrefix}$instanceId.info $descr\n";
|
|
|
|
my $value = $values->{$instanceId}->{'Value'};
|
|
if ($value) {
|
|
|
|
my $cdef = $params{$object}{'cdef'};
|
|
if ($cdef) {
|
|
print "$params{$object}{instancePrefix}$instanceId.cdef "
|
|
. "$params{$object}{instancePrefix}$instanceId,$cdef\n";
|
|
}
|
|
|
|
my $threshold = $values->{$instanceId}->{'Threshold'};
|
|
my $thresholdHigh = $values->{$instanceId}->{'ThresholdHigh'};
|
|
my $thresholdLow = $values->{$instanceId}->{'ThresholdLow'};
|
|
if ($thresholdHigh || $thresholdLow) {
|
|
print "$params{$object}{instancePrefix}$instanceId.critical $thresholdLow:$thresholdHigh\n";
|
|
} elsif ($threshold) {
|
|
print "$params{$object}{instancePrefix}$instanceId.critical $threshold\n";
|
|
}
|
|
|
|
} else {
|
|
# assume state rather than value, add limits
|
|
print "$params{$object}{instancePrefix}$instanceId.warning 2\n";
|
|
print "$params{$object}{instancePrefix}$instanceId.critical 3\n";
|
|
}
|
|
}
|
|
|
|
exit 0;
|
|
}
|
|
|
|
foreach my $instanceId (keys %{$values}) {
|
|
my $value = $values->{$instanceId}->{'Value'} || 'U';
|
|
if ($value eq 'U') {
|
|
$value = $values->{$instanceId}->{'State'} || 'U';
|
|
}
|
|
print "$params{$object}{instancePrefix}$instanceId.value $value\n";
|
|
}
|