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

($w, $c) = @ARGV;

$memline = `/usr/bin/free -m |grep Swap:`;
chomp($memline);
($ignore, $total, $used, $free) = split(/[ ]+/,$memline);

$warning = ( $total * $w )/100;
$critical = ( $total * $c )/100;

$exitcode = 0;
$exitcode = 1 if($used > $warning);
$exitcode = 2 if($used > $critical);

print "Swap usage $used MB, free $free MB |used=$used\MB;0;$total;$warning;$critical\n";
exit($exitcode);

sub usage() {
	print "We need two parameters for this plugin\n";
	print "./check_swap.pl <warn> <critical>\n";
	print "warning and critical in %\n\n";
	exit(2);
}