#!/usr/bin/perl
use smtp;
our $CRITSIZPERC = '90'; # in percents %
our @VOLUMES = ('/V1', '/V2', '/V3', '/V4' ,'/V5', '/DP', '/MP');
our $DF = '/bin/df -h';
our $AWK = '/usr/bin/awk \'{print $5}\'';
our $MAILTO = 'cio@reklamy.ru';
our $fperc;
our $mp;
for ($mp = 0; $mp < scalar(@VOLUMES); $mp++)
{
$fperc = `$DF $VOLUMES[$mp] | $AWK`;
$fperc = (split('\n', $fperc))[1];
$fperc = (split('%', $fperc))[0];
if($fperc > $CRITSIZPERC)
{
print "Free space low on $VOLUMES[$mp] ($fperc% used) ";
smtp::email($MAILTO, $VOLUMES[$mp], $fperc);
print "mail sent\n";
}
}