Re^5: MIME voodoo.

if you switch the two mimes around it doesn't work

Note my last comment for the example. There's a bug, as $_->content_type returns not just text/plain, but text/plain; charset=.... So you should replace

$ct{$_->content_type} = $_ for @parts;
[download]

with

for (@parts) {
    (my $c = $_->content_type) =~ s/;.+//;
    $ct{$c} = $_;
}
[download]

but this solution thought would work for most messages isn't perfect either, as it is possible to have several text/plain parts with different charsets.

Comment on Re^5: MIME voodoo. Select or Download Code

Replies are listed 'Best First'.
Re^6: MIME voodoo. by vxp (Pilgrim) on Jul 16, 2009 at 20:10 UTC
Ah! I see now - you're getting rid of the semicolon and everything that follows, so you're only left with text/plain or text/html. I see. :) Any ideas why it only returns the plain text portion, and no html? `sub get_text_parts { my @parts = shift->parts; my %ct; # $ct{$_->content_type} = $_ for @parts; for (@parts) { (my $c = $_->content_type) =~ s/;.+//; # print "\nDEBUG: $c\n"; $ct{$c} = $_; } return $ct{'text/plain'} if exists $ct{'text/plain'}; return $ct{'text/html'} if exists $ct{'text/html'}; return $parts[0] if $which =~ /text/; return $parts[1] if $which =~ /html/; }` [download] outputs: `$ ./grab.pl mime4 html line1 line2 line3 $ ./grab.pl mime4 text line1 line2 line3 $` [download] I really appreciate you taking the time to help out, thanks a lot :)	[reply] [d/l] [select]
Re^7: MIME voodoo. by ikegami (Patriarch) on Jul 16, 2009 at 20:39 UTC
`return $ct{'text/plain'} if exists $ct{'text/plain'}; return $ct{'text/html'} if exists $ct{'text/html'}; return $parts[0] if $which =~ /text/; return $parts[1] if $which =~ /html/;` [download] should be `my $ct = $which eq 'html' ? 'text/html' : 'text/plain'; return $ct{$ct} if exists $ct{$ct}; # Fall back to plain text or HTML return $ct{'text/plain'} if exists $ct{'text/plain'}; return $ct{'text/html'} if exists $ct{'text/html'}; # Fall back to whatever's first return $parts[0];` [download] By the way, `$ct{$_->content_type} = $_ for @parts;` [download] should be changed to `$ct{$_->content_type} \|\|= $_ for @parts;` [download] to get the first part with the right content type, not the last.	[reply] [d/l] [select]
Re^8: MIME voodoo. by vxp (Pilgrim) on Jul 16, 2009 at 20:54 UTC
Now it works as I intended! Much thanks to all	[reply]
Re^7: MIME voodoo. by zwon (Abbot) on Jul 16, 2009 at 20:40 UTC
Any ideas why it only returns the plain text portion, and no html? Sure ;) Look at this, here are four returns and first always works: `#this one returns you text/plain part return $ct{'text/plain'} if exists $ct{'text/plain'}; # and these are not executed it there's text/plain part return $ct{'text/html'} if exists $ct{'text/html'}; # these are not executed at all an they are not correct! # parts[0] may contain text/html and parts[1] text/plain return $parts[0] if $which =~ /text/; return $parts[1] if $which =~ /html/` [download]	[reply] [d/l]