[svn:qpsmtpd] rev 516 - branches/0.31/plugins
[email protected] 18 Jul 2005 12:51:57 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Author: msergeant
Date: Mon Jul 18 05:51:57 2005
New Revision: 516
Modified:
branches/0.31/plugins/tls
Log:
return DECLINED for bad_ssl
Modified: branches/0.31/plugins/tls
==============================================================================
--- branches/0.31/plugins/tls (original)
+++ branches/0.31/plugins/tls Mon Jul 18 05:51:57 2005
@@ -131,5 +131,6 @@ sub ssl_context {
sub bad_ssl_hook {
my ($self, $transaction) = @_;
return DENY, "Command refused due to lack of security" if $transaction->notes('ssl_failed');
+ return DECLINED;
}
*hook_helo = *hook_data = *hook_rcpt = *hook_mail = *hook_auth = \&bad_ssl_hook;