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:
Matt Sergeant 2003-12-11 09:07:51 +00:00
parent c567f3726a
commit df1a9a08ad

View File

@ -36,7 +36,8 @@ sub mail_handler {
my $from = $sender->user . '@' . $host;
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";
$transaction->notes('spfquery', $query);