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.
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 <email@example.com>