30 lines
1.1 KiB
Plaintext
30 lines
1.1 KiB
Plaintext
|
{
|
||
|
|
# vim: ft=perl ts=4 sw=4 et:
|
||
|
|
# perltidy -pbp
|
||
|
|
|
||
|
|
if ( ( $mxbackup{status} || "disabled" ) eq "enabled" ) {
|
||
|
|
$OUT = "# Following is a list of systems or domains.\n";
|
||
|
|
$OUT .= "# This system is configured to act as a MX Backup for\n";
|
||
|
|
$OUT .= "# these systems (if there's only one line) or domains.\n";
|
||
|
|
$OUT .= "# If there is a line beginning with a dot, then this\n";
|
||
|
|
$OUT .= "# system will accept mails for any hosts of this domain\n";
|
||
|
|
$OUT .= "# MX Backup start\n";
|
||
|
|
|
||
|
|
my $MXFlag = 0;
|
||
|
|
my %MXValues = split /,/, ( $mxbackup{name} || "" );
|
||
|
|
foreach my $data (
|
||
|
|
sort {
|
||
|
|
( join( "\.", reverse( split /\./, $a ) ) )
|
||
|
|
cmp( join( "\.", reverse( split /\./, $b ) ) )
|
||
|
|
}
|
||
|
|
keys %MXValues
|
||
|
|
) {
|
||
|
|
$OUT .= "$data\n";
|
||
|
|
$OUT .= ".$data\n" if ( $MXValues{$data} );
|
||
|
|
$MXFlag = 1;
|
||
|
|
}
|
||
|
|
$OUT .= "### No MX Backup set Now ...\n" if ( !$MXFlag );
|
||
|
|
$OUT .= "# MX Backup end\n";
|
||
|
|
}
|
||
|
|
}
|