From: Nick Leverton <>

Subject: SPF plugin: using it in practice (PATCH attached for CVS)
Date: Tue, 30 Nov 2004 11:35:30 +0000
Message-ID: <20041130113530.GA31737@leverton.org>


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@355 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2004-12-02 07:26:11 +00:00
parent 22a1d99981
commit ed2ab5f5fd

View File

@ -45,7 +45,7 @@ sub mail_handler {
# If we are receving from a relay permitted host, then we are probably # If we are receving from a relay permitted host, then we are probably
# not the delivery system, and so we shouldn't check # not the delivery system, and so we shouldn't check
return (DECLINED) if exists $ENV{RELAYCLIENT}; return (DECLINED) if $self->qp->connection->relay_client();
my @relay_clients = $self->qp->config("relayclients"); my @relay_clients = $self->qp->config("relayclients");
my $more_relay_clients = $self->qp->config("morerelayclients", "map"); my $more_relay_clients = $self->qp->config("morerelayclients", "map");
my %relay_clients = map { $_ => 1 } @relay_clients; my %relay_clients = map { $_ => 1 } @relay_clients;