File: [local] / wpscripts / wpfreespace / wpfs.pl (download)
Revision 1.1.1.1 (vendor branch), Fri Jun 3 09:28:47 2011 UTC (13 years ago) by yason
Branch: yason
CVS Tags: import Changes since 1.1: +0 -0 lines
import scripts for fullprint
|
#!/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";
}
}