cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm
[email protected] (Robert Spier)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/06/10 23:11:27
Modified: lib/Qpsmtpd SMTP.pm
Log:
forgot another place to put DENYSOFTHARD
Revision Changes Path
1.27 +6 -0 qpsmtpd/lib/Qpsmtpd/SMTP.pm
Index: SMTP.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -w -r1.26 -r1.27
--- SMTP.pm 11 Jun 2004 06:06:30 -0000 1.26
+++ SMTP.pm 11 Jun 2004 06:11:27 -0000 1.27
@@ -279,6 +279,12 @@
$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);