#!/usr/bin/env perl -w
#
# Plugin to monitor Proliant server health status using hpasmcli.
#
# Config variables:
#   user root       -- requrired by hpasmcli
#   env.hpasmcli    -- path to hpasmcli executable (optional)
#   env.degree      -- Unit of temperatures (C or F / default value is C)
#
#
# Author: Tsuyoshi Wada <mail@tuyo.jp>
#
# v1.0  2007/12/08 - First version
#
# Copyright (c) 2007 Tsuyoshi Wada
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
# Magic markers
#%# family=contrib
#%# capabilities=autoconf suggest

use strict;

my $hpasmcli = exists $ENV{hpasmcli} ? $ENV{hpasmcli} : undef;
$hpasmcli = `which hpasmcli` unless $hpasmcli;
chomp $hpasmcli;
$hpasmcli = undef unless -x $hpasmcli;
my @dirs = qw(/usr/bin /usr/sbin /usr/local/bin /usr/local/sbin);
until ($hpasmcli or @dirs == 0) {
    my $dir = shift @dirs;
    my $path = $dir.'/hpasmcli';
    $hpasmcli = $path if -x $path;
}
my $degree = exists $ENV{degree} ? $ENV{degree} : 'C';
my $deg_name = $degree eq 'C' ? "Celsius": "Fahrenheit";

if (defined($ARGV[0])) {
    if ($ARGV[0] eq 'autoconf') {
        if ($hpasmcli and -x $hpasmcli) {
            my @chk_result = `$hpasmcli -s \"help\"`;
            if ($? eq "0") {
                print "yes\n";
            } else {
                my $reason = 'Unknown error';
                foreach my $line (@chk_result) {
                    if ($line =~ /^ERROR/i) {
                        chomp($line);
                        $reason = $line;
                        last;
                    }
                }
                print "no ($reason)\n";
            }
        } else {
            print "no (hpasmcli not found)\n";
        }
        exit 0;
    } elsif ($ARGV[0] eq 'suggest') {
        print "temp\nfans\n";
        exit 0;
    }
}

$0 =~ /hpasmcli2_(.+)*$/;
my $show_target = $1;
my @show_result = `$hpasmcli -s \"show $show_target\"`;
my %output;

if (defined($show_target) and $show_target eq 'temp') {
    foreach my $line (@show_result) {
        if ($line =~ /^#/) {
            $line =~ s/\s+/ /g;
            $line =~ s/^\s//g;
            my ($sensor, $loc, $temp, $threshold) = split(/\s/, $line);
            next if ($temp eq "-");
            $loc =~ s/\/|#//g;
            $temp = $degree eq 'C' ? (split(/\//, $temp))[0] : (split(/\//, $temp))[1];
            $temp =~ s/C|F//g;
            $threshold = $degree eq 'C' ? (split(/\//, $threshold))[0] : (split(/\//, $threshold))[1];
            $threshold =~ s/C|F//g;
            $sensor =~s/#//g;
            $output{$sensor} = {
                'location'  => lc($loc),
                'temp'      => $temp,
                'threshold' => $threshold
            };
        }
    }
    if (defined($ARGV[0]) and $ARGV[0] eq 'config') {
        print "graph_title hpasm: Temperature\n";
        print "graph_args --base 1000 -l 0\n";
        print "graph_vlabel Degrees in $deg_name\n";
        print "graph_category sensors\n";
        print "graph_info This graph shows the temperatures as reported by hpasmcli.\n";
        foreach my $key (sort keys %output) {
            print "temp$key.label $output{$key}->{'location'}\n";
            print "temp$key.warning " . ($output{$key}->{'threshold'} * 0.75) . "\n";
            print "temp$key.critical $output{$key}->{'threshold'}\n";
        }
    } else {
        foreach my $key (sort keys %output) {
            print "temp$key.value $output{$key}->{'temp'}\n";
        }
    }
} elsif (defined($show_target) and $show_target eq 'fans') {
    foreach my $line (@show_result) {
        if ($line =~ /^#/) {
            $line =~ s/\s+/ /g;
            $line =~ s/^\s//g;
            my ($fan, $loc, $present, $speed, $rate, $redundant, $partner, $pluggable) = split(/\s/, $line);
            next if ($present ne "Yes");
            $loc =~ s/\/|#//g;
            $rate =~ s/\%//g;
            my $threshold = '100';
            $fan =~s/#//g;
            $output{$fan} = {
                'location'  => lc($loc),
                'rate'      => $rate,
                'threshold' => $threshold
            };
        }
    }
    if (defined($ARGV[0]) and $ARGV[0] eq 'config') {
        print "graph_title hpasm: Fans\n";
        print "graph_args --base 1000 -l 0\n";
        print "graph_vlabel of max (%)\n";
        print "graph_category sensors\n";
        print "graph_info This graph shows the info of fans as reported by hpasmcli.\n";
        foreach my $key (sort keys %output) {
            print "fan$key.label FAN$key $output{$key}->{'location'}\n";
            print "fan$key.warning " . ($output{$key}->{'threshold'} * 0.75) . "\n";
            print "fan$key.critical $output{$key}->{'threshold'}\n";
        }
    } else {
        foreach my $key (sort keys %output) {
            print "fan$key.value $output{$key}->{'rate'}\n";
        }
    }
} else {
    die "Unknown target specified ($show_target)\n";
}

exit 0;