Replace $ENV{RELAYCLIENT} with $connection->relay_client in last plugin.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@453 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-06-28 13:35:29 +00:00
parent 5b9f01b5e4
commit 532ce30f64

View File

@ -185,7 +185,7 @@ sub denysoft_greylist {
$self->log(LOGDEBUG, "config: " . join(',',map { $_ . '=' . $config->{$_} } sort keys %$config)); $self->log(LOGDEBUG, "config: " . join(',',map { $_ . '=' . $config->{$_} } sort keys %$config));
# Always allow relayclients and whitelisted hosts/senders # Always allow relayclients and whitelisted hosts/senders
return DECLINED if exists $ENV{RELAYCLIENT}; return DECLINED if exists $self->qp->connection->relay_client();
return DECLINED if $self->qp->connection->notes('whitelisthost'); return DECLINED if $self->qp->connection->notes('whitelisthost');
return DECLINED if $transaction->notes('whitelistsender'); return DECLINED if $transaction->notes('whitelistsender');