特定のディレクトリに最新ファイルが存在するかをチェックするNagios向けのPerlスクリプトです。

check_dir_growth

#!/usr/bin/perl

$dirName = shift(@ARGV);
$okLimit = shift(@ARGV);
$warnLimit = shift(@ARGV);

if (!defined($dirName)) {
	print ("ERROR: usage [dirname] [ok limit] [warn limit]\n");
	exit 3;
}

if (!-d $dirName || !-x $dirName) {
	print ("ERROR: target dir doesn't exist or permission error\n");
	exit 3;
}

if (check($dirName, $okLimit)) {
	printf("OK %s\n", getLabel($dirName));
	exit 0;
}
if (check($dirName, $warnLimit)) {
	printf("WARNING %s\n", getLabel($dirName));
	exit 1;
}
printf("CRITICAL %s\n", getLabel($dirName));
exit 2;

sub check {
	my $dir = shift(@_);
	my $th = shift(@_);
	$cmd = "find $dir -cmin -$th -type f | wc -l";
	$cnt = `$cmd`;
	chomp $cnt;
	return 0 + $cnt;
}

sub getLabel {
	my $dir = shift(@_);
	$cmd = "find $dir -type f -exec date \"+%Y/%m/%d %H:%M\" -r {} \\; | sort -r | head -n 1";
	$r = `$cmd`;
	chomp $r;
	return $r;
}

定期メールがMaildirに正しく届いているかNagiosからチェックするのに使っています。
チェック時に指定時間（分）以内にファイルが生成されていればOK、ファイルがなければメールが滞っていると判断してCRITICALです。

check_dir_growth <DIR> <ok limit> <warn limit>

例）
check_dir_growth /home/xxxxx/Maildir/new 10 30