SPF now requires the HELO string
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@199 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
c567f3726a
commit
df1a9a08ad
@ -36,7 +36,8 @@ sub mail_handler {
|
|||||||
my $from = $sender->user . '@' . $host;
|
my $from = $sender->user . '@' . $host;
|
||||||
|
|
||||||
my $ip = $self->qp->connection->remote_ip;
|
my $ip = $self->qp->connection->remote_ip;
|
||||||
my $query = Mail::SPF::Query->new(ip => $ip, sender => $from)
|
my $helo = $self->qp->connection->hello_host;
|
||||||
|
my $query = Mail::SPF::Query->new(ip => $ip, sender => $from, helo => $helo)
|
||||||
|| die "Couldn't construct Mail::SPF::Query object";
|
|| die "Couldn't construct Mail::SPF::Query object";
|
||||||
$transaction->notes('spfquery', $query);
|
$transaction->notes('spfquery', $query);
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user