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

    use Mail::Milter::Module::VirusBounceSpew;

my $milter = new Mail::Milter::Module::VirusBounceSpew;

my $milter2 = &VirusBounceSpew; # convenience

This module rejects messages at the \s-1DATA\s0 phase by searching for known signs of misconfigured antivirus software. An increasing problem on the Internet as of this writing is a tendency for viruses and trojans to send mail with a forged envelope from address. This is triggering antivirus warning messages back to these forged senders.

new()

Creates a VirusBounceSpew milter object. The match rules are internally hardcoded and may be examined by reading the module source.

set_message(\s-1MESSAGE\s0)

Sets the message used when rejecting messages. This method returns a reference to the object itself, allowing this method call to be chained.

The rules could be much simpler, but at risk of catching legit mail. A future release will simplify the regex tests.

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

Mail::Milter::Object