initial commit of file from CVS for e-smith-qmail on Wed 12 Jul 09:06:46 BST 2023

root/etc/e-smith/templates/var/qmail/control/virtualdomains/80localdomains

@@ -0,0 +1,19 @@
+{
+    $OUT = '';
+
+    use esmith::DomainsDB;
+    my $domainsdb = esmith::DomainsDB->open_ro();
+
+    for my $domain ($domainsdb->domains)
+    {
+        my $mail_server = $domain->prop('MailServer')
+                          || $DelegateMailServer
+                          || 'localhost';
+
+        next if ( $mail_server ne 'localhost' );
+
+	$emaildomain = $domain->key;
+	my $handler = $domain->prop('EmailTo') || "alias-localdelivery";
+	$OUT .= "$emaildomain:$handler\n";
+    }
+}

root/etc/e-smith/templates/var/qmail/control/virtualdomains/90pseudonyms

@@ -0,0 +1,26 @@
+{
+    my $dms = $DelegateMailServer;
+
+    return "# DelegateMailServer is set" if ($dms && ($dms !~ /^\s*$/));
+
+    $OUT = "";
+
+    use esmith::AccountsDB;
+
+    my $adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
+
+    for my $pseudo ($adb->pseudonyms)
+    {
+	next unless ($pseudo->key =~ /@/);
+
+	my $account = $pseudo->prop("Account");
+	$account = "admin"  and warn $pseudo->prop("Account") . " is not a valid account, default to admin "  unless $adb->get($account);	
+	my $acct = $adb->get($account);
+	if ($acct->prop('type') eq "group")
+	{
+	    $account =~ s/\./:/g;
+	}
+
+	$OUT .= $pseudo->key . ":$account\n";
+    }
+}