byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

POD update, and change variable name for recipient address ($from => $to).

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@810 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Charlie Brady 2007-10-23 01:53:29 +00:00
parent 7d4605fdbc
commit 1cfd62c6d3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
plugins/check_badrcptto
View File

@ -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";
}