From 1cfd62c6d384d1d310870e869d822757bd0ea8b0 Mon Sep 17 00:00:00 2001 From: Charlie Brady Date: Tue, 23 Oct 2007 01:53:29 +0000 Subject: [PATCH] POD update, and change variable name for recipient address ($from => $to). git-svn-id: https://svn.perl.org/qpsmtpd/trunk@810 958fd67b-6ff1-0310-b445-bb7760255be9 --- plugins/check_badrcptto | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/plugins/check_badrcptto b/plugins/check_badrcptto index a99fdb1..5d900e0 100644 --- a/plugins/check_badrcptto +++ b/plugins/check_badrcptto @@ -1,4 +1,5 @@ -# this plugin checks the badrcptto config (like badmailfrom for rcpt address) +# this plugin checks the badrcptto config (like badmailfrom, but for rcpt address +# rather than sender address) use Qpsmtpd::DSN; sub hook_rcpt { @@ -6,12 +7,12 @@ sub hook_rcpt { 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"; }