Sure. It is very straight-forward. I was originally just going to do it in shell script (my PERL is not that great) but the amount of string manipulation makes it tedious. You should note there is little to no error checking going on here.
You can tell Ops Manager/DFM to trigger the script by using something like 'dfm alarm modify -u <user> -s "/usr/bin/perl <full path to script>" <alarmid>'. You have to do this using the CLI.
#!/usr/bin/perl
use strict;
# DFM variables are passed in the environment, but have lengthy names
my $used = $ENV{"DFM_QTREE_KB_USED"};
my $limit = $ENV{"DFM_QTREE_KB_LIMIT"};
my $event = $ENV{"DFM_EVENT_NAME_CLI"};
my $source = $ENV{"DFM_SOURCE_NAME"};
my $pctused = $ENV{"DFM_QTREE_KB_PERCENT"};
# sanity check to make sure this is one of the two events we're expecting
my $threshold;
if ($event eq "qtree-full") {
$threshold=1;
} elsif ($event eq "qtree-almost-full") {
$threshold=0;
} else {
exit 0;
}
# "source" is in the format "filer:/volume/qtree" so separate them out:
my ($filer,$volume,$qtree) = split('/',$source);
chop($filer);
# translate the quota values into sensible units
my @units = ('kB','MB','GB','TB');
my $unit=shift(@units);
while ($used > 1024 and @units) {
$unit=shift(@units);
$used /= 1024;
$limit /= 1024;
}
# two decimal places should be accurate enough...
$used = sprintf("%.2f",$used);
$limit = sprintf("%.2f",$limit);
$pctused = sprintf("%.2f",$pctused);
# do whatever logic you need to do here to form an email address from the filer, volume and qtrees
# my $email = ......
# construct the email message to send using whatever logic you need....
# my $message = <<EOT
# ...
# ...
# EOT
# send the message thru sendmail:
open MAIL, '|/usr/sbin/sendmail $email';
print MAIL $message;
close MAIL;
# log it, just in case
open LOG, '>>/var/log/quota-alert.log';
print LOG "Alert sent to $email about $source: $used $unit of $limit $unit ($pctused %)\n";
close LOG;
