(Perl) Using Client Certificate w/ IMAP SSL

Demonstrates how to use a client-side certificate with an IMAP SSL connection. The SetSslClientCert method is called to specify a certificate to be used for the SSL connection.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$imap = chilkat::CkImap->new();

# To use a secure SSL connection, set SSL and the port:
$imap->put_Ssl(1);
# The typical port for IMAP SSL is 993
$imap->put_Port(993);

# Load a certificate from a PFX file and use it.
# Note: Other methods are available to load pre-installed
# certificates from registry-based certificate stores.

# Create an instance of a certificate store object, load a PFX file,
# locate the certificate we need, and use it for signing.
# (a PFX file may contain more than one certificate.)
$certStore = chilkat::CkCertStore->new();
# The 1st argument is the filename, the 2nd arg is the 
# PFX file's password:
$success = $certStore->LoadPfxFile("myCertWithPrivateKey.pfx","secret");
if ($success != 1) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Find the certificate by the subject common name:

# cert is a Cert
$cert = $certStore->FindCertBySubjectCN("Chilkat Software, Inc.");
if ($certStore->get_LastMethodSuccess() == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# If a PFX file is known to contain a single certificate,
# you may load it directly into a Chilkat certificate object.
# This snippet of source code shows how:
$cert2 = chilkat::CkCert->new();
# The 1st argument is the filename, the 2nd arg is the 
# PFX file's password:
$success = $cert2->LoadPfxFile("myClientCert.pfx","secret");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Use the cert:
$success = $imap->SetSslClientCert($cert);

# Connect to an IMAP server.
$success = $imap->Connect("imap.someMailServer.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Login
$success = $imap->Login("myLogin","myPassword");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# We can choose to fetch UIDs or sequence numbers.
$fetchUids = 1;
# Get the message IDs of all the emails in the mailbox
# messageSet is a MessageSet
$messageSet = $imap->Search("ALL",$fetchUids);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Fetch the emails into a bundle object:

# bundle is a EmailBundle
$bundle = $imap->FetchBundle($messageSet);
if ($imap->get_LastMethodSuccess() == 0) {

    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Loop over the bundle and display the FROM and SUBJECT of each.
$i = 0;
$numEmails = $bundle->get_MessageCount();
while ($i < $numEmails) {
    # email is a Email
    $email = $bundle->GetEmail($i);
    print $email->ck_from() . "\r\n";
    print $email->subject() . "\r\n";
    print "--" . "\r\n";

    $i = $i + 1;
}

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