15 lines
418 B
Perl
15 lines
418 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use esmith::ConfigDB;
|
|
|
|
my $DB = esmith::ConfigDB->open_ro;
|
|
my $Domainname = $DB->get_value('DomainName');
|
|
my $mail = $DB->get_prop('raidstatus','mailto') || '';
|
|
|
|
my $systemname = $DB->get_value('SystemName');
|
|
$mail = $mail . ' admin@'.$Domainname;
|
|
my $MailStatus = `/sbin/mdadm --detail \$(/bin/ls /dev/md?)|/bin/mail -s "RAID status of $systemname.$Domainname" $mail`;
|
|
|