From 971b696ffa3106a9de4e5fa006c66c0912450406 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Fri, 11 Jun 2004 06:11:27 +0000
Subject: [PATCH] forgot another place to put DENYSOFTHARD

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@241 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 7be9085..4d90235 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -279,6 +279,12 @@ sub rcpt {
       $self->respond(550, $msg);
       $self->disconnect;
   }
+  elsif ($rc == DENYSOFTHARD) {
+    $msg ||= 'relaying denied';
+    $self->log(LOGINFO, "delivery denied ($msg)");
+    $self->respond(450, $msg);
+    $self->disconnect;
+  }
   elsif ($rc == OK) {
     $self->respond(250, $rcpt->format . ", recipient ok");
     return $self->transaction->add_recipient($rcpt);