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

rhsbl: added default reject settings

Browse Source
This commit is contained in:
Matt Simerson 2012-06-26 01:03:00 -04:00
parent 7a045474f9
commit 723fe314fa
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
plugins/rhsbl
View File

@ -46,6 +46,11 @@ sub register {
else {
$self->{_args} = { @_ };
};
if ( ! defined $self->{_args}{reject} ) {
$self->{_args}{reject} = 1;
};
$self->{_args}{reject_type} ||= 'perm';
}
sub hook_mail {
@ -94,17 +99,17 @@ sub hook_mail {
$self->log(LOGDEBUG, "TXT record found: " . $rr->txtdata);
};
if ( $result ) {
$self->log(LOGINFO, "fail, $result");
next if ! $result;
my $host = $transaction->sender->host;
if ($result =~ /^$host\./ ) {
return $self->get_reject( "Mail from $host rejected because it $result" );
};
$self->log(LOGINFO, "fail, $result");
my $hello = $self->qp->connection->hello_host;
return $self->get_reject( "Mail from HELO $hello rejected because it $result" );
my $host = $transaction->sender->host;
if ($result =~ /^$host\./ ) {
return $self->get_reject( "Mail from $host rejected because it $result" );
};
my $hello = $self->qp->connection->hello_host;
return $self->get_reject( "Mail from HELO $hello rejected because it $result" );
}
}
}