Perl Requires Chilkat v11.0.0+

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