From 820a3bcb2bc11d470194d1ab0a50af1213ca6c2e Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Mon, 18 Jul 2005 12:51:57 +0000
Subject: [PATCH] return DECLINED for bad_ssl

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@516 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/tls | 1 +
 1 file changed, 1 insertion(+)

diff --git a/plugins/tls b/plugins/tls
index 8406f76..0e3a789 100644
--- a/plugins/tls
+++ b/plugins/tls
@@ -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;