Thanks to everybody who helped me out last week. I'm now successfully
parsing mimes with MIME::Tools.
Now, suppose I have an image attachment, and I want to output it to the
browser:
my $parser = new MIME::Parser;
$parser->output_under("$$config{mimeall}/mimemail");
my $entity = $parser->parse_data( $mtext ) or return "parse failed\n";
# This is the part that has the image
my $e = $entity->parts($section);
I'm trying to use MIME::Decoder like so:
my $decoder = new MIME::Decoder $e->effective_type;
$decoder->decode( \*STDIN, \*STDOUT);
which I got from
http://www.nysaes.cornell.edu/cc/programming/perl/perldoc/MIME/Decoder.html
but I'm just not sure what to do next. Should I be trying to use
$e->print_body as a stream to STDIN?
TIA (again)
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
