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. Perl

use chilkat();

$success = 0;

# 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 == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Find the certificate by the subject common name:
$jsonCN = chilkat::CkJsonObject->new();
$jsonCN->UpdateString("CN","cert common name");

$cert = chilkat::CkCert->new();
$success = $certStore->FindCert($jsonCN,$cert);
if ($success == 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 == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

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

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

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

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

# Get the message IDs of all the emails in the mailbox
$fetchUids = 1;
$messageSet = chilkat::CkMessageSet->new();
$success = $imap->QueryMbx("ALL",$fetchUids,$messageSet);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Fetch the emails into a bundle object:
$bundle = chilkat::CkEmailBundle->new();
$headersOnly = 0;
$success = $imap->FetchMsgSet($headersOnly,$messageSet,$bundle);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Loop over the bundle and display the FROM and SUBJECT of each.
$email = chilkat::CkEmail->new();
$i = 0;
$numEmails = $bundle->get_MessageCount();
while ($i < $numEmails) {
    $bundle->EmailAt($i,$email);

    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();