data_headers_end does not work in async mode

This commit is contained in:
Robert 2009-02-12 00:29:56 -08:00
parent b3c10c6220
commit e5507f9672
2 changed files with 4 additions and 0 deletions

View File

@ -787,6 +787,8 @@ B<NOTE:> BE CAREFUL! If you drop the connection legal MTAs will retry again
and again, spammers will probably not. This is not RFC compliant and can lead and again, spammers will probably not. This is not RFC compliant and can lead
to an unpredictable mess. Use with caution. to an unpredictable mess. Use with caution.
B<NOTE:> This hook does not currently work in async mode.
Why this head may be useful for you, see Why this head may be useful for you, see
L<http://www.nntp.perl.org/group/perl.qpsmtpd/2009/02/msg8502.html>, ff. L<http://www.nntp.perl.org/group/perl.qpsmtpd/2009/02/msg8502.html>, ff.

View File

@ -666,6 +666,8 @@ sub data_respond {
$self->transaction->header($header); $self->transaction->header($header);
# NOTE: This will not work properly under async. A
# data_headers_end_respond needs to be created.
my ($rc, $msg) = $self->run_hooks('data_headers_end'); my ($rc, $msg) = $self->run_hooks('data_headers_end');
if ($rc == DENY_DISCONNECT) { if ($rc == DENY_DISCONNECT) {
$self->respond(554, $msg || "Message denied"); $self->respond(554, $msg || "Message denied");