Code :
#!/usr/bin/perl # # Guillaume Cottenceau (gc@mandrakesoft.com) # # Copyright 2002 MandrakeSoft # # This software may be freely redistributed under the terms of the GNU # public license. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # #use strict; use MDK::Common; my ($verbose); sub free_space { my ($mntpoint) = @_; my ($blocksize, $size, $avail); my $buf = ' ' x 20000; syscall_ ('statfs', $mntpoint, $buf) or return; return $avail * ($blocksize / 1024); } my %partlimits = ( '/' => 20_000, '/tmp' => 20_000, '/usr' => 50_000, '/var' => 50_000, '/boot' => 5_000 ); my $params = join '', @ARGV; $params =~ /-h/ and die "usage: partmon [-v]\n"; $params =~ /-v/ and $verbose = 1; my $ok = 1; foreach (cat_('/etc/fstab')) { /^\s*#/ and next; member ($mountpoint, keys %partlimits) or next; my $free = free_space($mountpoint); $verbose and print "Free space of <$mountpoint> is <$free>\n"; if ($free < $partlimits{$mountpoint}) { print "Warning, free space for <$mountpoint> is only <", free_space ($mountpoint), "> (which is inferior to <$partlimits{$mountpoint}>\n"; $ok = 0; } } #------------------------------------------------- #- $Log: partmon.pl,v $ #- Revision 1.1 2002/01/15 13:44:15 chmouel #- Add partition monitor from GC #-
|