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: }
CVSweb