Perl

Use an XML Certificate Vault with IMAP

Demonstrates the Chilkat Imap.UseCertVault method, which associates an XmlCertVault with the Imap object as a source of certificates and private keys for S/MIME operations. The only argument is the vault. Only one vault is associated at a time.

Note: The certificate path is relative to the application's current working directory. Supply the path to your own certificate file.

Background: An XmlCertVault is a portable container that can hold multiple certificates and keys in a single (optionally password-protected) XML file. It is a convenient way to ship the exact set of credentials an application needs without depending on the operating system's certificate stores. Associating a vault makes all of its contents available for S/MIME decryption and signature verification.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Imap.UseCertVault method, which associates an XmlCertVault with the Imap
# object as a source of certificates and private keys for S/MIME operations.  The only
# argument is the XmlCertVault.

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

$imap->Ssl(1);
$imap->Port(993);

my $success = $imap->Connect('imap.example.com');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

$success = $imap->Login('user@example.com', 'myPassword');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# The PFX password is not hard-coded in source.  Insert code here to obtain it from an
# interactive prompt, environment variable, or a secrets vault.
my $pfxPassword = '';

# Build a certificate vault and add a PFX to it.
my $vault = Chilkat2::XmlCertVault->new;
$success = $vault->AddPfxFile('qa_data/smime.pfx', $pfxPassword);
if (!$success) {
    print $vault->LastErrorText, "\n";
    exit;
}

# Associate the vault with the Imap object.  Only one vault is associated at a time.
$success = $imap->UseCertVault($vault);
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

$success = $imap->Disconnect();
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}