byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support DENYHARD as response to RCPT

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@198 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2003-12-03 20:58:30 +00:00
parent fe717b4b91
commit c567f3726a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Qpsmtpd/SMTP.pm
View File

@ -268,6 +268,12 @@ sub rcpt {
$msg ||= 'relaying denied'; $msg ||= 'relaying denied';
return $self->respond(450, $msg); 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) { elsif ($rc == OK) {
$self->respond(250, $rcpt->format . ", recipient ok"); $self->respond(250, $rcpt->format . ", recipient ok");
return $self->transaction->add_recipient($rcpt); return $self->transaction->add_recipient($rcpt);