rhsbl: added default reject settings

This commit is contained in:
Matt Simerson 2012-06-26 01:03:00 -04:00
parent 7a045474f9
commit 723fe314fa

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,7 +99,8 @@ sub hook_mail {
$self->log(LOGDEBUG, "TXT record found: " . $rr->txtdata);
};
if ( $result ) {
next if ! $result;
$self->log(LOGINFO, "fail, $result");
my $host = $transaction->sender->host;
@ -104,7 +110,6 @@ sub hook_mail {
my $hello = $self->qp->connection->hello_host;
return $self->get_reject( "Mail from HELO $hello rejected because it $result" );
};
}
}
}