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

s/recipient/sender/ since this is the MAIL FROM filter ... :-)

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@65 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-10 11:04:18 +00:00
parent 46d6195f38
commit 2fd504ce6a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/check_badmailfrom
View File

@ -7,10 +7,10 @@ sub register {
} }
sub mail_handler { sub mail_handler {
my ($self, $transaction, $recipient) = @_; my ($self, $transaction, $sender) = @_;
return (DECLINED) unless $recipient->host && $recipient->user; return (DECLINED) unless $sender->host && $sender->user;
my $host = lc $recipient->host; my $host = lc $sender->host;
my $from = $recipient->user . '@' . $host; my $from = $sender->user . '@' . $host;
my @badmailfrom = $self->qp->config("badmailfrom"); my @badmailfrom = $self->qp->config("badmailfrom");
for my $bad (@badmailfrom) { for my $bad (@badmailfrom) {
$bad =~ s/^\s*(\S+)/$1/; $bad =~ s/^\s*(\S+)/$1/;