initial commit of file from CVS for smeserver-mxbackup on Sat Sep 7 20:44:45 AEST 2024

root/etc/e-smith/templates/var/service/qpsmtpd/config/goodrcptto/50MXBackup

@@ -0,0 +1,26 @@
+{
+    # vim: ft=perl ts=4 sw=4 et:
+    # perltidy -pbp
+    if ( ( $mxbackup{status} || "disabled" ) eq "enabled" ) {
+        $OUT .= "\n";
+        $OUT .= "# MX Backup entries start\n";
+        $OUT .= "# This is the list of the mail domains\n";
+        $OUT .= "# from the MX-Backup configuration of the local system.\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";
+            $MXFlag = 1;
+        }
+        $OUT .= "### No MX Backup set Now ...\n" if ( !$MXFlag );
+        $OUT .= "# MX Backup entries end\n\n";
+    }
+}
+