check_spamhelo: remove, deprecated by helo
This commit is contained in:
parent
9e9fcf41a7
commit
f601516f9f
@ -40,7 +40,7 @@ rhsbl
|
||||
dnsbl
|
||||
badmailfrom
|
||||
badrcptto
|
||||
check_spamhelo
|
||||
helo
|
||||
|
||||
# sender_permitted_from
|
||||
# greylisting p0f genre,windows
|
||||
|
@ -1,34 +0,0 @@
|
||||
#!perl -w
|
||||
=head1 NAME
|
||||
|
||||
check_spamhelo - Check a HELO message delivered from a connecting host.
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Check a HELO message delivered from a connecting host. Reject any
|
||||
that appear in the badhelo config -- e.g. yahoo.com and aol.com, which
|
||||
neither the real Yahoo or the real AOL use, but which spammers use
|
||||
rather a lot.
|
||||
|
||||
=head1 CONFIGURATION
|
||||
|
||||
Add domains or hostnames to the F<badhelo> configuration file; one
|
||||
per line.
|
||||
|
||||
=cut
|
||||
|
||||
sub hook_helo {
|
||||
my ($self, $transaction, $host) = @_;
|
||||
($host = lc $host) or return DECLINED;
|
||||
|
||||
for my $bad ($self->qp->config('badhelo')) {
|
||||
if ($host eq lc $bad) {
|
||||
$self->log(LOGDEBUG, "Denying HELO from host claiming to be $bad");
|
||||
return (DENY_DISCONNECT, "Sorry, I don't believe that you are $host.");
|
||||
}
|
||||
}
|
||||
return DECLINED;
|
||||
}
|
||||
|
||||
# also support EHLO
|
||||
*hook_ehlo = \&hook_helo;
|
Loading…
Reference in New Issue
Block a user