NAME

Mail::Audit::KillDups - Mail::Audit plugin for duplicate suppression

SYNOPSIS

use Mail::Audit qw(KillDups);
$Mail::Audit::KillDups::dupfile = "/home/simon/.msgid-cache";
    my $mail = Mail::Audit->new;
$mail->killdups;

DESCRIPTION

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.

METHODS

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.

AUTHOR

Simon Cozens <simon@cpan.org>

SEE ALSO

Mail::Audit