initial commit of file from CVS for smeserver-mailalias on Sat Sep 7 19:55:18 AEST 2024

root/etc/e-smith/templates/var/service/qpsmtpd/config/goodrcptto/41ValidLocalMailalias

@@ -0,0 +1,36 @@
+{
+    # Make a list of all valid local recipients
+    use esmith::AccountsDB;
+    my %valid = map { $_ => 1 } qw(mailalias);
+
+    $OUT = "";
+
+    my $adb = esmith::AccountsDB->open_ro();
+
+    foreach my $account ($adb->get_all)
+    {
+        my $key = $account->key;
+        next unless $valid{$account->prop('type')};
+	
+	if ($key =~ /\@/)
+	{
+	    $OUT .= "$key\n";
+	}
+	else
+	{
+	    my $domain = $account->prop('domain') || "ALL";
+	    if ($domain eq "ALL" )
+	    {
+		$OUT .= "$key\@$_\n" for (@domains);
+	    }
+	    else
+	    {
+		my $mailaliasDomain = ','.$domain.',';
+		foreach (@domains)
+		{
+		    $OUT .= "$key\@$_\n" if ($mailaliasDomain =~ m/,$_,/);
+		}
+	    }
+	}
+    }
+}