Shell Programming and Scripting

cd /var/log && du -sBM * |sort -n 2>&1 |grep -v -e "0M" -e "1M"

#!/usr/bin/perl

$mailfrom = "email\@mydomain";
$mailto = "email\@mydomain";
$above = 98;

use FileHandle;

@check=`df -h | grep -vE '^Filesystem|none|cdrom'`;

##### Checks for lines higher than $above
foreach (@check) {
    if (m/(\d+\%)/ and $1 >=$above) {
	cd /var/log && du -sBM * |sort -n 2>&1 |grep -v -e "0M" -e "1M";
        push @New,$_;
    }
}

##### If there is anything found, send mail
if (@New) {
    $mail = new FileHandle;
    $mail->open("| /usr/sbin/sendmail -t") || die "Cannot open: $!";
    $mail->print("From: $mailfrom\n");
    $mail->print("To: $mailto\n");
    $mail->print("Subject: diara.ee sda1 disk space low\n\n");
    $mail->print(@New, "\n");
    $mail->close();
}

if (@New) {
    my $data = qx(cd /var/log && du -sBM * |sort -n 2>&1 |grep -v -e "0M" -e "1M");
    $mail = new FileHandle;
    $mail->open("| /usr/sbin/sendmail -t") || die "Cannot open: $!";
    $mail->print("From: $mailfrom\n");
    $mail->print("To: $mailto\n");
    $mail->print("Subject: diara.ee sda1 disk space low\n\n");
    $mail->print(@New, "\n");
    $mail->print($data, "\n");
    $mail->close();
}