#!/usr/bin/perl

use smtp;

our $CRITSIZPERC = '90'; # in percents %
our @VOLUMES 	 = ('/mnt/maket', '/mnt/archive', '/mnt/rmt_maket');
our $DF 	 = '/bin/df -h';
our $AWK	 = '/usr/bin/awk \'{print $5}\'';
our $MAILTO	 = 'admin@mb13.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";
    }
}