Hello there,

I am hoping you can provide me a bit of help with something related to Mail::Audit::Attach.

I have all the methods of Mail::Audit working exactly as I need them to, except those pertaining to attachments.

For instance in the simple code example below, I simply cannot get the num_attachments to properly display. It always shows 0 no matter how many attachments are really affixed to each message:

#!/usr/local/bin/perl

use Mail::POP3Client;
use Mail::Audit qw(Attach);

my $pop=new Mail::POP3Client(USER => $username,
                          PASSWORD => $password,
                          HOST => $host,
                          AUTH_MODE => "PASS");

        for( my $i = 1; $i <= $pop->Count(); $i++ ) {
                my @msg = $pop->Retrieve($i);
                filter(@msg);
        }
        $pop->Close();



sub filter {

my @data=@_;

my $mail = Mail::Audit->new(data => \@data, noexit => 1);

print $mail->num_attachments."\n";

}
[download]

20040206 Edit by Corion: Fixed formatting, added (correct) code tags