From c567f3726a6f8eb92d597bc95e2e7720109b5fd0 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Wed, 3 Dec 2003 20:58:30 +0000
Subject: [PATCH] Support DENYHARD as response to RCPT

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@198 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/SMTP.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index 707bc84..df8afe8 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -268,6 +268,12 @@ sub rcpt {
     $msg ||= 'relaying denied';
     return $self->respond(450, $msg);
   }
+  elsif ($rc == DENYHARD) {
+      $msg ||= 'delivery denied';
+      $self->log(2, "delivery denied ($msg)");
+      $self->respond(550, $msg);
+      $self->disconnect;
+  }
   elsif ($rc == OK) {
     $self->respond(250, $rcpt->format . ", recipient ok");
     return $self->transaction->add_recipient($rcpt);