From a379636d8c069c19ab5238beb2f49a9b06b71b58 Mon Sep 17 00:00:00 2001 From: Nicolai Langfeldt Date: Wed, 6 Sep 2006 15:08:46 +0000 Subject: [PATCH] Bah, redundant work --- node/node.d/snmp__winload.in | 95 ------------------------------------ 1 file changed, 95 deletions(-) delete mode 100755 node/node.d/snmp__winload.in diff --git a/node/node.d/snmp__winload.in b/node/node.d/snmp__winload.in deleted file mode 100755 index 5f9be36b21..0000000000 --- a/node/node.d/snmp__winload.in +++ /dev/null @@ -1,95 +0,0 @@ -#!@@PERL@@ -# -# Copyright (C) 2004-2006 Jimmy Olsen, Dagfinn Ilmari Mannsaaker -# -# 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. -# -#%# family=snmpauto -#%# capabilities=snmpconf - -use strict; -use Net::SNMP; -use Data::Dumper; - -my $DEBUG = 0; -my $MAXLABEL = 20; - -my $host = $ENV{host} || undef; -my $port = $ENV{port} || 161; -my $community = $ENV{community} || "public"; -my $iface = $ENV{interface} || undef; - -if (defined $ARGV[0] and $ARGV[0] eq "snmpconf") -{ - print "require 1.3.6.1.2.1.25.3.3.1.2. [0-9]\n"; # Number - exit 0; -} - -if ($0 =~ /^(?:|.*\/)snmp_([^_]+)_winload$/) -{ - $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"; -} - -my $result = $session->get_table ('-baseoid' => '1.3.6.1.2.1.25.3.3.1.2'); -my $cpu; - -if (defined $ARGV[0] and $ARGV[0] eq "config") { - print "host_name $host\n"; - print "graph_title Windows CPU load -graph_args --base 1000 -l 0 -graph_vlabel Load -graph_scale no -graph_category System -graph_info This graph shows the CPU load of a windows system. -"; - my $draw='AREA'; - - foreach my $key (keys %{$result}) { - ($cpu) = ( $key =~ m/\.(\d+)$/ ); - print "cpu$cpu.label CPU $cpu\n"; - print "cpu$cpu.info Load on CPU $cpu\n"; - print "cpu$cpu.draw $draw\n"; - $draw='STACK'; - } - exit 0; -} - -# Print values - -foreach my $key (keys %{$result}) { - ($cpu) = ( $key =~ m/\.(\d+)$/ ); - print "cpu$cpu.value ",$result->{$key},"\n"; -}