Mail::Milter::Module::HeloRegex (3pm)

    use Mail::Milter::Module::HeloRegex;

my $milter = new Mail::Milter::Module::HeloRegex('^foo\.com$');

my $milter2 = &HeloRegex('^foo\.com$'); # convenience

This milter module rejects entire \s-1SMTP\s0 connections if the connecting client issues a \s-1HELO\s0 command matching user-supplied regular expressions. Note that only the initial word of the \s-1HELO\s0 string is tested; any \s-1EHLO\s0 parameters are not checked by the regexes.

new(REGEX[, ...])

Accepts one or more regular expressions, as strings or qr// precompiled regexes. They are tested in sequence, and the first match terminates checking.

set_message(\s-1MESSAGE\s0)

Sets the message used when rejecting messages. This string may contain the substring %H, which will be replaced by the matching \s-1HELO\s0 parameter. This method returns a reference to the object itself, allowing this method call to be chained.

Todd Vierling, <[email protected]> <[email protected]>

Mail::Milter::Object