Annotation of wpscripts/wpfreespace/wpfs.pl, Revision 1.1.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