Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Perl > Perl Misc > Mail::Audit::Attach

Reply
Thread Tools

Mail::Audit::Attach

 
 
Ed Mansouri
Guest
Posts: n/a
 
      02-06-2004
I am hoping someone 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:

<perlCode>


#!/usr/local/bin/perl

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

my $pop=new Mail:OP3Client(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";

}



</perlCode>
 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off




Advertisments