* Thu Apr 25 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.0-7.sme

- move qmail template from qpsmtpd [SME: 9492]
  badrcptto,badmailfrom,rcpthosts are for qmail-smtpd, they were used by qpsmtpd
  as a direct remplacement, some file override them now, moving to qmail
  alternative would be to drop them as long as qpsmptd is used in front

root/etc/e-smith/templates/var/qmail/control/badmailfrom/10sample

@@ -0,0 +1,2 @@
+#spamer@spamdomain.com
+#@spamdomain.com

root/etc/e-smith/templates/var/qmail/control/badrcptto/00setup

@@ -0,0 +1,9 @@
+{
+    require esmith::AccountsDB;
+    require esmith::DomainsDB;
+    
+    %Accounts = esmith::AccountsDB->as_hash;
+    %Domains  = esmith::DomainsDB->as_hash;
+
+    "";
+}

root/etc/e-smith/templates/var/qmail/control/badrcptto/10blockVisibleInternal

@@ -0,0 +1,16 @@
+{
+    foreach my $account ( keys %Accounts )
+    {
+	next unless ( exists $Accounts{$account}{Visible} 
+	     and $Accounts{$account}{Visible} eq "internal" );
+
+        $OUT .= "$account\n";
+        $OUT .= "$account\@$DomainName\n";
+
+	foreach my $domain ( keys %Domains )
+	{
+	    next unless $Domains{$domain}{type} eq "domain";
+	    $OUT .= "$account\@$domain\n";
+	}
+    }
+}

root/etc/e-smith/templates/var/qmail/control/rcpthosts/10standard

@@ -0,0 +1,14 @@
+{
+    use esmith::DomainsDB;
+
+    my $ddb = esmith::DomainsDB->open_ro or die "Couldn't open DomainsDB\n";
+
+    my @rcpt_hosts = ( "$SystemName.$DomainName" );
+
+    foreach my $domain ( $ddb->get_all_by_prop( type => "domain" ) )
+    {
+	push @rcpt_hosts, $domain->key;
+    }
+
+    $OUT = join "\n", @rcpt_hosts;
+}

root/etc/e-smith/templates/var/qmail/control/rcpthosts/12LiteralIP

@@ -0,0 +1,5 @@
+{
+    return "" unless (defined $ExternalIP);
+
+    return "[$ExternalIP]";
+}