• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 581
  • Last Modified:

MIME-tools help?

I am trying to make friends with MIME-tools (from http://www.zeegee.com/code/perl/MIME-tools) but i am not having much luck ( since i am really quite lousy on PERL).

What i want is an example of a piece of code that simply takes a message on STDIN, Decodes it, and writes all mime attachments to files, with the filenames suggested in the attachments. I am sure i will be able to make more sense of it if i have a complete example to work from.
0
j2
Asked:
j2
  • 2
1 Solution
 
andreifCommented:
use MIME::Parser;

$parser = new MIME::Parser;
$parser->output_dir("/path/to/target/dir");

# read STDIN
$entity = $parser->read(\*STDIN) or die "couldn't parse MIME stream";

# to get message headers:
$head = $entity->head;
$head->decode;
print $head->as_string;
print "\n\n";

# message parts
foreach $part($entity->parts) {
  # do something with message part
 
  # prints path to extracted file
  print $part->bodyhandle->path;
  print "\n";

  # prints mime-type
  print $part->head->mime_type;
  print "\n";
}
0
 
j2Author Commented:
Works excellent. But uhm.. call me stupid, but what exactly does the writing of the attachments? I mean, i see where it outputs path/type.. but where does the file itself get written?

Thanks :)
0
 
j2Author Commented:
And.. uhm, if i only wanted to save parts that were image/jpeg and discard the rest? (I am getting automatical mailings with graphs from a test equipment, but it also attaches a (for my part) useless text part aswell, that i would like to discard.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now