#!/afs/athena/contrib/perl5/perl

$quo = `fs lq ~`;
$quo =~ /user.mkgray +\d+ +(\d+)/;
$used = $1;
$em = `msgchk`;
if($em =~ /(\d+) bytes/){
	$need = $1;
}
else{
	$need = 0;
}
$have = (15000-$used)*1000;
print "Have $have bytes.  Need $need bytes.\n";
if(($have - (1.8*$need)) < 0){
	print "-----------------------------------\n";
	print "---------- Quota Warning ----------\n";
	print "- New mail exceeds available disk -\n";
	print "------ Proceed with caution -------\n";
	print "-----------------------------------\n";
}