Imap client interface with lots of features
use Mail::IMAPTalk;
$IMAP = Mail::IMAPTalk->new(
Server => $IMAPServer,
Username => 'foo',
Password => 'bar',
Uid => 1 )
|| die "Failed to connect/login to IMAP server";
# Append message to folder
open(my $F, 'rfc822msg.txt');
$IMAP->append($FolderName, $F) || dir $@;
close($F);
# Select folder and get first unseen message
$IMAP->select($FolderName) || die $@;
$MsgId = $IMAP->search('not', 'seen')->[0];
# Get message envelope and print some details
$MsgEV = $IMAP->fetch($MsgId, 'envelope')->{$MsgId}->{envelope};
print "From: " . $MsgEv->{From};
print "To: " . $MsgEv->{To};
print "Subject: " . $MsgEv->{Subject};
# Get message body structure
$MsgBS = $IMAP->fetch($MsgId, 'bodystructure')->{$MsgId}->{bodystructure};
# Find imap part number of text part of message
$MsgTxtHash = Mail::IMAPTalk::find_message($MsgBS);
$MsgPart = $MsgTxtHash->{text}->{'IMAP-Partnum'};
# Retrieve message text body
$MsgTxt = $IMAP->fetch($MsgId, "body[$MsgPart]")->{$MsgId}->{body};
$IMAP->logout();
This module communicates with an \s-1IMAP\s0 server. Each \s-1IMAP\s0 server command is mapped to a method of this object.
Although other \s-1IMAP\s0 modules exist on \s-1CPAN\s0, this has several advantages over other modules.
It parses the more complex \s-1IMAP\s0 structures like envelopes and body structures into nice Perl data structures.
It correctly supports atoms, quoted strings and literals at any point. Some parsers in other modules aren't fully \s-1IMAP\s0 compatiable and may break at odd times with certain messages on some servers.
It allows large return values (eg. attachments on a message) to be read directly into a file, rather than into memory.
It includes some helper functions to find the actual text/plain or text/html part of a message out of a complex \s-1MIME\s0 structure. It also can find a list of attachements, and \s-1CID\s0 links for \s-1HTML\s0 messages with attached images.
It supports decoding of \s-1MIME\s0 headers to Perl utf-8 strings automatically, so you don't have to deal with \s-1MIME\s0 encoded headers (enabled optionally).
While the \s-1IMAP\s0 protocol does allow for asynchronous running of commands, this module is designed to be used in a synchronous manner. That is, you issue a command by calling a method, and the command will block until the appropriate response is returned. The method will then return the parsed results from the given command.
The object methods have been broken in several sections.
Lists the available constants the class uses.
Explains all the options available when constructing a new instance of the \*(C`Mail::IMAPTalk\*(C' class.
These are methods which control the overall \s-1IMAP\s0 connection object, such as logging in and logging out, how results are parsed, how folder names and message id's are treated, etc.
These are methods to inspect, add, delete and rename \s-1IMAP\s0 folders on the server.
These are methods to retrieve, delete, move and add messages to/from \s-1IMAP\s0 folders.
These are extra methods that users of this class might find useful. They generally do extra parsing on returned structures to provide higher level functionality.
These are methods used internally by the \*(C`Mail::IMAPTalk\*(C' object to get work done. They may be useful if you need to extend the class yourself. Note that internal methods will always 'die' if they encounter any errors.
These are functions used internally by the \*(C`Mail::IMAPTalk\*(C' object to read/write data to/from the \s-1IMAP\s0 connection socket. The class does its own buffering so if you want to read/write to the \s-1IMAP\s0 socket, you should use these functions.
These are functions used to parse the results returned from the \s-1IMAP\s0 server into Perl style data structures.
All methods return undef on failure. There are four main modes of failure:
In each case, some readable form of error text is placed in $@, or you can call the \*(C`get_last_error()\*(C' method. For commands which return responses (e.g. fetch, getacl, etc), the result is returned. See each command for details of the response result. For commands with no response but which succeed (e.g. setacl, rename, etc) the result 'ok' is generally returned.
All methods which send data to the \s-1IMAP\s0 server (e.g. \*(C`fetch()\*(C', \*(C`search()\*(C', etc) have their arguments processed before they are sent. Arguments may be specified in several ways:
The value is first checked and quoted if required. Values containing [\000\012\015] are turned into literals, values containing [\000-\040\{\} \%\*\\*(L"] are quoted by surrounding with a \*(R"...\*(L" pair (any \*(R" themselves are turned into \"). undef is turned into \s-1NIL\s0
The contents of the file is sent as an \s-1IMAP\s0 literal. Note that because IMAPTalk has to know the length of the file being sent, this must be a true file reference that can be seeked and not just some stream. The entire file will be sent regardless of the current seek point.
The string/data in the referenced item should be sent as is, no quoting will occur, and the data won't be sent as quoted or as a literal regardless of the contents of the string/data.
Emits an opening bracket, and then each item in the array separated by a space, and finally a closing bracket. Each item in the array is processed by the same methods, so can be a scalar, file ref, scalar ref, another array ref, etc.
The hash reference should contain only 1 item. The key is a text string which specifies what to do with the value item of the hash.
'Literal' The string/data in the value is sent as an \s-1IMAP\s0 literal regardless of the actual data in the string/data.
'Quote' The string/data in the value is sent as an \s-1IMAP\s0 quoted string regardless of the actual data in the string/data.
Examples: # Password is automatically quoted to "nasty%*\"passwd" $IMAP->login("joe", 'nasty%*"passwd'); # Append $MsgTxt as string $IMAP->append("inbox", { Literal => $MsgTxt }) # Append MSGFILE contents as new message $IMAP->append("inbox", \*MSGFILE ])
These constants relate to the standard 4 states that an \s-1IMAP\s0 connection can be in. They are passed and returned from the \*(C`state()\*(C' method. See \s-1RFC\s0 3501 for more details about \s-1IMAP\s0 connection states.
Current not connected to any server.
Connected to a server, but not logged in.
Connected and logged into a server, but not current folder.
Connected, logged in and have 'select'ed a current folder.
Creates new Mail::IMAPTalk object. The following options are supported.
The hostname or \s-1IP\s0 address to connect to. This must be supplied unless the Socket option is supplied.
The port number on the host to connect to. Defaults to 143 if not supplied.
An existing socket to use as the connection to the \s-1IMAP\s0 server. If you supply the Socket option, you should not supply a Server or Port option. This is useful if you want to create an \s-1SSL\s0 socket connection using IO::Socket::SSL and then pass in the connected socket to the new() call. It's also useful in conjunction with the \*(C`release_socket()\*(C' method described below for reusing the same socket beyond the lifetime of the IMAPTalk object. See a description in the section \*(C`release_socket()\*(C' method for more information. You must have write flushing enabled for any socket you pass in here so that commands will actually be sent, and responses received, rather than just waiting and eventually timing out. you can do this using the Perl \*(C`select()\*(C' call and $| ($AUTOFLUSH) variable as shown below. my $ofh = select($Socket); $| = 1; select ($ofh);
For historical reasons, when reading from a socket, the module sets the socket to non-blocking and does a select(). If you're using an \s-1SSL\s0 socket that doesn't work, so you have to set UseBlocking to true to use blocking reads instead.
If you supply a \*(C`Socket\*(C' option, you can specify the \s-1IMAP\s0 state the socket is currently in, namely one of 'Unconnected', 'Connected', 'Authenticated' or 'Selected'. This defaults to 'Connected' if not supplied and the \*(C`Socket\*(C' option is supplied.
If supplied and true, and a socket is supplied via the \*(C`Socket\*(C' option, checks that a greeting line is supplied by the server and reads the greeting line.
The username to connect to the \s-1IMAP\s0 server as. If not supplied, no login is attempted and the \s-1IMAP\s0 object is left in the \s-1CONNECTED\s0 state. If supplied, you must also supply the Password option and a login is attempted. If the login fails, the connection is closed and undef is returned. If you want to do something with a connection even if the login fails, don't pass a Username option, but instead use the login method described below.
The password to use to login to the account.
Control whether message ids are message uids or not. This is 1 (on) by default because generally that's how most people want to use it. This affects most commands that require/use/return message ids (e.g. fetch, search, sort, etc)
If supplied, sets the root folder prefix. This is the same as calling \*(C`set_root_folder()\*(C' with the value passed. If no value is supplied, \*(C`set_root_folder()\*(C' is called with no value. See the \*(C`set_root_folder()\*(C' method for more details.
If supplied, sets the folder name text string separator character. Passed as the second parameter to the \*(C`set_root_folder()\*(C' method.
If supplied, passed along with RootFolder to the \*(C`set_root_folder()\*(C' method.
If supplied, passed along with RootFolder to the \*(C`set_root_folder()\*(C' method.
Examples: $imap = Mail::IMAPTalk->new( Server => 'foo.com', Port => 143, Username => 'joebloggs', Password => 'mypassword', Separator => '.', RootFolder => 'inbox', CaseInsensitive => 1) || die "Connection to foo.com failed. Reason: $@";
$imap = Mail::IMAPTalk->new( Socket => $SSLSocket, State => Mail::IMAPTalk::Authenticated, Uid => 0) || die "Could not query on existing socket. Reason: $@";
Attempt to login user specified username and password. Currently there is only plain text password login support. If someone can give me a hand implementing others (like \s-1DIGEST-MD5\s0, \s-1CRAM-MD5\s0, etc) please contact me (see details below).
Log out of \s-1IMAP\s0 server. This usually closes the servers connection as well. Set/get the current \s-1IMAP\s0 connection state. Returned or passed value should be one of the constants (Unconnected, Connected, Authenticated, Selected). Get/set the \s-1UID\s0 status of all \s-1UID\s0 possible \s-1IMAP\s0 commands. If set to 1, all commands that can take a \s-1UID\s0 are set to '\s-1UID\s0 Mode', where any \s-1ID\s0 sent to IMAPTalk is assumed to be a \s-1UID\s0.
This method returns the \s-1IMAP\s0 servers capability command results. The result is a hash reference of (lc(Capability) => 1) key value pairs. This means you can do things like: if ($IMAP->capability()->{quota}) { ... } to test if the server has the \s-1QUOTA\s0 capability. If you just want a list of capabilities, use the Perl 'keys' function to get a list of keys from the returned hash reference.
Returns the result of the \s-1IMAP\s0 servers namespace command.
Perform the standard \s-1IMAP\s0 'noop' command which does nothing.
Enabled the given imap extension
Returns true if the current socket connection is still open (e.g. the socket hasn't been closed this end or the other end due to a timeout). Change the root folder prefix. Some \s-1IMAP\s0 servers require that all user folders/mailboxes live under a root folder prefix (current versions of cyrus for example use '\s-1INBOX\s0' for personal folders and 'user' for other users folders). If no value is specified, it sets it to ''. You might want to use the namespace() method to find out what roots are available. The $CaseInsensitive argument is a flag that determines whether the root folder should be matched in a case sensitive or insensitive way. See below. Setting this affects all commands that take a folder argument. Basically if the foldername begins with root folder prefix (case sensitive or insensitive based on the second argument), it's left as is, otherwise the root folder prefix and separator char are prefixed to the folder name. The AltRootRegexp is a regexp that if the start of the folder name matches, does not have $RootFolder preprended. You can use this to protect other namespaces in your \s-1IMAP\s0 server. Examples: # This is what cyrus uses $IMAP->set_root_folder('inbox', '.', 1, 'user');
# Selects 'Inbox' (because 'Inbox' eq 'inbox' case insensitive) $IMAP->select('Inbox'); # Selects 'inbox.blah' $IMAP->select('blah'); # Selects 'INBOX.fred' (because 'INBOX' eq 'inbox' case insensitive) #IMAP->select('INBOX.fred'); # Selects 'INBOX.fred' # Selects 'user.john' (because 'user' is alt root) #IMAP->select('user.john'); # Selects 'user.john'
Checks if the given separator is the same as the one we used before. If not, it calls set_root_folder to recreate the settings with the new Separator. Sets the mode whether to read literals as file handles or scalars. You should pass a filehandle here that any literal will be read into. To turn off literal reads into a file handle, pass a 0. Examples: # Read rfc822 text of message 3 into file # (note that the file will have /r/n line terminators) open(F, ">messagebody.txt"); $IMAP->literal_handle_control(\*F); $IMAP->fetch(3, 'rfc822'); $IMAP->literal_handle_control(0);
Release IMAPTalk's ownership of the current socket it's using so it's not disconnected on \s-1DESTROY\s0. This returns the socket, and makes sure that the IMAPTalk object doesn't hold a reference to it any more and the connection state is set to \*(L"Unconnected\*(R". This means you can't call any methods on the IMAPTalk object any more. If the socket is being released due to an error condition on the connection, then $Error is set to true.
Returns a text string which describes the last error that occurred.
Returns the last completion response to the tagged command. This is either the string \*(L"ok\*(R", \*(L"no\*(R" or \*(L"bad\*(R" (always lower case)
Returns the extra response data generated by a previous call. This is most often used after calling select which usually generates some set of the following sub-results.
permanentflags Array reference of flags which are stored permanently.
uidvalidity Whether the current \s-1UID\s0 set is valid. See the \s-1IMAP\s0 \s-1RFC\s0 for more information on this. If this value changes, then all UIDs in the folder have been changed.
uidnext The next \s-1UID\s0 number that will be assigned.
exists Number of messages that exist in the folder.
recent Number of messages that are recent in the folder.
Other possible responses are alert, newname, parse, trycreate, appenduid, etc. The values are stored in a hash keyed on the $Response item. They're kept until either overwritten by a future response, or explicitly cleared via clear_response_code(). Examples: # Select inbox and get list of permanent flags, uidnext and number # of message in the folder $IMAP->select('inbox'); my $NMessages = $IMAP->get_response_code('exists'); my $PermanentFlags = $IMAP->get_response_code('permanentflags'); my $UidNext = $IMAP->get_response_code('uidnext');
Clears any response code information. Response code information is not normally cleared between calls. Changes how results of fetch commands are parsed. Available options are:
Parse bodystructure into more Perl-friendly structure See the \s-1FETCH\s0 \s-1RESULTS\s0 section.
Parse envelopes into more Perl-friendly structure See the \s-1FETCH\s0 \s-1RESULTS\s0 section.
Parse annotation (from \s-1RFC\s0 5257) into more Perl-friendly structure See the \s-1FETCH\s0 \s-1RESULTS\s0 section.
If parsing envelopes, create To/Cc/Bcc and Raw-To/Raw-Cc/Raw-Bcc entries which are array refs of 4 entries each as returned by the \s-1IMAP\s0 server.
If parsing envelopes, decode any \s-1MIME\s0 encoded headers into Perl \s-1UTF-8\s0 strings. For this to work, you must have 'used' Mail::IMAPTalk with: use Mail::IMAPTalk qw(:utf8support ...)
Allows you to trace both \s-1IMAP\s0 input and output sent to the server and returned from the server. This is useful for debugging. Returns the previous value of the tracer and then sets it to the passed value. Possible values for $Tracer are:
Disable all tracing.
Print to \s-1STDERR\s0.
Call code ref for each line input and output. Pass line as parameter.
Print to glob.
Appends to the referenced scalar.
Note: literals are never passed to the tracer.
$Unicode should be 1 or 0 Sets whether folder names are expected and returned as perl unicode strings. The default is currently 0, \s-1BUT\s0 \s-1YOU\s0 \s-1SHOULD\s0 \s-1NOT\s0 \s-1ASSUME\s0 \s-1THIS\s0, because it will probably change in the future. If you want to work with perl unicode strings for folder names, you should call
$ImapTalk->set_unicode_folders\|(1)
and IMAPTalk will automatically encode the unicode strings into \s-1IMAP-UTF7\s0 when sending to the \s-1IMAP\s0 server, and will also decode \s-1IMAP-UTF7\s0 back into perl unicode strings when returning results from the \s-1IMAP\s0 server. If you want to work with folder names in \s-1IMAP-UTF7\s0 bytes, then call
$ImapTalk->set_unicode_folders\|(0)
and IMAPTalk will leave folder names as bytes when sending to and returning results from the \s-1IMAP\s0 server.
Note: In all cases where a folder name is used, the folder name is first manipulated according to the current root folder prefix as described in \*(C`set_root_folder()\*(C'. Perform the standard \s-1IMAP\s0 'select' command to select a folder for retrieving/moving/adding messages. If $Opts{ReadOnly} is true, the \s-1IMAP\s0 \s-1EXAMINE\s0 verb is used instead of \s-1SELECT\s0. Mail::IMAPTalk will cache the currently selected folder, and if you issue another ->select(\*(L"\s-1XYZ\s0\*(R") for the folder that is already selected, it will just return immediately. This can confuse code that expects to get side effects of a select call. For that case, call ->unselect() first, then ->select().
Performs the standard \s-1IMAP\s0 unselect command.
Perform the standard \s-1IMAP\s0 'examine' command to select a folder in read only mode for retrieving messages. This is the same as \*(C`select($FolderName, 1)\*(C'. See \*(C`select()\*(C' for more details.
Perform the standard \s-1IMAP\s0 'create' command to create a new folder.
Perform the standard \s-1IMAP\s0 'delete' command to delete a folder.
Perform the \s-1IMAP\s0 'localdelete' command to delete a folder (doesn't delete subfolders even of \s-1INBOX\s0, is always immediate. Perform the standard \s-1IMAP\s0 'rename' command to rename a folder. Perform the standard \s-1IMAP\s0 'list' command to return a list of available folders. Perform the standard \s-1IMAP\s0 'lsub' command to return a list of subscribed folders
Perform the standard \s-1IMAP\s0 'subscribe' command to subscribe to a folder.
Perform the standard \s-1IMAP\s0 'unsubscribe' command to unsubscribe from a folder.
Perform the standard \s-1IMAP\s0 'check' command to checkpoint the current folder. Perform the \s-1IMAP\s0 'setacl' command to set the access control list details of a folder/mailbox. See \s-1RFC\s0 4314 for more details on the \s-1IMAP\s0 \s-1ACL\s0 extension. $User is the user name to set the access rights for. $Rights is either a list of absolute rights to set, or a list prefixed by a - to remove those rights, or a + to add those rights.
Due to ambiguity in \s-1RFC\s0 2086, some existing \s-1RFC\s0 2086 server implementations use the \*(L"c\*(R" right to control the \s-1DELETE\s0 command. Others chose to use the \*(L"d\*(R" right to control the \s-1DELETE\s0 command. See the 2.1.1. Obsolete Rights in \s-1RFC\s0 4314 for more details.
The standard access control configurations for cyrus are
Examples: # Get full access for user 'joe' on his own folder $IMAP->setacl('user.joe', 'joe', 'lrswipcda') || die "IMAP error: $@"; # Remove write, insert, post, create, delete access for user 'andrew' $IMAP->setacl('user.joe', 'andrew', '-wipcd') || die "IMAP error: $@"; # Add lookup, read, keep unseen information for user 'paul' $IMAP->setacl('user.joe', 'paul', '+lrs') || die "IMAP error: $@";
Perform the \s-1IMAP\s0 'getacl' command to get the access control list details of a folder/mailbox. See \s-1RFC\s0 4314 for more details on the \s-1IMAP\s0 \s-1ACL\s0 extension. Returns an array of pairs. Each pair is a username followed by the access rights for that user. See setacl for more information on access rights. Examples: my $Rights = $IMAP->getacl('user.joe') || die "IMAP error : $@"; $Rights = [ 'joe', 'lrs', 'andrew', 'lrswipcda' ];
$IMAP->setacl('user.joe', 'joe', 'lrswipcda') || die "IMAP error : $@"; $IMAP->setacl('user.joe', 'andrew', '-wipcd') || die "IMAP error : $@"; $IMAP->setacl('user.joe', 'paul', '+lrs') || die "IMAP error : $@";
$Rights = $IMAP->getacl('user.joe') || die "IMAP error : $@"; $Rights = [ 'joe', 'lrswipcd', 'andrew', 'lrs', 'paul', 'lrs' ]; Perform the \s-1IMAP\s0 'deleteacl' command to delete all access control information for the given user on the given folder. See setacl for more information on access rights. Examples: my $Rights = $IMAP->getacl('user.joe') || die "IMAP error : $@"; $Rights = [ 'joe', 'lrswipcd', 'andrew', 'lrs', 'paul', 'lrs' ];
# Delete access information for user 'andrew' $IMAP->deleteacl('user.joe', 'andrew') || die "IMAP error : $@";
$Rights = $IMAP->getacl('user.joe') || die "IMAP error : $@"; $Rights = [ 'joe', 'lrswipcd', 'paul', 'lrs' ]; Perform the \s-1IMAP\s0 'setquota' command to set the usage quota details of a folder/mailbox. See \s-1RFC\s0 2087 for details of the \s-1IMAP\s0 quota extension. $QuotaDetails is a bracketed list of limit item/value pairs which represent a particular type of limit and the value to set it to. Current limits are:
Examples: # Set maximum size of folder to 50M and 1000 messages $IMAP->setquota('user.joe', '(storage 50000)') || die "IMAP error: $@"; $IMAP->setquota('user.john', '(messages 1000)') || die "IMAP error: $@"; # Remove quotas $IMAP->setquota('user.joe', '()') || die "IMAP error: $@";
Perform the standard \s-1IMAP\s0 'getquota' command to get the quota details of a folder/mailbox. See \s-1RFC\s0 2087 for details of the \s-1IMAP\s0 quota extension. Returns an array reference to quota limit triplets. Each triplet is made of: limit item, current value, maximum value. Note that this only returns the quota for a folder if it actually has had a quota set on it. It's possible that a parent folder might have a quota as well which affects sub-folders. Use the getquotaroot to find out if this is true. Examples: my $Result = $IMAP->getquota('user.joe') || die "IMAP error: $@"; $Result = [ 'STORAGE', 31, 50000, 'MESSAGE', 5, 1000 ];
Perform the \s-1IMAP\s0 'getquotaroot' command to get the quota details of a folder/mailbox and possible root quota as well. See \s-1RFC\s0 2087 for details of the \s-1IMAP\s0 quota extension. The result of this command is a little complex. Unfortunately it doesn't map really easily into any structure since there are several different responses. Basically it's a hash reference. The 'quotaroot' item is the response which lists the root quotas that apply to the given folder. The first item is the folder name, and the remaining items are the quota root items. There is then a hash item for each quota root item. It's probably easiest to look at the example below. Examples: my $Result = $IMAP->getquotaroot('user.joe.blah') || die "IMAP error: $@"; $Result = { 'quotaroot' => [ 'user.joe.blah', 'user.joe', '' ], 'user.joe' => [ 'STORAGE', 31, 50000, 'MESSAGES', 5, 1000 ], '' => [ 'MESSAGES', 3498, 100000 ] };
Return the number of messages in a folder. See also \*(C`status()\*(C' for getting more information about messages in a folder. Perform the standard \s-1IMAP\s0 'status' command to retrieve status information about a folder/mailbox. The $StatusList is a bracketed list of folder items to obtain the status of. Can contain: messages, recent, uidnext, uidvalidity, unseen. The return value is a hash reference of lc(status-item) => value. Examples: my $Res = $IMAP->status('inbox', '(MESSAGES UNSEEN)');
$Res = { 'messages' => 8, 'unseen' => 2 }; Performs many \s-1IMAP\s0 'status' commands on a list of folders. Sends all the commands at once and wait for responses. This speeds up latency issues. Returns a hash ref of folder name => status results. If an error occurs, the annotation result is a scalar ref to the completion response string (eg 'bad', 'no', etc) Perform the \s-1IMAP\s0 'getannotation' command to get the annotation(s) for a mailbox. See imap-annotatemore extension for details. Examples: my $Result = $IMAP->getannotation('user.joe.blah', '/*' '*') || die "IMAP error: $@"; $Result = { 'user.joe.blah' => { '/vendor/cmu/cyrus-imapd/size' => { 'size.shared' => '5', 'content-type.shared' => 'text/plain', 'value.shared' => '19261' }, '/vendor/cmu/cyrus-imapd/lastupdate' => { 'size.shared' => '26', 'content-type.shared' => 'text/plain', 'value.shared' => '26-Mar-2004 13:31:56 -0800' }, '/vendor/cmu/cyrus-imapd/partition' => { 'size.shared' => '7', 'content-type.shared' => 'text/plain', 'value.shared' => 'default' } } }; Perform the \s-1IMAP\s0 'getmetadata' command to get the metadata items for a mailbox. See \s-1RFC\s0 5464 for details. If $Options is passed, it is a hashref of options to set. If foldername is the empty string, gets server annotations Examples: my $Result = $IMAP->getmetadata('user.joe.blah', {depth => 'infinity'}, '/shared') || die "IMAP error: $@"; $Result = { 'user.joe.blah' => { '/shared/vendor/cmu/cyrus-imapd/size' => '19261', '/shared/vendor/cmu/cyrus-imapd/lastupdate' => '26-Mar-2004 13:31:56 -0800', '/shared/vendor/cmu/cyrus-imapd/partition' => 'default', } };
my $Result = $IMAP->getmetadata('', "/shared/comment"); $Result => { '' => { '/shared/comment' => "Shared comment", } }; Perform the \s-1IMAP\s0 'setannotation' command to get the annotation(s) for a mailbox. See imap-annotatemore extension for details. Examples: my $Result = $IMAP->setannotation('user.joe.blah', '/comment', [ 'value.priv' 'A comment' ]) || die "IMAP error: $@"; Perform the \s-1IMAP\s0 'setmetadata' command. See \s-1RFC\s0 5464 for details. Examples: my $Result = $IMAP->setmetadata('user.joe.blah', '/comment', 'A comment') || die "IMAP error: $@"; Performs many \s-1IMAP\s0 'getannotation' commands on a list of folders. Sends all the commands at once and wait for responses. This speeds up latency issues. Returns a hash ref of folder name => annotation results. If an error occurs, the annotation result is a scalar ref to the completion response string (eg 'bad', 'no', etc)
Perform the standard \s-1IMAP\s0 'close' command to expunge deleted messages from the current folder and return to the Authenticated state. Perform an \s-1IMAP\s0 idle call. Call given callback for each \s-1IDLE\s0 event received. If the callback returns 0, the idle continues. If the callback returns 1, the idle is finished and this call returns. If no timeout is passed, will continue to idle until the callback returns 1 or the server disconnects. If a timeout is passed (including a 0 timeout), the call will return if no events are received within the given time. It will return the result of the \s-1DONE\s0 command, and set $Self->get_response_code('timeout') to true. If the server closes the connection with a \*(L"bye\*(R" response, it will return undef and $@ =~ /bye/ will be true with the remainder of the bye line following.
Perform the standard \s-1IMAP\s0 'fetch' command to retrieve the specified message items from the specified message IDs. The first parameter can be an optional hash reference that overrides particular parse mode parameters just for this fetch. See \*(C`parse_mode\*(C' for possible keys. $MessageIds can be one of two forms:
A text string with a comma separated list of message \s-1ID\s0's or message ranges separated by colons. A '*' represents the highest message number. Examples:
'1' - first message
'1,2,5'
'1:*' - all messages
'1,3:*' - all but message 2
Note that , separated lists and : separated ranges can be mixed, but to make sure a certain hack works, if a '*' is used, it must be the last character in the string.
An array reference with a list of message \s-1ID\s0's or ranges. The array contents are \*(C`join(',', ...)\*(C'ed together.
Note: If the \*(C`uid()\*(C' state has been set to true, then all message \s-1ID\s0's must be message UIDs. $MessageItems can be one of, or a bracketed list of:
uid
flags
internaldate
envelope
bodystructure
body
body[section]<partial>
body.peek[section]<partial>
rfc822
rfc822.header
rfc822.size
rfc822.text
fast
all
full
It would be a good idea to see \s-1RFC\s0 3501 for what all these means. Examples: my $Res = $IMAP->fetch('1:*', 'rfc822.size'); my $Res = $IMAP->fetch([1,2,3], '(bodystructure envelope)'); Return results: The results returned by the \s-1IMAP\s0 server are parsed into a Perl structure. See the section \s-1FETCH\s0 \s-1RESULTS\s0 for all the interesting details. Note that message can disappear on you, so you may not get back all the entries you expect in the hash There is one piece of magic. If your request is for a single uid, (eg \*(L"123\*(R"), and no data is return, we return undef, because it's easier to handle as an error condition.
Perform standard \s-1IMAP\s0 copy command to copy a set of messages from one folder to another. Perform standard \s-1IMAP\s0 append command to append a new message into a folder. The $MessageData to append can either be a Perl scalar containing the data, or a file handle to read the data from. In each case, the data must be in proper \s-1RFC\s0 822 format with \r\n line terminators. Any optional fields not needed should be removed, not left blank. Examples: # msg.txt should have \r\n line terminators open(F, "msg.txt"); $IMAP->append('inbox', \*F);
my $MsgTxt =<<MSG; From: blah\@xyz.com To: whoever\@whereever.com ... MSG
$MsgTxt =~ s/\n/\015\012/g; $IMAP->append('inbox', { Literal => $MsgTxt }); Perform standard \s-1IMAP\s0 search command. The result is an array reference to a list of message IDs (or UIDs if in Uid mode) of messages that are in the $MsgIdSet and also meet the search criteria. @SearchCriteria is a list of search specifications, for example to look for \s-1ASCII\s0 messages bigger than 2000 bytes you would set the list to be: my @SearchCriteria = ('CHARSET', 'US-ASCII', 'LARGER', '2000'); Examples: my $Res = $IMAP->search('1:*', 'NOT', 'DELETED'); $Res = [ 1, 2, 5 ]; Perform standard \s-1IMAP\s0 store command. Changes the flags associated with a set of messages. Examples: $IMAP->store('1:*', '+flags', '(\\deleted)'); $IMAP->store('1:*', '-flags.silent', '(\\read)');
Perform standard \s-1IMAP\s0 expunge command. This actually deletes any messages marked as deleted.
Perform \s-1IMAP\s0 uid expunge command as per \s-1RFC\s0 2359. Perform extension \s-1IMAP\s0 sort command. The result is an array reference to a list of message IDs (or UIDs if in Uid mode) in sorted order. It would probably be a good idea to look at the sort \s-1RFC\s0 5256 details at somewhere like : http://www.ietf.org/rfc/rfc5256.txt Examples: my $Res = $IMAP->sort('(subject)', 'US-ASCII', 'NOT', 'DELETED'); $Res = [ 5, 2, 3, 1, 4 ]; Perform extension \s-1IMAP\s0 thread command. The $ThreadType should be one of '\s-1REFERENCES\s0' or '\s-1ORDEREDSUBJECT\s0'. You should check the \*(C`capability()\*(C' of the server to see if it supports one or both of these. Examples my $Res = $IMAP->thread('REFERENCES', 'US-ASCII', 'NOT', 'DELETED'); $Res = [ [10, 15, 20], [11], [ [ 12, 16 ], [13, 17] ];
Perform an \s-1IMAP\s0 'fetch flags' command to retrieve the specified flags for the specified messages. This is just a special fast path version of \*(C`fetch\*(C'. Perform an \s-1IMAP\s0 'fetch' command to retrieve the specified meta items. These must be simple items that return only atoms (eg no flags, bodystructure, body, envelope, etc) This is just a special fast path version of \*(C`fetch\*(C'.
This is a helper function that can be used to further parse the results of a fetched bodystructure. Given a top level body structure, and a part number, it returns the reference to the bodystructure sub part which that part number refers to. Examples: # Fetch body structure my $FR = $IMAP->fetch(1, 'bodystructure'); my $BS = $FR->{1}->{bodystructure};
# Parse further to find particular sub part my $P12 = $IMAP->get_body_part($BS, '1.2'); $P12->{'IMAP->Partnum'} eq '1.2' || die "Unexpected IMAP part number";
This is a helper function that can be used to further parse the results of a fetched bodystructure. It returns a hash reference with the following items. text => $best_text_part html => $best_html_part (optional) textlist => [ ... text/html (if no alt text bits)/image (if inline) parts ... ] htmllist => [ ... text (if no alt html bits)/html/image (if inline) parts ... ] att => [ { bs => $part, text => 0/1, html => 0/1, msg => 1/0, }, { ... }, ... ] For instance, consider a message with text and html pages that's then gone through a list software manager that attaches a header/footer multipart/mixed text/plain, cd=inline - A multipart/mixed multipart/alternative multipart/mixed text/plain, cd=inline - B image/jpeg, cd=inline - C text/plain, cd=inline - D multipart/related text/html - E image/jpeg - F image/jpeg, cd=attachment - G application/x-excel - H message/rfc822 - J text/plain, cd=inline - K In this case, we'd have the following list items text => B html => E textlist => [ A, B, C, D, K ] htmllist => [ A, E, K ] att => [ { bs => C, text => 1, html => 1 }, { bs => F, text => 1, html => 0 }, { bs => G, text => 1, html => 1 }, { bs => H, text => 1, html => 1 }, { bs => J, text => 0, html => 0, msg => 1 }, ] Examples: # Fetch body structure my $FR = $IMAP->fetch(1, 'bodystructure'); my $BS = $FR->{1}->{bodystructure};
# Parse further to find message components my $MC = $IMAP->find_message($BS); $MC = { 'plain' => ... text body struct ref part ..., 'html' => ... html body struct ref part (if present) ... 'htmllist' => [ ... html body struct ref parts (if present) ... ] };
# Now get the text part of the message my $MT = $IMAP->fetch(1, 'body[' . $MC->{text}->{'IMAP-Part'} . ']'); This method generates a ContentID based on $Token and $PartBS. The same value should always be returned for a given $Token and $PartBS This is a helper function that can be used to further parse the results of a fetched bodystructure. It recursively parses the bodystructure and returns a hash of Content-ID to bodystruct part references. This is useful when trying to determine \s-1CID\s0 links from an \s-1HTML\s0 message. If you pass a Mail::IMAPTalk object as the second parameter, the \s-1CID\s0 map built may be even more detailed. It seems some stupid versions of exchange put details in the Content-Location header rather than the Content-Type header. If that's the case, this will try and fetch the header from the message Examples: # Fetch body structure my $FR = $IMAP->fetch(1, 'bodystructure'); my $BS = $FR->{1}->{bodystructure};
# Parse further to get CID links my $CL = build_cid_map($BS); $CL = { '2958293123' => ... ref to body part ..., ... };
Given a username (optionally username\@domain) immediately delete all messages belonging to this user. Uses \s-1LOCALDELETE\s0. Quite FastMail Patchd Cyrus specific.
By default, these methods do nothing, but you can dervice from Mail::IMAPTalk and override these methods to trap any things you want to catch Called when the currently selected folder is being changed (eg 'select' called and definitely a different folder is being selected, or 'unselect' methods called)
Called when a command changes the contents of a folder (eg copy, append, etc). $Folder is the name of the folder that's changing.
The 'fetch' operation is probably the most common thing you'll do with an \s-1IMAP\s0 connection. This operation allows you to retrieve information about a message or set of messages, including header fields, flags or parts of the message body.
\*(C`Mail::IMAPTalk\*(C' will always parse the results of a fetch call into a Perl like structure, though 'bodystructure', 'envelope' and 'uid' responses may have additional parsing depending on the \*(C`parse_mode\*(C' state and the \*(C`uid\*(C' state (see below).
For an example case, consider the following \s-1IMAP\s0 commands and responses (C is what the client sends, S is the server response).
C: a100 fetch 5,6 (flags rfc822.size uid) S: * 1 fetch (UID 1952 FLAGS (\recent \seen) RFC822.SIZE 1150) S: * 2 fetch (UID 1958 FLAGS (\recent) RFC822.SIZE 110) S: a100 OK Completed
The fetch command can be sent by calling:
my $Res = $IMAP->fetch('1:*', '(flags rfc822.size uid)');
The result in response will look like this:
$Res = { 1 => { 'uid' => 1952, 'flags' => [ '\\recent', '\\seen' ], 'rfc822.size' => 1150 }, 2 => { 'uid' => 1958, 'flags' => [ '\\recent' ], 'rfc822.size' => 110 } };
A couple of points to note:
The message IDs have been turned into a hash from message \s-1ID\s0 to fetch response result.
The response items (e.g. uid, flags, etc) have been turned into a hash for each message, and also changed to lower case values.
Other bracketed (...) lists have become array references.
In general, this is how all fetch responses are parsed. There is one major difference however when the \s-1IMAP\s0 connection is in 'uid' mode. In this case, the message IDs in the main hash are changed to message UIDs, and the 'uid' entry in the inner hash is removed. So the above example would become:
my $Res = $IMAP->fetch('1:*', '(flags rfc822.size)');
$Res = { 1952 => { 'flags' => [ '\\recent', '\\seen' ], 'rfc822.size' => 1150 }, 1958 => { 'flags' => [ '\\recent' ], 'rfc822.size' => 110 } };
When dealing with messages, we need to understand the \s-1MIME\s0 structure of the message, so we can work out what is the text body, what is attachments, etc. This is where the 'bodystructure' item from an \s-1IMAP\s0 server comes in.
C: a101 fetch 1 (bodystructure) S: * 1 fetch (BODYSTRUCTURE ("TEXT" "PLAIN" NIL NIL NIL "QUOTED-PRINTABLE" 255 11 NIL ("INLINE" NIL) NIL)) S: a101 OK Completed
The fetch command can be sent by calling:
my $Res = $IMAP->fetch(1, 'bodystructure');
As expected, the resultant response would look like this:
$Res = { 1 => { 'bodystructure' => [ 'TEXT', 'PLAIN', undef, undef, undef, 'QUOTED-PRINTABLE', 255, 11, UNDEF, [ 'INLINE', undef ], undef ] } };
However, if you set the \*(C`parse_mode(BodyStructure =\*(C' 1)>, then the result would be:
$Res = { '1' => { 'bodystructure' => { 'MIME-Type' => 'text', 'MIME-Subtype' => 'plain', 'MIME-TxtType' => 'text/plain', 'Content-Type' => {}, 'Content-ID' => undef, 'Content-Description' => undef, 'Content-Transfer-Encoding' => 'QUOTED-PRINTABLE', 'Size' => '3569', 'Lines' => '94', 'Content-MD5' => undef, 'Disposition-Type' => 'inline', 'Content-Disposition' => {}, 'Content-Language' => undef, 'Remainder' => [], 'IMAP-Partnum' => '' } } };
A couple of points to note here:
All the positional fields from the bodystructure list response have been turned into nicely named key/value hash items.
The MIME-Type and MIME-Subtype fields have been made lower case.
An IMAP-Partnum item has been added. The value in this field can be passed as the 'section' number of an \s-1IMAP\s0 body fetch call to retrieve the text of that \s-1IMAP\s0 section.
In general, the following items are defined for all body structures:
MIME-Type
MIME-Subtype
Content-Type
Disposition-Type
Content-Disposition
Content-Language
For all bodystructures \s-1EXCEPT\s0 those that have a MIME-Type of 'multipart', the following are defined:
Content-ID
Content-Description
Content-Transfer-Encoding
Size
Content-MD5
Remainder
IMAP-Partnum
For bodystructures where MIME-Type is 'text', an extra item 'Lines' is defined.
For bodystructures where MIME-Type is 'message' and MIME-Subtype is 'rfc822', the extra items 'Message-Envelope', 'Message-Bodystructure' and 'Message-Lines' are defined. The 'Message-Bodystructure' item is itself a reference to an entire bodystructure hash with all the format information of the contained message. The 'Message-Envelope' item is a hash structure with the message header information. See the Envelope entry below.
For bodystructures where MIME-Type is 'multipart', an extra item 'MIME-Subparts' is defined. The 'MIME-Subparts' item is an array reference, with each item being a reference to an entire bodystructure hash with all the format information of each \s-1MIME\s0 sub-part.
For further processing, you can use the find_message() function. This will analyse the body structure and find which part corresponds to the main text/html message parts to display. You can also use the find_cid_parts() function to find \s-1CID\s0 links in an html message.
The envelope structure contains most of the addressing header fields from an email message. The following shows an example envelope fetch (the response from the \s-1IMAP\s0 server has been neatened up here)
C: a102 fetch 1 (envelope) S: * 1 FETCH (ENVELOPE ("Tue, 7 Nov 2000 08:31:21 UT" # Date "FW: another question" # Subject (("John B" NIL "jb" "abc.com")) # From (("John B" NIL "jb" "abc.com")) # Sender (("John B" NIL "jb" "abc.com")) # Reply-To (("Bob H" NIL "bh" "xyz.com") # To ("K Jones" NIL "kj" "lmn.com")) NIL # Cc NIL # Bcc NIL # In-Reply-To NIL) # Message-ID ) S: a102 OK Completed
The fetch command can be sent by calling:
my $Res = $IMAP->fetch(1, 'envelope');
And you get the idea of what the resultant response would be. Again if you change \*(C`parse_mode(Envelope =\*(C' 1)>, you get a neat structure as follows:
$Res = { '1' => { 'envelope' => { 'Date' => 'Tue, 7 Nov 2000 08:31:21 UT', 'Subject' => 'FW: another question', 'From' => '"John B" <[email protected]>', 'Sender' => '"John B" <[email protected]>', 'Reply-To' => '"John B" <[email protected]>', 'To' => '"Bob H" <[email protected]>, "K Jones" <[email protected]>', 'Cc' => '', 'Bcc' => '', 'In-Reply-To' => undef, 'Message-ID' => undef,
'From-Raw' => [ [ 'John B', undef, 'jb', 'abc.com' ] ], 'Sender-Raw' => [ [ 'John B', undef, 'jb', 'abc.com' ] ], 'Reply-To-Raw' => [ [ 'John B', undef, 'jb', 'abc.com' ] ], 'To-Raw' => [ [ 'Bob H', undef, 'bh', 'xyz.com' ], [ 'K Jones', undef, 'kj', 'lmn.com' ], ], 'Cc-Raw' => [], 'Bcc-Raw' => [], } } };
All the fields here are from straight from the email headers. See \s-1RFC\s0 822 for more details.
If the server supports \s-1RFC\s0 5257 (\s-1ANNOTATE\s0 Extension), then you can fetch per-message annotations.
Annotation responses would normally be returned as a a nested set of arrays. However it's much easier to access the results as a nested set of hashes, so the results are so converted if the Annotation parse mode is enabled, which is on by default.
Part of an example from the \s-1RFC\s0
S: * 12 FETCH (UID 1123 ANNOTATION (/comment (value.priv "My comment" size.priv "10") /altsubject (value.priv "Rhinoceroses!" size.priv "13")
So the fetch command:
my $Res = $IMAP->fetch(1123, 'annotation', [ '/*', [ 'value.priv', 'size.priv' ] ]);
Would have the result:
$Res = { '1123' => { 'annotation' => { '/comment' => { 'value.priv' => 'My comment', 'size.priv => 10 }, '/altsubject' => { 'value.priv' => '"Rhinoceroses', 'size.priv => 13 } } } }
Executes a standard \s-1IMAP\s0 command.
Text string of command to call \s-1IMAP\s0 server with (e.g. 'select', 'search', etc). 1 if command involved message ids and can be prefixed with \s-1UID\s0, 0 otherwise. Responses to look for from command (eg 'list', 'fetch', etc). Commands which return results usually return them untagged. The following is an example of fetching flags from a number of messages. C123 uid fetch 1:* (flags) * 1 FETCH (FLAGS (\Seen) UID 1) * 2 FETCH (FLAGS (\Seen) UID 2) C123 OK Completed Between the sending of the command and the '\s-1OK\s0 Completed' response, we have to pick up all the untagged '\s-1FETCH\s0' response items so we would pass 'fetch' (always use lower case) as the $RespItems to extract. This can also be a hash ref of callback functions. See _parse_response for more examples Any extra arguments to pass to command.
Helper method used by the _imap_cmd method to actually build (and quote where necessary) the command arguments and then send the actual command. Helper method used by the _send_cmd method to actually build (and quote where necessary) the command arguments and then send the actual command. Helper method called by _imap_cmd after sending the command. This methods retrieves data from the \s-1IMAP\s0 socket and parses it into Perl structures and returns the results. $RespItems is either a string, which is the untagged response(s) to find and return, or for custom processing, it can be a hash ref. If a hash ref, then each key will be an untagged response to look for, and each value a callback function to call for the corresponding untagged response. Each callback will be called with 2 or 3 arguments; the untagged response string, the remainder of the line parsed into an array ref, and for fetch type responses, the id will be passed as the third argument. One other piece of magic, if you pass a 'responseitem' key, then the value should be a string, and will be the untagged response returned from the function Helper method which checks that the server has a certain capability. If not, it sets the internal last error, $@ and returns undef. Helper method which outputs any tracing data. Return true if a folder is currently selected and that folder is $FolderName
Returns the next atom from the current line. Uses $Self->{ReadLine} for line data, or if undef, fills it with a new line of data from the \s-1IMAP\s0 connection socket and then begins processing. If the next atom is:
An unquoted string, simply returns the string.
A quoted string, unquotes the string, changes any occurances of \\*(L" to \*(R" and returns the string.
A literal (e.g. {NBytes}\r\n), reads the number of bytes of data in the literal into a scalar or file (depending on \*(C`literal_handle_control\*(C').
A bracketed structure, reads all the sub-atoms within the structure and returns an array reference with all the sub-atoms.
In each case, after parsing the atom, it removes any trailing space separator, and then returns the remainder of the line to $Self->{ReadLine} ready for the next call to \*(C`_next_atom()\*(C'.
Faster version of _next_atom() for known simple cases
Returns all the remaining atoms for the current line in the read line buffer as an array reference. Leaves $Self->{ReadLine} eq ''. See \*(C`_next_atom()\*(C'
Returns the remaining data in the read line buffer ($Self->{ReadLine}) as a scalar string/data value.
Wait until data is available on the \s-1IMAP\s0 connection socket (or a timeout occurs). Read the data into the internal buffer $Self->{ReadBuf}. You can then use \*(C`_imap_socket_read_line()\*(C', \*(C`_imap_socket_read_bytes()\*(C' or \*(C`_copy_imap_socket_to_handle()\*(C' to read data from the buffer in lines or bytes at a time.
Read a \r\n terminated list from the buffered \s-1IMAP\s0 connection socket. Read a certain number of bytes from the buffered \s-1IMAP\s0 connection socket. Write the data in $Data to the \s-1IMAP\s0 connection socket. Copy a given number of bytes from one handle to another. The number of bytes specified ($NBytes) must be available on the \s-1IMAP\s0 socket, otherwise the function will 'die' with an error if it runs out of data. If $NBytes is not specified (undef), the function will attempt to seek to the end of the file to find the size of the file. Copies data from the \s-1IMAP\s0 socket to a file handle. This is different to _copy_handle_to_handle() because we internally buffer the \s-1IMAP\s0 socket so we can't just use it to copy from the socket handle, we have to copy the contents of our buffer first. The number of bytes specified must be available on the \s-1IMAP\s0 socket, if the function runs out of data it will 'die' with an error.
Returns an \s-1IMAP\s0 quoted version of a string. This place \*(L"...\*(R" around the string, and replaces any internal \*(L" with \\*(R".
Parses an array reference list of ($Key, $Value) pairs into a hash. Makes sure that all the keys are lower cased (lc) first. Changes a folder name based on the current root folder prefix as set with the \*(C`set_root_prefix()\*(C' call. If $WildCard is true, then a folder name with % or * is left alone.
Unchanges a folder name based on the current root folder prefix as set with the \*(C`set_root_prefix()\*(C' call.
Used by \s-1IMAP\s0 commands to handle a number of different ways that message IDs can be specified.
String or array ref which specified the message IDs or UIDs.
The $MessageIds parameter may take the following forms:
Array is turned into a string of comma separated \s-1ID\s0 numbers.
Normally a * would result in the message \s-1ID\s0 string being quoted. This ensure that such a range string is not quoted because some servers (e.g. cyrus) don't like.
Converts a list of \s-1IMAP\s0 email address structures as parsed and returned from an \s-1IMAP\s0 fetch (envelope) call into a single \s-1RFC\s0 822 email string (e.g. \*(L"Person 1 Name\*(R" <[email protected]>, \*(L"Person 2 Name\*(R" <...>, etc) to finally return to the user. This is used to parse an envelope structure returned from a fetch call. See the documentation section '\s-1FETCH\s0 \s-1RESULTS\s0' for more information. Converts an \s-1IMAP\s0 envelope structure as parsed and returned from an \s-1IMAP\s0 fetch (envelope) call into a convenient hash structure. If $IncludeRaw is true, includes the XXX-Raw fields, otherwise these are left out. If $DecodeUTF8 is true, then checks if the fields contain any quoted-printable chars, and decodes them to a Perl \s-1UTF8\s0 string if they do. See the documentation section '\s-1FETCH\s0 \s-1RESULTS\s0' from more information. Parses a standard \s-1IMAP\s0 body structure and turns it into a Perl friendly nested hash structure. This routine is recursive and you should not pass a value for $PartNum when called for the top level bodystructure item. Note that this routine destroys the array reference structure passed in as $BodyStructure. See the documentation section '\s-1FETCH\s0 \s-1RESULTS\s0' from more information
Takes the result from a single \s-1IMAP\s0 annotation item into a Perl friendly structure. See the documentation section '\s-1FETCH\s0 \s-1RESULTS\s0' from more information.
Takes the result from a single \s-1IMAP\s0 fetch response line and parses it into a Perl friendly structure. See the documentation section '\s-1FETCH\s0 \s-1RESULTS\s0' from more information. Take a body[header.fields (xyz)] fetch response and parse out the header fields and values
Decodes the passed quoted printable value to a Perl \s-1UTF8\s0 string.
Expand a list of \s-1IMAP\s0 id sequences into a full list of ids
Called by Perl when this object is destroyed. Logs out of the \s-1IMAP\s0 server if still connected.
Net::IMAP, Mail::IMAPClient, IMAP::Admin, \s-1RFC\s0 3501
Latest news/details can also be found at:
http://cpan.robm.fastmail.fm/mailimaptalk/
Available on github at:
https://github.com/robmueller/mail-imaptalk/ <https://github.com/robmueller/mail-imaptalk/>
Rob Mueller <[email protected]>. Thanks to Jeremy Howard <[email protected]> for socket code, support and documentation setup.
Copyright (C) 2003-2011 by Opera Software Australia Pty Ltd
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.