byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

plugins/tls: work-around for failed connections in -prefork after STARTTLS

Browse Source 
connection (Stefan Priebe, Hanno Hecker)


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@805 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Hanno Hecker 2007-09-30 13:00:32 +00:00
parent 1d4eca3ab3
commit 275fce4764
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
plugins/tls
View File

@ -104,7 +104,10 @@ HOOK: foreach my $hook ( keys %{$qp->{hooks}} ) {
} }
} }
} }
# work-around for failed connections in -prefork after STARTTLS connection:
$self->register_hook('post-connection', 'prefork_workaround')
if $qp->isa('Qpsmtpd::SMTP::Prefork');
} }
sub hook_ehlo { sub hook_ehlo {
@ -224,3 +227,14 @@ sub bad_ssl_hook {
return DECLINED; return DECLINED;
} }
*hook_helo = *hook_data = *hook_rcpt = *hook_mail = \&bad_ssl_hook; *hook_helo = *hook_data = *hook_rcpt = *hook_mail = \&bad_ssl_hook;
# work-around for failed connections in -prefork after STARTTLS connection:
sub prefork_workaround {
my $self = shift;
# nothing to do on SSL only (SMTPS) and clear text communications
return (DECLINED) if $self->connection->local_port == 465;
return (DECLINED) unless $self->connection->notes('tls_enabled');
$self->log(LOGWARN, "Exiting because 'tls_enabled' was true.");
exit;
}