Milter to check for an unqualified helo name
use Mail::Milter::Module::HeloUnqualified;
my $milter = new Mail::Milter::Module::HeloUnqualified([EXCEPT]);
my $milter2 = &HeloUnqualified([EXCEPT]); # convenience
This milter module rejects any domain name that HELOs without a dot, and which is not an IPv4/IPv6 literal. Whether or not the \s-1HELO\s0 value corresponds to the connecting host is not checked by this module.
If the \s-1EXCEPT\s0 argument is supplied, it should be a regex enclosed in a string which will be exempted from this check. Commonly, '^localhost' is excepted.
Todd Vierling, <[email protected]> <[email protected]>
Mail::Milter::Object