Mail::Audit::KillDups - Mail::Audit plugin for duplicate suppression
use Mail::Audit qw(KillDups);
$Mail::Audit::KillDups::dupfile = "/home/simon/.msgid-cache";
my $mail = Mail::Audit->new;
$mail->killdups;
This is a Mail::Audit plugin which provides a method for checking and supressing duplicate messages; that is, mails with message-ids which have been previously seen.
killdups
Checks the incoming message against a file of previously seen message
ids, ignores it if it's already seen, and adds it if it hasn't been.
$Mail::Audit::KillDups::dupfile contains the name of the file used;
if you don't set this, it will be .msgid-cache in the current
directory. (Probably your home directory.)
The data in $Mail::Audit::KillDups::dupfile will be treated as a
ring buffer, where the end of the buffer will be delimited by two
newline characters. When the file size exceeds
$Mail::Audit::KillDups::cache_bytes bytes, the message id will be
written at the beginning of the file. Old message ids in the file
will be overwritten.
Simon Cozens <simon@cpan.org>