Mail::Audit::Miner - A Mail::Audit extension for Mail::Miner

Mail-Miner documentation Contained in the Mail-Miner distribution.

Index

Code Index:

NAME

Top

Mail::Audit::Miner - A Mail::Audit extension for Mail::Miner

SYNOPSIS

Top

    use Mail::Audit::Miner;
    my $item = new Mail::Audit(@foo);
    $item = $item->miner; # Yes, you must re-assign.

DESCRIPTION

Top

This plugin to Mail::Audit VERSION 2.1 OR ABOVE ONLY calls Mail::Miner's message processing functions to store information about the incoming email. It also re-writes it, stripping attachments and replacing them with information about how to get them back out of Miner again.

Mail-Miner documentation Contained in the Mail-Miner distribution. 
package Mail::Audit::Miner;
use vars qw($VERSION);
$VERSION = "0.01";

package Mail::Audit;
use MIME::Parser;
use Mail::Miner;

sub miner {
    my $self = shift;
    my $message = $self->as_string;
    my $entity = Mail::Miner::Mail->create(
                    $Mail::Miner::parser->parse_data($message)
                 )->content;
    $entity->{_audit_opts} = { %{ $self->{_audit_opts} } };
    $entity->{obj} = $entity;
    return bless $entity, "Mail::Audit::MimeEntity";
}

1;