#!/usr/bin/perl
&usage() if($#ARGV != 1);

($w, $c) = @ARGV;

$return = `/usr/bin/sar -w 1 5 |/bin/grep Average`;
chomp($return);
($ignore, $cs) = split(/[ ]+/, $return);

$exitcode = 0;
$exitcode = 1 if( $cs > $w );
$exitcode = 2 if( $cs > $c );

print "Content switches by second $cs/s |cswitch=$cs;$w;$c;0;\n";
exit($exitcode);

sub usage() {
	print "This script needs 2 parameters( warning and critical )\n";
	exit(2);
}