61de599c1b
find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
35 lines
848 B
Perl
35 lines
848 B
Perl
#!perl -Tw
|
|
=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;
|