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

    use Mail::Milter::Module::HeaderRegex;

my $milter = new Mail::Milter::Module::HeaderRegex('^Foo: ');

my $milter2 = &HeaderRegex('^Foo: Bar'); # convenience

This milter module rejects messages at \s-1DATA\s0 phase if one of the message's headers matches user-supplied regular expressions.

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 header name. 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