initial commit of file from CVS for smeserver-raidstatus on Sat Sep 7 20:59:51 AEST 2024

This commit is contained in:
Trevor Batley
2024-09-07 20:59:51 +10:00
parent 2cca7ecadd
commit 98d533db3c
41 changed files with 2872 additions and 2 deletions

View File

@@ -0,0 +1,14 @@
#!/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`;