From 4943ded33643e95c4917854826cc5528e73cca52 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Diego=20Elio=20Petten=C3=B2?= Date: Mon, 12 Nov 2012 17:39:05 -0800 Subject: [PATCH] snmp__if_: remove in favour of snmp__if_ in main repository. --- plugins/snmp/snmp__if_ | 170 ----------------------------------------- 1 file changed, 170 deletions(-) delete mode 100755 plugins/snmp/snmp__if_ diff --git a/plugins/snmp/snmp__if_ b/plugins/snmp/snmp__if_ deleted file mode 100755 index 25470ad8..00000000 --- a/plugins/snmp/snmp__if_ +++ /dev/null @@ -1,170 +0,0 @@ -#!/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"; -}