#!/usr/bin/perl
# dfmail: df してディスクが一杯に近ければメールする。
#         通常、 cron から起動して使う。
# 配布は GPL にしたがって行ってください。
# Copyright (C) 1998, by Seio ODA(oda@fjct.fit.ac.jp), Allrights reserved.
# usage: dfmail [-m mailaddr][-if] fsys:warn:alart:full ...
# options:
#  -m mailaddr : mail addres
#  -f: ディスクに問題がなくともとにかくメールを出す。
#  -i: 問題のないディスクは無視(-f のとき無効)
# parameters:
#  fsys:warn:alart:full
#  fsys にマウントされたディクスに対する、注意、警告、終末レベルの指定
#  例: /home:80:90:100
#    /home が80%を越えたら注意, 90%を越えたら警告, 100%を越えたらおしまい
#  fsys に何も指定しないと全てのディスクに適応される。

require 'getopts.pl';

&Getopts('fim:');

$mailto = 'root';
$mailto = $opt_m if $opt_m;
chop($hostname = `hostname`);

$df = '/bin/df';
$mail = '/bin/mail';	# /usr/bin/mail on BSD/OS

@Subject = 
    ("[DISK INFO] $hostname disk(s) has enough space.",
     "[DISK WARNING] $hostname disk(s) is short.",
     "[*DISK ALART*] $hostname disk(s) is nearly full.",
     "[**DISK FULL**] $hostname disk(s) is full up.",
     "[*************] $hostname disk(s) something wrong!!.");

for(@ARGV) {
    ($root,$wpar,$apar,$fpar) = split(/\:/,$_);
    next unless $fpar;
    if($root) {
	$fsys{$root} = [$wpar,$apar,$fpar,1000];
    } else {
	@fsys = ($wpar,$apar,$fpar,1000);
    }
}

$alevel = 0;

open(DF,"$df |") || die("$df: $!");
$message = <DF>;
while(<DF>) {
    ($dp,$all,$use,$avail,$cap,$mount) = split; $line = $_;
    if(($fs = $fsys{$mount}) || (@fsys && ($fs = \@fsys))) {
	if($a = alevel($fs,$cap)) {
	    $alevel = $a if($a > $alevel);
	    chop $line;
	    $message .= $line . " <--\n";
	} elsif($opt_f || !$opt_i) {
	    $message .= $line;
	}
    } elsif($opt_f) {
	$message .= $line;
    }
}
close DF;

if($alevel>0 || $opt_f) {
    open(M,"| $mail -s \'$Subject[$alevel]\' $mailto") || die("$mail: $!");
    print M $message;
    close M;
}

exit 0;

sub alevel {
    my ($d,$p) = @_;
    my $i;

    for($i = 0; $i < 4; $i++) {
	return $i if($p < $$d[$i]);
    }
    return 4;
}