qpsmtpd/sme7/qpsmtpd-0.40-badrcpttoPlugin.patch

diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.40/plugins/check_badrcptto mezzanine_patched_qpsmtpd-0.40/plugins/check_badrcptto
--- qpsmtpd-0.40/plugins/check_badrcptto        2008-01-07 02:55:53.000000000 -0700
+++ mezzanine_patched_qpsmtpd-0.40/plugins/check_badrcptto      2008-01-07 02:53:20.000000000 -0700
@@ -1,20 +1,22 @@
-# this plugin checks the badrcptto config (like badmailfrom for rcpt address)
+# this plugin checks the badrcptto config (like badmailfrom for sender)
 use Qpsmtpd::DSN;
 
 sub hook_rcpt {
   my ($self, $transaction, $recipient, %param) = @_;
+  return Qpsmtpd::DSN->no_such_user("recipient address must include local part")
+    unless $recipient->user;
   return (DECLINED) if $self->qp->connection->relay_client;
   my @badrcptto = $self->qp->config("badrcptto") or return (DECLINED);
   return (DECLINED) unless $recipient->host && $recipient->user;
   my $host = lc $recipient->host;
-  my $from = lc($recipient->user) . '@' . $host;
+  my $to = lc($recipient->user) . '@' . $host;
   for my $bad (@badrcptto) {
     $bad = lc $bad;
     $bad =~ s/^\s*(\S+)/$1/;
     return Qpsmtpd::DSN->no_such_user("mail to $bad not accepted here")
-      if $bad eq $from;
+      if $bad eq $to;
     return Qpsmtpd::DSN->no_such_user("mail to $bad not accepted here")
-      if substr($bad,0,1) eq '@' && $bad eq "\@$host";
+      if $bad eq "\@$host";
   }
   return (DECLINED);
 }
1	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.40/plugins/check_badrcptto mezzanine_patched_qpsmtpd-0.40/plugins/check_badrcptto
2	--- qpsmtpd-0.40/plugins/check_badrcptto 2008-01-07 02:55:53.000000000 -0700
3	+++ mezzanine_patched_qpsmtpd-0.40/plugins/check_badrcptto 2008-01-07 02:53:20.000000000 -0700
4	@@ -1,20 +1,22 @@
5	-# this plugin checks the badrcptto config (like badmailfrom for rcpt address)
6	+# this plugin checks the badrcptto config (like badmailfrom for sender)
7	use Qpsmtpd::DSN;
8
9	sub hook_rcpt {
10	my ($self, $transaction, $recipient, %param) = @_;
11	+ return Qpsmtpd::DSN->no_such_user("recipient address must include local part")
12	+ unless $recipient->user;
13	return (DECLINED) if $self->qp->connection->relay_client;
14	my @badrcptto = $self->qp->config("badrcptto") or return (DECLINED);
15	return (DECLINED) unless $recipient->host && $recipient->user;
16	my $host = lc $recipient->host;
17	- my $from = lc($recipient->user) . '@' . $host;
18	+ my $to = lc($recipient->user) . '@' . $host;
19	for my $bad (@badrcptto) {
20	$bad = lc $bad;
21	$bad =~ s/^\s*(\S+)/$1/;
22	return Qpsmtpd::DSN->no_such_user("mail to $bad not accepted here")
23	- if $bad eq $from;
24	+ if $bad eq $to;
25	return Qpsmtpd::DSN->no_such_user("mail to $bad not accepted here")
26	- if substr($bad,0,1) eq '@' && $bad eq "\@$host";
27	+ if $bad eq "\@$host";
28	}
29	return (DECLINED);
30	}