#!/usr/bin/env perl

#####################################
#####################################
### ______               _     =) ###
### | ___ \             | |       ###
### | |_/ / __ _  _ __  | |       ###
### |    / / _` || '_ \ | |       ###
### | |\ \| (_| || | | || |____   ###
### \_| \_|\__,_||_| |_|\_____/   ###
#####################################
#####################################

# Info
# Checks AVTECH Room alert devices tempeture via SNMP

use strict;
use Net::SNMP;
use Getopt::Long; Getopt::Long::Configure('bundling');

my $stat = 0;
my $msg = "RoomAlert";
my $perf;
my $script_name = "check-roomalert.pl";

### SNMP OIDs
###############
my $s_internal = '.1.3.6.1.4.1.20916.1.6.1.1.1.2.0';
my $s_external = '.1.3.6.1.4.1.20916.1.6.1.2.1.1.0';

### Functions
###############
sub _create_session {
	my ($server, $comm) = @_;
	my $version = 1;
	my ($sess, $err) = Net::SNMP->session( -hostname => $server, -version => $version, -community => $comm);
	if (!defined($sess)) {
		print "Can't create SNMP session to $server\n";
		exit(1);
	}
	return $sess;
}

sub _get_oid_value(@) {
	my $sess = shift;
	my $local_oid = shift;
	my $r_return = $sess->get_request(-varbindlist => [$local_oid]);
	return($r_return->{$local_oid});
}

sub FSyntaxError($) {
	my $err = shift;
	print <<EOU;
     $err

	-H = Ip/Dns Name of the FW
	-C = SNMP Community
	-w = Warning Value -> internal,external
	-c = Critical Value -> internal,external
EOU
	exit(1);
}

my %opt;
my $result = GetOptions(\%opt,
	'host|H=s',
	'com|C=s',
	'warn|w=s',
	'crit|c=s',
);

FSyntaxError("Missing -H")  unless defined $opt{'host'};
FSyntaxError("Missing -C")  unless defined $opt{'com'};
FSyntaxError("Missing -w")  unless defined $opt{'warn'};
FSyntaxError("Missing -c")  unless defined $opt{'crit'};


# Validate Warning
my @warn = split(",",$opt{'warn'});
my @crit = split(",",$opt{'crit'});
if($warn[0] > $crit[0]) {
	FSyntaxError("Warning can't be larger then Critical: $warn[0] > $crit[0]");
}
if($warn[1] > $crit[1]) {
	FSyntaxError("Warning can't be larger then Critical: $warn[1] > $crit[1]");
}

# Establish SNMP Session
our $snmp_session = _create_session($opt{'host'},$opt{'com'});
my $internal = _get_oid_value($snmp_session,$s_internal);
my $external = _get_oid_value($snmp_session,$s_external);
$internal = $internal / 100.0;
$external = $external / 100.0;

my $istat = 0;
my $estat = 0;

# Check Internal
if($internal >= $crit[0]) {
	$istat=2;
} elsif($internal >= $warn[0] and $internal < $crit[0]) {
	$istat=1;
} else {
	$istat=0;
}

# Check External
if($external >= $crit[1]) {
	$estat=2;
} elsif($external >= $warn[1] and $external < $crit[1]) {
	$estat=1;
} else {
	$estat=0;
}

if($istat == 2 or $estat == 2) {
	$stat = 2;
	$msg = "CRIT: $msg";
} elsif($istat == 1 or $estat == 1) {
	$stat = 1;
	$msg = "WARN: $msg";
} else {
	$stat = 0;
	$msg = "OK: $msg";
}

# Perf Data
$perf="internal=$internal external=$external";

print "$msg | $perf\n";
exit($stat);