From 45961c65437fb3560578ad5400ef189531e3d6af Mon Sep 17 00:00:00 2001 From: oz Date: Thu, 18 Jan 2007 16:14:54 +0100 Subject: [PATCH] Initial version --- plugins/other/snmp__if_ | 170 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 170 insertions(+) create mode 100755 plugins/other/snmp__if_ diff --git a/plugins/other/snmp__if_ b/plugins/other/snmp__if_ new file mode 100755 index 00000000..25470ad8 --- /dev/null +++ b/plugins/other/snmp__if_ @@ -0,0 +1,170 @@ +#!/usr/bin/perl -w +## +## Copyright (C) 2007 OZ +## +## interface-traffic including warnlevels, based on snmp__if_. +## +## supports entries for maximum bitrates in +## /etc/munin/plugin-conf.d/munin-node like: +## [snmp__if_*] +## env.levelwarn 800000 +## env.levelcrit 1000000 +## +## 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; version 2 dated June, +## 1991. +## +## 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. +## +## You should have received a copy of the GNU General Public License +## along with this program; if not, write to the Free Software +## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +## + +## Revision 0.1 2007/01/18 15:00:00 oz + +# +#%# family=snmpauto +#%# capabilities=snmpconf + +use strict; +use Net::SNMP; + +my $DEBUG = 0; + +my $host = $ENV{host} || undef; +my $port = $ENV{port} || 161; +my $community = $ENV{community} || "public"; +my $iface = $ENV{interface} || undef; + +my $response; + +if (defined $ARGV[0] and $ARGV[0] eq "snmpconf") +{ + print "number 1.3.6.1.2.1.2.1.0\n"; + print "index 1.3.6.1.2.1.2.2.1.1.\n"; + print "require 1.3.6.1.2.1.2.2.1.3. ^(6|23)\$\n"; # Type + print "require 1.3.6.1.2.1.2.2.1.5. [1-9]\n"; # Speed + exit 0; +} + +if ($0 =~ /^(?:|.*\/)snmp_([^_]+)_if_(.+)$/) +{ + $host = $1; + $iface = $2; + if ($host =~ /^([^:]+):(\d+)$/) + { + $host = $1; + $port = $2; + } +} +elsif (!defined($host)) +{ + print "# Debug: $0 -- $1 -- $2\n" if $DEBUG; + die "# Error: couldn't understand what I'm supposed to monitor."; +} + +my $ifEntryDescr = "1.3.6.1.2.1.2.2.1.2.$iface"; +my $ifEntrySpeed = "1.3.6.1.2.1.2.2.1.5.$iface"; +my $ifEntryStatus = "1.3.6.1.2.1.2.2.1.8.$iface"; +my $ifEntryInOctets = "1.3.6.1.2.1.2.2.1.10.$iface"; +my $ifEntryOutOctets = "1.3.6.1.2.1.2.2.1.16.$iface"; + +my ($session, $error) = Net::SNMP->session( + -hostname => $host, + -community => $community, + -port => $port + ); + +if (!defined ($session)) +{ + die "Croaking: $error"; +} + +if ($ARGV[0] and $ARGV[0] eq "config") +{ + print "host_name $host\n"; + if (!defined ($response = $session->get_request($ifEntryDescr))) + { + die "Croaking: " . $session->error(); + } + my $name = $response->{$ifEntryDescr}; + $name =~ s/[^\w\s]//g; + my $warn = undef; + if (defined ($response = $session->get_request($ifEntrySpeed))) + { + $warn = $response->{$ifEntrySpeed}/8; + } + my $levelwarn=undef; + $levelwarn=$ENV{levelwarn} if defined($ENV{levelwarn}); + my $levelcrit=undef; + $levelcrit=$ENV{levelcrit} if defined($ENV{levelcrit}); + if (length ($name) > 15) + { + print "graph_title Interface $iface traffic\n"; + } + else + { + print "graph_title Interface $name traffic\n"; + } + print "graph_order recv send\n"; + print "graph_args --base 1000\n"; + print "graph_vlabel bits in (-) / out (+) per \${graph_period}\n"; + print "graph_category network\n"; + print "graph_info This graph shows traffic for the \"$name\" network interface.\n"; + print "send.info Bits sent/received by this interface.\n"; + print "recv.label recv\n"; + print "recv.type DERIVE\n"; + print "recv.graph no\n"; + print "recv.cdef recv,8,*\n"; + print "recv.max 2000000000\n"; + print "recv.min 0\n"; + print "recv.warn ", (-$warn), "\n" if defined $warn; + print "recv.warning $levelwarn\n" if defined $levelwarn; + print "recv.critical $levelcrit\n" if defined $levelcrit; + print "send.label bps\n"; + print "send.type DERIVE\n"; + print "send.negative recv\n"; + print "send.cdef send,8,*\n"; + print "send.max 2000000000\n"; + print "send.min 0\n"; + print "send.warn $warn\n" if defined $warn; + print "send.warning $levelwarn\n" if defined $levelwarn; + print "send.critical $levelcrit\n" if defined $levelcrit; + exit 0; +} + +my $status = 1; +if (defined ($response = $session->get_request($ifEntryStatus))) +{ + $status = $response->{$ifEntryStatus}; +} + +if ($status == 2) +{ + print "recv.value U\n"; + print "send.value U\n"; + exit 0; +} + +if (defined ($response = $session->get_request($ifEntryInOctets))) +{ + print "recv.value ", $response->{$ifEntryInOctets}, "\n"; +} +else +{ + print "recv.value U\n"; +} + +if (defined ($response = $session->get_request($ifEntryOutOctets))) +{ + print "send.value ", $response->{$ifEntryOutOctets}, "\n"; +} +else +{ + print "send.value U\n"; +}