#!/usr/bin/perl -w

use strict;
use Getopt::Long;

my $UNKNOWN = -1;
my $OK = 0;
my $WARNING = 1;
my $CRITICAL = 2;

my $host = undef;
my $community = "public";
my $version = "2c";
my $oid = undef;

# Defines OID parent paths
my $SNMPOIDstatus=".1.3.6.1.3.94.1.8.1.4";
my $SNMPOIDdescr=".1.3.6.1.3.94.1.8.1.3";

GetOptions(

"host|H=s" => \$host,
"community|C=s"  => \$community,
"version|V=s" => \$version,

);

($host) || die $!;

chomp($host);
chomp($community);

my $snmp_status =  `snmpwalk -v $version -c $community $host "$SNMPOIDstatus"`;

my $snmp_desc =  `snmpwalk -v $version -c $community $host "$SNMPOIDdescr"`;
$snmp_desc =~ s/"//g; # Remove -sensor- text from descriptions

my @sensor_status = split /\n/, $snmp_status;
my @sensor_desc = split /\n/, $snmp_desc;

my $ix=0;
my $sensor_count = 0;

my $status_message = undef;

my $worst_status = $UNKNOWN;

foreach (@sensor_status)
{
    my ($sensor) = ($_ =~ /INTEGER: (.*)/);
    $ix++;
   
    # sensor status 3 - ok, 4 - warning, 5 - critical, skip otherwise   
    next if $sensor < 3 or $sensor > 5;

    if ($sensor == 4 || $sensor == 5)
    {
        $status_message .= ($sensor == 4) ? "WARNING" : "CRITICAL";
        my ($lsensor) = ($sensor_desc =~ /STRING: (.*)/);
        $status_message .= " - " . $lsensor . ", ";
    }

    $worst_status = $OK if ($sensor == 3 && $worst_status < $OK);   
    $worst_status = $WARNING if ($sensor == 4 && $worst_status < $WARNING);
    $worst_status = $CRITICAL if ($sensor == 5 && $worst_status < $CRITICAL);
   
    $sensor_count++;
}

print  ((defined $status_message) ? $status_message : "All $sensor_count sensors Ok.");

exit $worst_status;