[prev] [thread] [next] [lurker] [Date index for 2005/02/25]
Author: simon Date: 2005-02-25 11:00:04 +0000 (Fri, 25 Feb 2005) New Revision: 1956 Removed: trunk/buscador/lib/Buscador/UTF8.pm Log: This has been moved to Email::Store::Mail Deleted: trunk/buscador/lib/Buscador/UTF8.pm =================================================================== --- trunk/buscador/lib/Buscador/UTF8.pm 2005-02-25 10:59:39 UTC (rev 1955) +++ trunk/buscador/lib/Buscador/UTF8.pm 2005-02-25 11:00:04 UTC (rev 1956) @@ -1,48 +0,0 @@ -package Buscador::UTF8; - - -package Email::Store::Mail; -use strict; - -sub body { - my $mail = shift; - my $mime = Email::MIME->new($mail->message); - - my $body = $mime->body; - my $charset = $mime->{ct}->{attributes}{charset}; - if ($charset and $charset !~ /utf-?8/i) { - eval { - require Encode; - $body = Encode::decode($charset, $body); - Encode::_utf8_off($body); - }; - } - $body; -} - -1; - -=head1 NAME - -Buscador::UTF8 - Buscador plugin to encode the body of a message to UTF8 - -=head1 DESCRIPTION - -This plugin provides a C<body> method to B<Email::Store::Mail> -that returns a UTF-8 encoded body text. - -=head1 AUTHOR - -Simon Cozens, <simon@xxxx.xxx> - -with work from - -Simon Wistow, <simon@xxxxxxxxxx.xxx> - -=head1 COPYRIGHT - -Copyright 2004, Simon Cozens - -=cut - -
Generated at 12:00 on 25 Feb 2005 by mariachi 0.52