Perl Requires Chilkat v9.5.0.58+

IMAP Capability

Demonstrates how to send the CAPABILITY command to request a listing of capabilities that the IMAP server supports. A capability name which begins with "AUTH=" indicates that the server supports that particular authentication mechanism. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $imap = Chilkat2::Imap->new;

# Use TLS
$imap->Ssl(1);
$imap->Port(993);
my $success = $imap->Connect('MY-IMAP-DOMAIN');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Authenticate
$success = $imap->Login('MY-IMAP-LOGIN', 'MY-IMAP-PASSWORD');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Get the list of capabilities:
my $caps = $imap->Capability();
print 'Capabilities: ', $caps, "\n";

# Here is an example of the string returned:
# * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1
# UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT APPENDLIMIT=35882577
# LIST-EXTENDED LIST-STATUS

# The HasCapability method can be used to
# check to see if a particular capability exists:
if ($imap->HasCapability('QUOTA', $caps)) {
    print "IMAP server supports the QUOTA extension.\n";
}

if ($imap->HasCapability('IDLE', $caps)) {
    print "IMAP server supports IDLE.\n";
}

# Disconnect from the IMAP server.
$success = $imap->Disconnect();