[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;