Perl script to monitor disk space and send an email

Thomas,

Opps stupid xhtml was causing problem. Post has been updated

Appreciate your post.

You could also you Monit [1] to monitor disk space and several other services/daemons.

[1] http://www.tildeslash.com/monit/

Although your perl script is nice, you could do it with a standard shell script as well:

for fs in `df -k|awk '{print $1}'|sed -n "2,14 p"`; do
   x="`df -kl | grep $fs | awk '{ print $5 }'| sed -e 's/%//'`"
   y="75"
   if [ $fs != "kernfs" ]; then
     if [ $fs != "procfs" ]; then
       if [ "${x}" -gt "${y}" ]; then
         message="File System `df -k |grep $fs |a
wk '{print $6\",\"$5}'` Full"
         echo $message | mail -s "`hostname` - Fi
le System Full Warning" root
       fi
     fi
   fi
done

hi, can you please help me to write a perl script to read emails?

I get this error

“Cannot use df on this machine (untested or unsupported). ”

everything installed (moudles etc..)

can some one help me?

thank you!

I am getting an error “An error occured. statvfs failed. Did you run h2ph?” Any idea?

Well, for multiple e-mails, here it is:

## Mail Body
if (-e "/tmp/sms_sent")
{
print "already sent";
}
else
{
print MAIL $out;
system ("touch /tmp/sms_sent");
}


For RPM based Linux systems like CentOS and Fedora, install the perl-Filesys-DiskSpace package with:
# yum install perl-Filesys-DiskSpace

the df command there is part of the perl library FileSys::DiskSpace and not the normal df command available from the OS. This script is short and sweet but in my opinion, overly dependant on external libraries. The whole thing could have been written thusly..

#!/usr/bin/perl
use strict;
use warnings;

# file system to monitor
my $target = shift;

# warning level
my $warning_level=10;

# email setup
my $to='whomever@whatever.com';
my $from='root@whereever.com';
my $subject='Low Disk Space Warning';

# get df
my ($fs_dev, $fs_type, $size, $used, $avail, $use, $mount) = split(" ", `df -PT $target | tail +2`);

# calculate
my $df_free = (($avail) / ($avail+$used)) * 100.0;

# compare
if ($df_free < $warning_level) {
my $out = sprintf("WARNING Low Disk Space on $target : %0.2f%% ()\n",$df_free);

# send email using UNIX/Linux sendmail
open(MAIL, "|/usr/sbin/sendmail -t");

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";

## Mail Body
print MAIL $out;

close(MAIL);
}

Hello,
would enyone tell me why do I get such an error during execution of Kens script:
—————————————–
Use of uninitialized value in concatenation (.) or string at ./new_df.pl line 17.
tail: cannot open `+2′ for reading: No such file or directory
Use of uninitialized value in addition (+) at ./new_df.pl line 20.
Use of uninitialized value in addition (+) at ./new_df.pl line 20.
Use of uninitialized value in division (/) at ./new_df.pl line 20.
Illegal division by zero at ./new_df.pl line 20.
——————————————
It happens also during execution of original script from article above:
——————————————
Illegal division by zero at ./df.pl line 26.
——————————————
both errors are about the same line:
my $df_free = (($avail) / ($avail+$used)) * 100.0;
I have perl-Filesys-DiskSpace installed in my system.
I do not understand what it is complaining about
Any ideas?