Removed DISCARD

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@165 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2003-07-24 12:43:02 +00:00
parent 199c2164a4
commit f7790c75fd
2 changed files with 1 additions and 11 deletions

View File

@ -2,7 +2,7 @@ package Qpsmtpd::Constants;
use strict; use strict;
require Exporter; require Exporter;
my (@common) = qw(OK DECLINED DONE DENY DENYSOFT TRACE DISCARD); my (@common) = qw(OK DECLINED DONE DENY DENYSOFT TRACE);
use vars qw($VERSION @ISA @EXPORT); use vars qw($VERSION @ISA @EXPORT);
@ISA = qw(Exporter); @ISA = qw(Exporter);
@ -15,7 +15,6 @@ use constant DENY => 901;
use constant DENYSOFT => 902; use constant DENYSOFT => 902;
use constant DECLINED => 909; use constant DECLINED => 909;
use constant DONE => 910; use constant DONE => 910;
use constant DISCARD => 920;
1; 1;
@ -59,12 +58,6 @@ on to the next plugin.
Returning this from a hook implies success, but tells qpsmtpd to Returning this from a hook implies success, but tells qpsmtpd to
skip any remaining plugins for this phase. skip any remaining plugins for this phase.
=item C<DISCARD>
This can only be returned for the DATA phase. It tells qpsmtpd to
return 250 to the client implying delivery success, but silently
drops the email.
=back =back
=cut =cut

View File

@ -403,9 +403,6 @@ sub data {
elsif ($rc == DENYSOFT) { elsif ($rc == DENYSOFT) {
$self->respond(452, $msg || "Message denied temporarily"); $self->respond(452, $msg || "Message denied temporarily");
} }
elsif ($rc == DISCARD) {
$self->respond(250, $msg || "Message quietly discarded");
}
else { else {
$self->queue($self->transaction); $self->queue($self->transaction);
} }