Return to wpfs.pl CVS log

Up to [local] / wpscripts / wpfreespace

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

1.1       yason       1: #!/usr/bin/perl
                      2:
                      3: use smtp;
                      4:
                      5: our $CRITSIZPERC = '90'; # in percents %
1.2     ! yason       6: our @VOLUMES    = ('/mnt/maket', '/mnt/archive', '/mnt/rmt_maket');
1.1       yason       7: our $DF         = '/bin/df -h';
                      8: our $AWK        = '/usr/bin/awk \'{print $5}\'';
1.2     ! yason       9: our $MAILTO     = 'admin@mb13.ru';
1.1       yason      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: }