Mail::Internet and attatchments

stew has asked for the wisdom of the Perl Monks concerning the following question:

Hi there,
I have a support logging script that handles in-bound emails, logs them in a database and sends notifications to various recipients.
I'm using Mail::Internet to carve up a message on STDIN thus

    $message = new Mail::Internet \*STDIN;
    $who_from = $message->head->get("From");
    $sent = $message->head->get("Date");
    $subject = $message->head->get("Subject"); 
    $content = join('',@{$message->body} );
[download]

This works perfect apart from PHB now requires the system to handle attachments. To be honest I'm quite stumped as to what happens to any attachments. I've scouerd CPAN and this site to no avail.

As always, any advice most welcome, especially if anybody knows of another mod that will deal with attachments.

Cheers Stew

Comment on Mail::Internet and attatchments Download Code

Replies are listed 'Best First'.
Re: Mail::Internet and attatchments by Abigail-II (Bishop) on Nov 11, 2003 at 12:04 UTC
Does `perldoc -q attachment` help? Abigail	[reply]
Re: Re: Mail::Internet and attatchments by stew (Scribe) on Nov 11, 2003 at 14:07 UTC
Thanks for the advice. I'm looking to handle the inbound attatchments. While my script can handle the header and body of the message, forward them on and record details in a database, I need to be able to forward any attatchments on as well.	[reply]
•Re: Mail::Internet and attatchments by merlyn (Sage) on Nov 11, 2003 at 15:21 UTC
I had to wrangle with attachments in my column on ripping out the useless HTML fork of a message. Maybe the example code there will be a useful starting point. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: Mail::Internet and attatchments by zentara (Cardinal) on Nov 11, 2003 at 15:37 UTC
Mbox::Parser? #!/usr/bin/perl use Mail::MboxParser; my $mb = Mail::MboxParser->new('Mboxtest', decode => 'ALL'); # slurping for my $msg ($mb->get_messages) { print "###########################################################\n"; print $msg->header->{subject}, "\n"; print $msg->header->{from}, "\n"; print "###########################################################\n"; $msg->store_all_attachments('tmp'); my ($body) = $msg->body($msg->find_body,0); print ($body->as_string); print "###########################################################\n"; } print "############################################################\n" +; print "############################################################\n" +; print "############################################################\n" +; # we forgot to do something with the messages $mb->rewind; while (my $msg = $mb->next_message) { # iterate again # ... } exit; [download]	[reply] [d/l]
Re: Mail::Internet and attatchments by simonm (Vicar) on Nov 11, 2003 at 21:43 UTC
Consider using MIME::Explode to parse your message instead of Mail::Internet. It will give you a structure of message headers and one or more enclosed content parts, with the attachments spit out into temporary files that you can further process as needed.	[reply]
Re: Mail::Internet and attatchments by ysth (Canon) on Nov 11, 2003 at 15:59 UTC
I've never had to do this, but perhaps MIME-Tools will help. I see one piece of code that I use (Mail::Audit) that checks for a MIME-Version header (I think case insensitively) to tell if mime parsing is needed.	[reply]