I wanted to build an awesome place for people to discuss module specific issues, but I don't have any more time for this, and there are much better places to discuss Perl-related issues. I'd recommend asking your question on Stack Overflow or on Perl Monks.
If you are looking for a Perl tutorial or Perl-related news, I hope these links will serve you well.
Mail-DeliveryStatus-BounceParser
Posted on 2005-03-07 11:10:24-08 by softbaked
Mail::DeliveryStatus::BounceParser Anybody?
Hi, I'm having trouble understanding how to get Mail::DeliveryStatus::BounceParser to work. this is the synopsis:

my $bounce = Mail::DeliveryStatus::BounceParser->new( \*STDIN | $fh | "entire\nmessage" |"array","o +f","lines"] )

I can't use the "entire\nmessage" or ["array","of","lines"] because of the file size and if I feed it STDIN or a file handle I get nothing...., any thoughts would be appreciated.

Link to module

Direct Responses: 187 | Write a response
Posted on 2005-03-07 13:51:06-08 by b10m in response to 185
Re: Mail::DeliveryStatus::BounceParser Anybody?

Hi,

I've recently started to mess with this module too and found out that it didn't parse _all_ bounces well, but a fair enough deal for what I like to use it for.

I somehow wonder why your 'file size' seems to limit you to read the entire message. Bounces rarely get very big. If you want to parse an entire mailbox, I suggest using e.g. Mail::Box for that part, who throws the individual messages to this module. Maybe you could explain this?

Anyways, this sample code seemed to work for me (basically straight from the POD):

use Mail::DeliveryStatus::BounceParser; my $bounce = eval { Mail::DeliveryStatus::BounceParser->new ( \*STDIN ) }; if ( $@ ) { print "Whoa -- one we actually couldn't handle!\n" ; exit 255 ; } if($bounce->is_bounce) { foreach my $report ( $bounce->reports ) { print $bounce->orig_message_id; print $report->get('std_reason')."\n"; } } else { print "NO BOUNCE!\n"; }

And then,
perl whatever.pl < bounce.message

Direct Responses: 189 | Write a response
Posted on 2005-03-08 17:59:58-08 by softbaked in response to 187
Re: Mail::DeliveryStatus::BounceParser Anybody?
Thanks for the reply, I had no problem processing individual bounces, and I was using similar code to what you posted above, the problem I was having was trying to process an entire mailbox which had collected over 10,000 bounces. Your suggestion to use something like 'Mail::Box' cleared things up for me ( I ended up using Mail::MboxParser ) which allowed me to feed it one message at a time, thanks again.

Just like you I noticed that it did not parse _all_ bounces well, in most situations this would have been fine for my purpose but I needed near 100% accuracy this time so instead I ended up using bBounce it's $9.95 a month but if you have a large maillist it's priceless, I'm very happy with the service.
Direct Responses: Write a response