cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm
[email protected] (Matt Sergeant)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 03/12/03 12:58:30
Modified: lib/Qpsmtpd SMTP.pm
Log:
Support DENYHARD as response to RCPT
Revision Changes Path
1.21 +6 -0 qpsmtpd/lib/Qpsmtpd/SMTP.pm
Index: SMTP.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -r1.20 -r1.21
--- SMTP.pm 3 Dec 2003 08:07:36 -0000 1.20
+++ SMTP.pm 3 Dec 2003 20:58:30 -0000 1.21
@@ -268,6 +268,12 @@
$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);