return DECLINED for bad_ssl

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@516 958fd67b-6ff1-0310-b445-bb7760255be9
2005-07-18 12:51:57 +00:00 · 2005-07-18 12:51:57 +00:00 · 820a3bcb2b
commit 820a3bcb2b
parent a69b2e1526
1 changed files with 1 additions and 0 deletions
--- 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;