Mail::Sort 20070404

Mail::Sort is a Perl module to split incoming mail according to header matching conditions.

SYNOPSIS

use Mail::Sort;

$sort = new Mail::Sort(test => 0,
logfile => "$ENV{HOME}/sortlog",
loglevel => 2);
$spool = "$ENV{HOME}/Mail";

$sort->lock("$ENV{HOME}/one_at_a_time_please");

$sort->unlock("$ENV{HOME}/one_at_a_time_please");

$sort->deliver("| formail >> $spool/junk")
if $sort->header_match('from', 'spammer');

$sort->deliver("| formail >> $spool/work", keep => 1)
if $sort->destination_address('me@work.com');

$sort->deliver("| formail >> $spool/list", label => 'cool list')
if $sort->sender_match('owner-coollist@lists.r.us');

$sort->forward("boss@work.com")
if $sort->header_match('subject', 'accept credit cards');

$sort->ignore()
if grep { $_ =~ /make money/ } @{$sort->{body}};

exit(1);

Product's homepage

Requirements:

· Perl