Mail::Server::IMAP4::Fetch - message info for IMAP protocol speed-up
my $imap = Mail::Server::IMAP4::Fetch->new($msg); print $imap->fetchBody(1); # for FETCH BODYSTRUCTURE print $imap->fetchBody; # for FETCH BODY print $imap->fetchEnvelope; # for FETCH ENVELOPE print $imap->fetchSize;
Create a new object hierarchy, which contains information to capture the most important details about the message. The object can be used to speed-up IMAP-server implementations, as Mail::Box::Netzwert.
The object used here is a simplified representation of a Mail::Box::Message object. It does not maintain headers and does not refer to the folder. It only works with messages stored in a file. Therefore, this object can be frozen by Storable if you want to.
-Option --Default md5checksums 0
Returns one string, representing the message's structure as defined by the IMAP protocol. The boolean argument indicates whether you like to have the $extended information, as the imap command 'FETCH BODYSTRUCTURE' defines or the limited information of 'FETCH BODY'.
Returns a string representation of some header information.
Returns the size of the message body.
The partnummer is a list of dot-separated positive integers, numbering (nested) parts in multi-part message bodies. By default, the info of the main message is returned.
my $partinfo = $msg->info->part('1.2.1'); print $msg->info->part('3.3')->fetchBody;
Print the structure of the fetch data to the specified $fh or the selected filehandle. When explicitly
undef is specified as handle, then the output will be returned as string. Only a limited set of the information is displayed.
my $imap = ...; $imap->printStructure(\*OUTPUT); $imap->printStructure; my $struct = $imap->printStructure(undef);
This module is part of Mail-Box distribution version 2.115, built on May 28, 2014. Website: http://perl.overmeer.net/mailbox/
Copyrights 2001-2014 by [Mark Overmeer]. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html