Hi, all -- I'm having some trouble using this wonderful-looking module to tackle catching bounced mail and doing something with it. I've followed the man page to a tee but get errors.
Figuring that y'all can find the man page or don't need it, here is my
basic script (with strict and warnings turned on above):
...
my $bounce = eval { Mail::DeliveryStatus::BounceParser->new ( \*STDIN ) } ;$
if ( $@ )
{ print "Whoa -- one we actually couldn't handle!\n" ; exit 255 ; }
my @addresses = $bounce->addresses; # email address strings ###
my @reports = $bounce->reports; # Mail::Header objects ###
my $orig_message_id = $bounce->orig_message_id; # "<[EMAIL PROTECTED]>" string
###
my $orig_message = $bounce->orig_message; # Mail::Internet object ###
print "WE HAVE orig_message_id AS .$orig_message_id.\n"; ###
print "WE HAVE orig_message AS .$orig_message.\n"; ###
This works well enough except that $orig_message seems to be empty; well,
I had an orig message in there but I'm not too worried about that at the
moment. The real problem is when I go on to say:
print "arrival-date: " ; print $report->get('arrival-date'); print "\n" ;
and it pukes with
Global symbol "$report" requires explicit package name at ./catch-bounced-mail.pl
line 32.
What do I need to do to get to each of these reports?
TIA & HAND
:-D
--
David T-G * There is too much animal courage in
(play) [EMAIL PROTECTED] * society and not sufficient moral courage.
(work) [EMAIL PROTECTED] -- Mary Baker Eddy, "Science and Health"
http://justpickone.org/davidtg/ Shpx gur Pbzzhavpngvbaf Qrprapl Npg!
pgp00000.pgp
Description: PGP signature
