[BACK]Return to wpfs.pl CVS log [TXT][DIR] Up to [local] / wpscripts / wpfreespace

File: [local] / wpscripts / wpfreespace / wpfs.pl (download)

Revision 1.1.1.1 (vendor branch), Fri Jun 3 09:28:47 2011 UTC (12 years, 9 months 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";
    }
}