Mail::Internet and attatchments

[stew]

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} );

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

[Abigail-II]

Does perldoc -q attachment help?

Abigail

[stew]

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.

[merlyn]

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.

[simonm]

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.

[zentara]

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;

[ysth]

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.