Munin contributed plugins

#! /usr/bin/perl -w

#

# This plugin will graph the chassis fan speed on a Dell PowerEdge Server

# via the ipmi-sensors tool. It has been tested on the following chassis:

# 

#   PE1850

#

# To enable: 

#

#   ln -s /usr/share/munin/plugins/ipmi-fans /etc/munin/plugins/ipmi-fans

#

# Configuration parameters for /etc/munin/plugin-conf.d/munin-node

#

# [ipmi_fans]

#   user 	 - User that has permissions to run the omreport binary

#   env.omreport - Path to the omreport binary

#

# Parameters:

#

#   config

#   autoconf

#

# Author: Alexx Roche <munin-ipmi-plugin@alexx.net>

# Built on the work of Justin Shepherd <galstrom21@gmail.com>

# Revision: 2.1  2011/01/10

#

#%# family=auto

#%# capabilities=autoconf

use strict;

my $IPMI;

if(-f "/usr/sbin/ipmi-sensors"){ $IPMI='/usr/sbin/ipmi-sensors'; }

unless($IPMI){

   $IPMI = `which ipmi-sensors 2>/dev/null|sed 's/.*no ipmi-sensors//'`; 

   #$IPMI = `echo -n \$(which ipmi-sensors)`;

}

chomp($IPMI);

unless($IPMI){ exit 1; }

if ($ARGV[0] && $ARGV[0] eq "autoconf"){

    if (-f $IPMI){

	print "yes\n";

    }else{

	print "no ($IPMI does not exist)\n";

	exit(1);

    }

}else{

        my $cmd = "$IPMI --verbose --sensors=\"\$(echo \$($IPMI |grep FAN|sed 's/:.*//'))\"";

	#if ($ARGV[0] eq 'cmd'){ print $cmd; exit;};

        my @result = `$cmd`;

        my (%val, $index);

	$index=0;

	my $count=0;

	#Four of these seem to be unlabled, I'm going to guess that they are the CPU(s) and HDD(s)

	my @unknown = ('HDD0','HDD1','CPU0','CPU1');

        foreach my $line (@result) {

                $line =~ s/\s+/ /g;

                $line =~ s/\s$//g;

                if(!$line || $line eq ""){

			$index++;

			next;

		}

                my ($key, $val) = split(/\: /, $line);

		unless($key){

		#	$index++;

	#		next;

		}

                if($key eq 'Sensor Name'){

		    if($val eq 'Temp'){

			$val = $unknown[$count];

			$count++;

		    }

                    #my @data = split / /, $val;

		    #$data[2]=~s/^\(//;

		    #$data[2]=~s/\)$//;

		    	#my($warn,$crit) = split/\//, $data[2];

                   $val{$index}{'Probe Name'} = "$val";

		}elsif($key eq 'Upper Critical Threshold'){

		    $val=~s/ .*$//;

		    next unless $val=~m/^\d+\.\d+$/;

                    $val{$index}{'Critical Threshold'} = "$val";

		}elsif($key eq 'Normal Max.'){

		    $val=~s/ .*//;

                    $val{$index}{'Warning Threshold'} = $val;

                }elsif($key eq 'Sensor Reading'){

		    $val=~s/ .*//;

                    $val{$index}{'Reading'} = $val;

		}elsif($key eq 'Sensor Max. Reading' && !$val{$index}{'Critical Threshold'}){

		    $val=~s/ .*$//;

                    $val{$index}{'Critical Threshold'} = "$val";

		}

        }

        if ($ARGV[0] && $ARGV[0] eq "config") {

                print "graph_title IPMI - Fan Speeds\n";

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

                print "graph_vlabel Speed in RPM\n";

                print "graph_category Sensors\n";

                foreach my $j (sort keys %val) {

                        print "probe_$j\.label $val{$j}{'Probe Name'}\n";

                        print "probe_$j\.warning $val{$j}{'Warning Threshold'}\n";

                        print "probe_$j\.critical $val{$j}{'Critical Threshold'}\n";

                }

        }else{

             foreach my $j (sort keys %val) {

                if($val{$j}{'Reading'}){

		   print "probe_$j.value $val{$j}{'Reading'}\n";

		}

             }

        }

}

exit(0);