#Thanks to Tom Newton
#!/usr/bin/perl -Tw
#

use strict;

use LWP::Simple;

my $URL = "http://$ARGV[0]/m_s_dtl3.htm";
my $tocheck = $ARGV[1];
my $WARN = $ARGV[2];
my $CRITICAL = $ARGV[3];
my $status = "3";

my @colours = ();
my @levels = ();
my $colour = "Polka Dot";
my $level = 0;

my $html = "";
$html = get($URL);

while($html =~ s/>(\w+?) Toner Cartridge<//)
{
	$colour = $1;
	push(@colours,$colour);
	

	if ($html =~ s/<font size="2">(\d+)%<\/font><\/td>//)
	{
		$level = $1;
		push(@levels,$level);
	}
}

if (($tocheck > 0) && ($tocheck <=4))
{
	$tocheck--; # indexing from 0!
#	print $colours[$tocheck] . ": ";
	$level = $levels[$tocheck];
	if ($level > $WARN)
	{
#		print "OK ($level)\n"
		print "OK $colours[$tocheck] ($level%)"
#		$status = "0";
#		($level) $colours[$tocheck]"
	}
	else
	{
		if ($level <= $CRITICAL)
		{
#			print "CRITICAL ($level)\n";
			print "CRITICAL $colours[$tocheck] ($level%)";
#			$status = "2";
		}
		else
		{
#			print "WARN ($level)\n";
			print "WARN $colours[$tocheck] ($level%)";
#			status = "1";
		}
	}
}
else
{
	print "You should specify a color to check!\n";
	for(my $i=0;$i<4;$i++)
	{
		print $i+1 . ": $colours[$i] $levels[$i]\n";
#		$status = "3";
	}
}
# exit $status;