Munin contributed plugins

# What is snmp__ipoman_

# ----------------------

# snmp__ipoman is a munin plugin written for the Ingrasys IpomanII 1202

#

# How do I use it

# ---------------

# how:

#

# 1. Copy snmp__ipoman_ to the directory where all your munin plugins

#

# 2. Make the following symlinks to snmp__ipoman_ in that same directory

#

# output current and power usage for all available outlets of the

# ipoman, and current, power usage and voltage/frequency on all inlets

# of the ipoman.

# 5. Restart munin-node

#

# 6. Make an entry in your munin server's munin.conf:

# [<hostname of ipoman as entered in 4.>]

# 	address <address of munin-node>

# 	use_node_name no

# 7. Done.

#

# Copyright (C) 2009 Rien Broekstra <rien@rename-it.nl>

# along with this program; if not, write to the Free Software

# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

#

# unit that conforms to IPOMANII-MIB via SNMP.

#

# Parameters:

#

#

# Relevant OID's under .iso.org.dod.internet.private.enterprises.ingrasys.product.pduAgent.iPoManII

# .ipmObjects.ipmDevice.ipmDeviceOutlet.ipmDeviceOutletNumber.0

# .ipmObjects.ipmDevice.ipmDeviceOutlet.ipmDeviceOutletStatusTable.ipmDeviceOutletStatusEntry.outletStatusIndex.1

# .ipmObjects.ipmDevice.ipmDeviceOutlet.ipmDeviceOutletStatusTable.ipmDeviceOutletStatusEntry.outletStatusCurrent.1

# .ipmObjects.ipmDevice.ipmDeviceOutlet.ipmDeviceOutletStatusTable.ipmDeviceOutletStatusEntry.outletStatusKwatt.1

#

# Version 0.1, Aug 4, 2009

#

#

# The relevant OID's on the IPOMAN

#

my $oid_inletvoltage   =    ".1.3.6.1.4.1.2468.1.4.2.1.3.1.3.1.2.";

my $oid_inletcurrent   =    ".1.3.6.1.4.1.2468.1.4.2.1.3.1.3.1.3.";

my $oid_inletfrequency =    ".1.3.6.1.4.1.2468.1.4.2.1.3.1.3.1.4.";

my $oid_inletenergy    =    ".1.3.6.1.4.1.2468.1.4.2.1.3.1.3.1.5.";

my $oid_outletdescription = ".1.3.6.1.4.1.2468.1.4.2.1.3.2.2.1.2.";

my $oid_outletcurrent =     ".1.3.6.1.4.1.2468.1.4.2.1.3.2.3.1.3.";

my $oid_outletenergy =      ".1.3.6.1.4.1.2468.1.4.2.1.3.2.3.1.4.";

	print "graph_args --base 1000 -l 0\n";

	print "graph_category sensors\n";

	print "graph_info This graph shows the tension and frequency to inlet $socketnumber on the Power Distribution Unit\n";

	print "voltage.label Tension (V)\n";

	print "voltage.draw LINE2\n";

	print "voltage.type GAUGE\n";

	print "graph_args --base 1000 -l 0\n";

	print "graph_category sensors\n";

	print "graph_info This graph shows the delivered current to inlet $socketnumber on the Power Distribution Unit\n";

	print "current.label Current (A)\n";

	print "current.draw AREA\n";

	print "current.type GAUGE\n";

	print "graph_args --base 1000 -l 0\n";

	print "graph_category sensors\n";

	print "graph_info This graph shows the delivered apparent and real power to inlet $socketnumber of the Power Distribution Unit\n";

	print "apparentpower.label Apparent power (kVA)\n";

	print "apparentpower.draw LINE3\n";

	print "apparentpower.type GAUGE\n";

	print "realpower.label Real power (kW)\n";

	print "realpower.draw AREA\n";

	print "realpower.type COUNTER\n";

	exit 0;

    }

    elsif ($graphtype eq "outletcurrent") {

	print "graph_title Outlet $socketnumber current\n";

	print "graph_args --base 1000 -l 0\n";

	print "graph_category sensors\n";

	print "graph_info This graph shows the delivered current to outlet $socketnumber of the Power Distribution Unit\n";

	print "current.label Delivered current (A)\n";

	print "current.draw AREA\n";

	print "current.type GAUGE\n";

    }

    elsif ($graphtype eq "outletpower") {

	print "graph_title Outlet $socketnumber power\n";

	print "graph_args --base 1000 -l 0\n";

	print "graph_category sensors\n";

	print "graph_info This graph shows the delivered apparent and real power to outlet $socketnumber of the Power Distribution Unit\n";

	print "apparentpower.label Apparent power (kVA)\n";

	print "apparentpower.draw LINE3\n";

	print "apparentpower.type GAUGE\n";

	print "realpower.label Real power (kW)\n";

	print "realpower.draw AREA\n";

	print "realpower.type COUNTER\n";

	exit 0;

    }

    exit 0;

}

elsif ($graphtype eq "inletpower") {

    my ($current, $energy, $voltage, $apparentpower);

    if (defined ($response = $session->get_request($oid_inletcurrent.$socketnumber))) {

	$current = $response->{$oid_inletcurrent.$socketnumber};

    }

}

elsif ($graphtype eq "outletpower") {

    my ($current, $energy, $voltage, $apparentpower);

    if (defined ($response = $session->get_request($oid_outletcurrent.$socketnumber))) {

	$current = $response->{$oid_outletcurrent.$socketnumber};

    }