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 FILEHANDLE 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.102, built on January 04, 2012. Website: http://perl.overmeer.net/mailbox/
Copyrights 2001-2012 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