Return to wpfs.pl CVS log

Up to [local] / wpscripts / wpfreespace

Annotation of wpscripts/wpfreespace/wpfs.pl, Revision 1.1

1.1     ! yason       1: #!/usr/bin/perl
        !             2:
        !             3: use smtp;
        !             4:
        !             5: our $CRITSIZPERC = '90'; # in percents %
        !             6: our @VOLUMES    = ('/V1', '/V2', '/V3', '/V4' ,'/V5', '/DP', '/MP');
        !             7: our $DF         = '/bin/df -h';
        !             8: our $AWK        = '/usr/bin/awk \'{print $5}\'';
        !             9: our $MAILTO     = 'cio@reklamy.ru';
        !            10:
        !            11: our $fperc;
        !            12: our $mp;
        !            13:
        !            14: for ($mp = 0; $mp < scalar(@VOLUMES); $mp++)
        !            15: {
        !            16:     $fperc = `$DF $VOLUMES[$mp] | $AWK`;
        !            17:     $fperc = (split('\n', $fperc))[1];
        !            18:     $fperc = (split('%', $fperc))[0];
        !            19:
        !            20:     if($fperc > $CRITSIZPERC)
        !            21:     {
        !            22:        print "Free space low on $VOLUMES[$mp] ($fperc% used) ";
        !            23:        smtp::email($MAILTO, $VOLUMES[$mp], $fperc);
        !            24:        print "mail sent\n";
        !            25:     }
        !            26: }