#!/usr/bin/perl -w

# Usage ./check-temper <warn> <crit>

use strict;

# This should be the path where your get_temper binary is
my $temper = '/usr/lib/nagios/plugins/get_temper';

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

if (!($ARGV[0] && $ARGV[1])) {
        print "UNKNOWN";
        exit $UNKNOWN;
}

my $warn = $ARGV[0];
my $crit = $ARGV[1];

my $return = `$temper`;
$return =~ s/[^0-9.]//g;
$return = &round($return);

if ($return < $warn) {
        # OK
        print "OK: Ambient temperature $return C | temperature=$return;$warn;$crit";
        exit $OK;
} elsif (($return >= $warn) && ($return < $crit)) {
        # WARNING
        print "WARNING: Ambient temperature $return C | temperature=$return;$warn;$crit";
        exit $WARNING;
} elsif ($return >= $crit) {
        # CRITICAL
        print "CRITICAL: Ambient temperature $return C | temperature=$return;$warn;$crit";
        exit $CRITICAL;
} else {
        # UNKNOWN
        print "UNKNOWN";
        exit $UNKNOWN;
}

sub round {
	my $number = shift;
	return (int(10*$number + .5)/10);
}