don't return multiline replies for now
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@211 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
964242f7be
commit
7a58f1280d
@ -144,7 +144,7 @@ sub rcpt_handler {
|
|||||||
my $result = $ENV{'RBLSMTPD'};
|
my $result = $ENV{'RBLSMTPD'};
|
||||||
my $remote_ip = $self->qp->connection->remote_ip;
|
my $remote_ip = $self->qp->connection->remote_ip;
|
||||||
$result =~ s/%IP%/$remote_ip/g;
|
$result =~ s/%IP%/$remote_ip/g;
|
||||||
return (DENY, join("\n", $self->qp->config('dnsbl_rejectmsg'), $result));
|
return (DENY, join(" ", $self->qp->config('dnsbl_rejectmsg'), $result));
|
||||||
}
|
}
|
||||||
|
|
||||||
my $note = $self->process_sockets;
|
my $note = $self->process_sockets;
|
||||||
|
Loading…
Reference in New Issue
Block a user