#!/usr/bin/perl -w
use strict;

my $radio = $ARGV[0];
my $warnrate = $ARGV[1];
my $critrate = $ARGV[2];

if ($critrate <= $warnrate) {
open DATA, "/usr/bin/snmpwalk -v1 -c public $radio .1.3.6.1.4.1.5454.1.40.2.4.0|" or die "Failed: $!\n";

while ( defined( my $line = <DATA> )  ) {
        my @values = split(' ', $line);
        my $score = $values[3];
	close DATA;
		if ($score > $warnrate) {
			print "OK, rf is $score. \|Mbps=$score\n";
				exit 0
			} elsif (($score <= $warnrate) && ($score > $critrate)) {
			print "WARNING, rf is $score. \|Mbps=$score\n";
				exit 1
			} elsif ($score <= $critrate) {
			print "CRITICAL, rf is $score. \|Mbps=$score\n";
				exit 2
			} else {
			print "UNKNOWN, rf is $score and something is wrong.\n";
				exit 3
			}
}
} else {
print "Make sure your critical value is less than or equal to your warning value.\n";
exit 5}