Email-MIME
view release on metacpan or search on metacpan
1.929 2015-02-17 09:31:35-05:00 America/New_York-trynot to lose unrecognized content-type parameters- avoid copying the body contentwhennot needed during construction1.928 2014-12-15 21:47:49-05:00 America/New_York-whenconverting from single part to multipart, dropContent-Transfer-Encoding and Content-Type's charset property- update subparts in walk_partsifstringification changes1.927 2014-12-04 10:19:58-05:00 America/New_York- add header_str_pairs; like header_pairs, but decoded- remove Email:MIME::Creator from synopsis1.926 2014-01-28 23:28:41-05:00 America/New_York- improve EOL processingwithquoted-printable (thanks, TomohiroHosaka!)- avoid uninitialized warnings [rt.cpan.org#91707]1.925 2013-11-08 07:01:03 America/New_York- improve reliability of mail reconstruction during walk_parts (thanks,Tomohiro Hosaka!)
add better supportforUnicodewithbody_str, header_str_set, etc.1.863 2009-01-30nocode changesadd strangely missing copyright information1.862 2009-01-22add repository location metadataEmail::MIME on pre-5.008 will be difficult,ifnot impossibleifa header can't be decoded, fall back to the raw headermove decoding methods to Email::MIME::Header, add header_raw1.861 2007-11-05added perl-minver.t -- Email::MIME requires perl >= 5.0061.860 2007-07-13tentative tweak to tests and C-T-E handlingforcharsetprobably needs more research, testing, and fixing
lib/Email/MIME.pm view on Meta::CPAN
#pod#pod B<Wait!> Before you read this, maybe you just need L<Email::Stuffer>, which is#pod a much easier-to-use tool for building simple email messages that might have#pod attachments or both plain text and HTML. If that doesn't do it for you, then#pod by all means keep reading.#pod#pod use Email::MIME;#pod my $parsed = Email::MIME->new($message);#pod#pod my @parts = $parsed->parts; # These will be Email::MIME objects, too.#pod my $decoded = $parsed->body;#pod my $non_decoded = $parsed->body_raw;#pod#pod my $content_type = $parsed->content_type;#pod#pod ...or...#pod#pod use Email::MIME;#pod use IO::All;#pod#pod # multipart message#pod my @parts = (
lib/Email/MIME.pm view on Meta::CPAN
#pod ],#pod );#pod#pod print $email->as_string;#pod#pod =head1 DESCRIPTION#pod#pod This is an extension of the L<Email::Simple> module, to handle MIME#pod encoded messages. It takes a message as a string, splits it up into its#pod constituent parts, and allows you access to various parts of the#pod message. Headers are decoded from MIME encoding.#pod#pod =head1 METHODS#pod#pod Please see L<Email::Simple> for the base set of methods. It won't take#pod very long. Added to that, you have:#pod#pod =cutour$CREATOR='Email::MIME::Creator';
lib/Email/MIME.pm view on Meta::CPAN
B<Wait!> Before youreadthis, maybe you just need L<Email::Stuffer>, which isattachments or both plain text and HTML. If that doesn'tdoitforyou, thenby all means keep reading.my$parsed= Email::MIME->new($message);my@parts=$parsed->parts;# These will be Email::MIME objects, too.my$decoded=$parsed->body;my$non_decoded=$parsed->body_raw;my$content_type=$parsed->content_type;...or...# multipart messagemy@parts= (
lib/Email/MIME.pm view on Meta::CPAN
],);->as_string;=head1 DESCRIPTIONThis is an extension of the L<Email::Simple> module, to handle MIMEencoded messages. It takes a message as a string, splits it up into itsconstituent parts, and allows you access to various parts of themessage. Headers are decoded from MIME encoding.=head1 PERL VERSIONThis library should run on perls released even a long time ago. It shouldwork on any version of perl released in the last five years.Although it may work on older versions of perl, no guarantee is made that theminimum required version will not be increased. The version may be increasedfor any reason, and there is no promise that patches will be accepted tolower the minimum required perl.
lib/Email/MIME.pm view on Meta::CPAN
as MIME encoded-wordsifthey contain any control or 8-bit characters.Alternatively,valuescan be objectswithC<as_mime_string> method. Same as inmethod C<create>.=head2 header_str_pairsmy @pairs = $email->header_str_pairs;This method behaves like C<header_raw_pairs>, returning a list of fieldname/value pairs, but the values have been decoded to character strings, whenpossible.=head2 header_as_objmy $first_obj = $email->header_as_obj($field);my $nth_obj = $email->header_as_obj($field, $index);my @all_objs = $email->header_as_obj($field);my $nth_obj_of_class = $email->header_as_obj($field, $index, $class);my @all_objs_of_class = $email->header_as_obj($field, undef, $class);
lib/Email/MIME.pm view on Meta::CPAN
#pod as MIME encoded-words if they contain any control or 8-bit characters.#pod#pod Alternatively, values can be objects with C<as_mime_string> method. Same as in#pod method C<create>.#pod#pod =method header_str_pairs#pod#pod my @pairs = $email->header_str_pairs;#pod#pod This method behaves like C<header_raw_pairs>, returning a list of field#pod name/value pairs, but the values have been decoded to character strings, when#pod possible.#pod#pod =method header_as_obj#pod#pod my $first_obj = $email->header_as_obj($field);#pod my $nth_obj = $email->header_as_obj($field, $index);#pod my @all_objs = $email->header_as_obj($field);#pod#pod my $nth_obj_of_class = $email->header_as_obj($field, $index, $class);#pod my @all_objs_of_class = $email->header_as_obj($field, undef, $class);
t/charset.t view on Meta::CPAN
like(->header('Content-type'),qr/utf-8/i,"we don't kill the charset on single 'parts' arg",);like(->body_str,qr/\xFF/,"...and the decoded body still has U+00FF in it",);ok(1);done_testing;
t/header-addresslist.t view on Meta::CPAN
use_ok('Email::MIME');use_ok('Email::MIME::Header::AddressList');}{my= Email::MIME->new('To: =?US-ASCII?Q?MIME=3A=3B?=: =?US-ASCII?Q?Winston=3A_Smith?= <winston.smith@recdep.minitrue>, =?US-ASCII?Q?Julia=3A=3B_?= <julia@ficdep.minitrue>'."\r\n\r\n");my$str=->header_str('To');my$obj=->header_as_obj('To');my@addr=$obj->addresses();my@grps=$obj->groups();is($str,'"MIME:;": "Winston: Smith" <winston.smith@recdep.minitrue>, "Julia:; " <julia@ficdep.minitrue>;');# See that decoded From header string is now quoted, so is unambiguousis($addr[0]->phrase,'Winston: Smith');is($addr[0]->address,'winston.smith@recdep.minitrue');is($addr[1]->phrase,'Julia:; ');is($addr[1]->address,'julia@ficdep.minitrue');is($grps[0],'MIME:;');is($grps[1]->[0]->phrase,'Winston: Smith');is($grps[1]->[0]->address,'winston.smith@recdep.minitrue');is($grps[1]->[1]->phrase,'Julia:; ');is($grps[1]->[1]->address,'julia@ficdep.minitrue');}
Part one, part one!__MESSAGE__Content-Transfer-Encoding: base64UGFydCB0d28sIHBhcnQgdHdvIQo=__MESSAGE2__isscalar(->parts), 2,'two parts';is +(->parts)[1]->body,qq[Part two, part two!\n],'part two decoded';->parts_add([->parts ]);isscalar(->parts), 4,'four parts';is +(->parts)[1]->body,qq[Part two, part two!\n],'part two decoded again';is +(->parts)[3]->body,qq[Part two, part two!\n],'part four decoded';->walk_parts(sub{my$part=shift;isa_ok$part,'Email::MIME';$part->encoding_set('base64')if$part->parts <= 1;$part->body_set("foo\nbar")if$part->parts <= 1;});->walk_parts(sub{
( run in 0.663 second using v1.01-cache-2.11-cpan-5f2e87ce722 )