#!/usr/bin/perl

# Linux version !

use Apache::LoadAvgLimit::GetAvg;

$warning=$ARGV[0];
$critical=$ARGV[1];

my @avg = Apache::LoadAvgLimit::GetAvg::get_loadavg()
	or do {
	print "Can't get load average";
	exit(1);
	};

if ($avg[0] > $critical || $avg[1] > $critical || $avg[2] > $critical){
	print "Load average is > $critical: $avg[0] $avg[1] $avg[2]";
	exit(2);
}

if ($avg[0] > $warning || $avg[1] > $warning || $avg[2] > $warning){
	print "Load average is > $warning: $avg[0] $avg[1] $avg[2]";
	exit(1);
}

print "Load average is < = $warning";
exit(0);