diff --git a/plugins/snmp/snmp__cpu b/plugins/snmp/snmp__cpu deleted file mode 100755 index b3151137..00000000 --- a/plugins/snmp/snmp__cpu +++ /dev/null @@ -1,107 +0,0 @@ -#!/usr/bin/perl -w -# -# Copyright (C) 2006 Lars Strand -# -# Munin plugin to monitor CPU-load by use of SNMP. -# Based on snmp__df plugin. -# -# 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. -# -# $Log$ -# -# -# -#%# 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 $response; - -if (defined $ARGV[0] and $ARGV[0] eq "snmpconf") -{ - print "index 1.3.6.1.2.1.25.3.3.1.2.\n"; - print "require 1.3.6.1.2.1.25.3.3.1.2.1\n"; # CPU #1 - exit 0; -} - -if ($0 =~ /^(?:|.*\/)snmp_([^_]+)_cpu$/) -{ - $host = $1; - if ($host =~ /^([^:]+):(\d+)$/) - { - $host = $1; - $port = $2; - } -} - -elsif (!defined($host)) -{ - print "# Debug: $0 -- $1\n" if $DEBUG; - die "# Error: couldn't understand what I'm supposed to monitor."; -} - -my ($session, $error) = Net::SNMP->session( - -hostname => $host, - -community => $community, - -port => $port - ); - -if (!defined ($session)) -{ - die "Croaking: $error"; -} - -# CPUs -my $hrProcessorLoad = "1.3.6.1.2.1.25.3.3.1.2."; -$response = $session->get_table($hrProcessorLoad); - -if (!defined ($response)) -{ - die "Croaking: $error"; -} - -if (defined $ARGV[0] and $ARGV[0] eq "config") -{ - print "host_name $host\n"; - print "graph_title CPU usage (in %) -graph_category system -graph_args --upper-limit 100 -l 0 -graph_vlabel % -graph_info This graph shows the CPU load on the system. -"; - foreach my $cpuoid (keys %$response) { - my @oid = split(/\./, $cpuoid); - my $cpu = pop @oid; - print "cpu$cpu.label CPU $cpu\n"; - print "cpu$cpu.info CPU load on CPU $cpu\n"; - } - exit 0; -} - -# the values -while (my ($cpuoid, $load) = each(%$response)) { - my @oid = split(/\./, $cpuoid); - my $cpu = pop @oid; - print "cpu$cpu.value $load\n"; -} -