From ddc945f8f67a3a39815ff99717e13a41d551a875 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Sun, 28 Nov 2004 05:58:58 +0000
Subject: [PATCH] DENYHARD is deprecated in favor of DENY_DISCONNECT

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@353 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/count_unrecognized_commands | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/plugins/count_unrecognized_commands b/plugins/count_unrecognized_commands
index bbf36c0..1f92a31 100644
--- a/plugins/count_unrecognized_commands
+++ b/plugins/count_unrecognized_commands
@@ -1,3 +1,4 @@
+# -*- perl -*-
 =head1 NAME
 
 count_unrecognized_commands - Count unrecognized commands and disconnect when we have too many
@@ -41,7 +42,7 @@ sub check_unrec_cmd {
 
   if ($badcmdcount >= $self->{_unrec_cmd_max}) {
     $self->log(LOGINFO, "Closing connection. Too many unrecognized commands.");
-    return (DENYHARD, "Closing connection. $badcmdcount unrecognized commands.  Perhaps you should read RFC 2821?");
+    return (DENY_DISCONNECT, "Closing connection. $badcmdcount unrecognized commands.  Perhaps you should read RFC 2821?");
   }
 
   return DECLINED;