On Apache
Under GNU General Public License
2012-05-24 18:00 @38.107.179.240 Crawled by CCBot/1.0 (+http://www.commoncrawl.org/bot.html)
Mail::Server::IMAP4::List(3pm) User Contributed Perl Documentation Mail::Server::IMAP4::List(3pm)
NAME
Mail::Server::IMAP4::List - folder related IMAP4 answers
INHERITANCE
SYNOPSIS
my $imap = Mail::Server::IMAP4::List->new
( folders => $folders # Mail::Box::Identity
, inbox => $inbox # Mail::Box
, delimiter => '#'
);
my $imap = Mail::Server::IMAP4::List->new(user => $user);
print $imap->list(...); # for LIST command
DESCRIPTION
METHODS
Constructors
Mail::Server::IMAP4::List->new(USER)
Create a (temporary) object to handle the LIST requests for a certain user, based upon
a set of folders. The data is kept by Mail::Box::Identity and Mail::Box::Collection
objects, which mean that the folders will not be opened to answer these questions.
Option --Default
delimeter '/'
folders <from user>
inbox <from user>
user <undef>
. delimeter => STRING|CODE
Either the constant delimiter, or a code reference which will get passed a folder
name and should return the delimiter string used in that name. If that folder
name is empty, the default delimiter must be reported. See delimiter() for an
example.
. folders => OBJECT
You need to specify either a set of folders explicitly or via the user. Some
Mail::Box::Identity OBJECT is needed.
. inbox => BOOLEAN
For now, only used to see whether there is an inbox, so a truth value will do.
This may change in the future. By default, the flag is set if "$user-"inbox> is
defined.
. user => OBJECT
A Mail::Box::Manage::User OBJECT, representing the user who's folders must get
reported.
Attributes
$obj->delimiter([FOLDERNAME])
Returns the delimiter string. The foldername is only required when a CODE reference
was specified at initiation.
example: setting-up an IMAP4 delimeter
sub delim($)
{ my $path = shift;
my ($delim, $root)
= $path =~ m/^(#news\.)/ ? ('.', $1)
= $path =~ m!^/! ? ('/', '/')
: ('/', '');
wantarray ? ($delim, $root) : $delim;
}
my $list = Mail::Server::IMAP4::List->new(delimiter => \&delim, ...);
print $list->delimiter('abc/xyz'); # returns a / (slash) and ''
print $list->delimiter('#news.feed'); # returns a . (dot) and $news.
print $list->delimiter(''); # returns default delimiter
$obj->folders
Returns the Mail::Box::Identity of the toplevel folder.
$obj->inbox
Returns the Mail::Box or filename of the INBOX.
$obj->user
Returns the Mail::Box::Manage::User object, if defined.
IMAP Commands
$obj->list(BASE, PATTERN)
IMAP's LIST command. The request must be partially decoded, the answer will need to
be encoded.
example: using IMAP list
my $imap = Mail::Server::IMAP4::List->new(delimiter => \&delim, ...);
local $" = ';';
my @lines = $imap->list('', ''); # returns the default delimiter
print ">@{$lines[0]}<"; # >(\Noselect);/;<
my @lines = $imap->list('#news',''); # specific delimiter
print ">@{$lines[0]}<"; # >(\Noselect);.;<
my @lines = $imap->list('top/x/', '%');
print ">@$_<," foreach @lines; # >();/;/tmp/x/y<,>(\Marked);/;/tmp/x/z<
DETAILS
See
RFC2060: "Internet Message Access Protocol IMAP4v1"
sections 6.3.8 (LIST question) and 7.2.2 (LIST answer)
SEE ALSO
This module is part of Mail-Box distribution version 2.082, built on April 28, 2008.
Website: http://perl.overmeer.net/mailbox/
LICENSE
Copyrights 2001-2008 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
perl v5.10.0 2008-04-28 Mail::Server::IMAP4::List(3pm)
Generated by $Id: phpMan.php,v 4.49 2006/02/26 13:18:18 chedong Exp $ Author: Che Dong
On Apache
Under GNU General Public License
2012-05-24 18:00 @38.107.179.240 Crawled by CCBot/1.0 (+http://www.commoncrawl.org/bot.html)