plugins/snmp/snmp__netapp_* initial checkin of my snmp__netapp_ plugins.

plugins/snmp/snmp__netapp_cpu2

@@ -0,0 +1,145 @@
+#!/usr/bin/perl
+# -*- perl -*-
+# vim: ft=perl
+
+=head1 NAME
+
+snmp__netapp_cifs -  Munin plugin to retrieve cpu information from NetApp storage appliances.
+
+=head1 APPLICABLE SYSTEMS
+
+cpu should be reported by any NetApp storage appliance
+with SNMP agent daemon activated. See na_snmp(8) for details.
+
+=head1 CONFIGURATION
+
+Unfortunately, SNMPv3 is not fully supported on all NetApp equipments.
+For this reason, this plugin will use SNMPv2 by default, which is
+insecure because it doesn't encrypt the community string.
+
+The following parameters will help you get this plugin working :
+
+[snmp_*]
+env.community MyCommunity
+
+If your community name is 'public', you should really worry about
+security and immediately reconfigure your appliance.
+
+Please see 'perldoc Munin::Plugin::SNMP' for further configuration.
+
+=head1 INTERPRETATION
+
+The plugin reports various cpu busy and idle.
+
+=head1 MIB INFORMATION
+
+This plugin requires support for the NETWORK-APPLIANCE-MIB issued by
+Network Appliance. It reports the content of the cpu OID.
+
+=head1 MAGIC MARKERS
+
+  #%# family=snmpauto
+  #%# capabilities=snmpconf
+
+=head1 BUGS
+
+This plugin wasn't tested on many hardware and only on Ontap 7.3.x.
+
+=head1 AUTHOR
+
+2013, Claudius Herder
+NetApp is a registered trademark and Network Appliance is a trademark
+of Network Appliance, Inc. in the U.S. and other countries.
+
+=head1 LICENSE
+
+GPLv2.
+
+=cut
+
+use strict;
+use warnings;
+use Munin::Plugin::SNMP;
+
+my %oids =
+(
+#   cpuUpTime                => 'CPU_UPTIME',
+#   cpuBusyTime              => 'CPU_BUSYTIME',
+    cpuBusyTimePerCent       => 'Busy',
+#   cpuIdleTime              => 'CPU_IDLETIME',
+    cpuIdleTimePerCent       => 'Idle',
+#   cpuCount                 => 'CPU_COUNT',
+#   cpuSwitchInvocations     => 'CPU_SWTICHINVOCATIONS',
+#   cpuContextSwitches       => 'CPU_CONTEXTSWITCHES',
+#   cpuInterrupts            => 'CPU_INTERRUPTS',
+#   cpuNonCPInterrupts       => 'CPU_NONCPINTERRUPTS',
+#   cpuCPInterruptPercent    => 'CPU_CPINTERRUPTPERCENT',
+#   cpuNonCPInterruptPercent => 'CPU_NONCPINTERRUPTPERCENT',
+#   cpuTotalDomainSwitches   => 'CPU_TOTALDOMAINSWITCHES',
+);
+
+if (defined $ARGV[0] and $ARGV[0] eq 'snmpconf')
+{
+    print "require 1.3.6.1.4.1.789.1.2.1. [0-9]\n";
+    exit 0;
+}
+
+my $session = Munin::Plugin::SNMP->session();
+
+if (defined $ARGV[0] and $ARGV[0] eq "config")
+{
+    my ($host, undef, undef, undef) = Munin::Plugin::SNMP->config_session();
+    print "host_name $host\n" unless $host eq 'localhost';
+    print "graph_title $host CPU \n";
+    print "graph_args --base 1000 -r --lower-limit 0 --upper-limit 100\n";
+    print "graph_vlabel CPU \n";
+    print "graph_category CPU\n";
+    print "graph_info This graph shows cpu busy value for the $host in percent.\n";
+    print "graph_order ";
+    foreach (sort keys %oids)
+    {
+        print "$_ ";
+    }
+    print "\n";
+    foreach my $k (sort keys %oids)
+    {
+        print "$k.info The cpu $oids{$k} value in percent\n";
+        print "$k.label $oids{$k}\n";
+        print "$k.min 0\n";
+        print "$k.draw AREASTACK\n";
+        print "$k.type GAUGE\n";
+    }
+    exit 0;
+}
+
+my $values = $session->get_hash
+(
+    -baseoid => '1.3.6.1.4.1.789.1.2.1',
+    -cols =>
+    {
+#       1  => 'cpuUpTime',
+#       2  => 'cpuBusyTime',
+        3  => 'cpuBusyTimePerCent',
+#       4  => 'cpuIdleTime',
+        5  => 'cpuIdleTimePerCent',
+#       6  => 'cpuCount',
+#       7  => 'cpuSwitchInvocations',
+#       8  => 'cpuContextSwitches',
+#       9  => 'cpuInterrupts',
+#       10 => 'cpuNonCPInterrupts',
+#       11 => 'cpuCPInterruptPercent',
+#       12 => 'cpuNonCPInterruptPercent',
+#       13 => 'cpuTotalDomainSwitches',
+    },
+);
+
+foreach my $k (keys %oids)
+{
+    my $v = 'U';
+    $v = $values->{0}->{$k} if (defined $values);
+    print "$k.value $v\n";
+}
+
+exit 0;
+
+__END__