Perl
Perl
Clear the S/MIME Recipient Certificate List
See more MIME Examples
Demonstrates ClearEncryptCerts, which empties the recipient-certificate list previously populated by AddEncryptCert. This is useful to start over with a different set of recipients before calling EncryptN.
Background. The recipient list is internal state that accumulates across AddEncryptCert calls. ClearEncryptCerts resets it so a subsequent EncryptN encrypts only for the certificates added afterward.
Chilkat Perl Downloads
use chilkat();
$success = 0;
$mime = chilkat::CkMime->new();
$success = $mime->SetBodyFromPlainText("This message will be encrypted.");
if ($success == 0) {
print $mime->lastErrorText() . "\r\n";
exit;
}
# Add a recipient certificate.
$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("qa_data/recipient.cer");
if ($success == 0) {
print $cert->lastErrorText() . "\r\n";
exit;
}
$success = $mime->AddEncryptCert($cert);
if ($success == 0) {
print $mime->lastErrorText() . "\r\n";
exit;
}
# ClearEncryptCerts empties the recipient-certificate list, for example to start over with a
# different set of recipients before calling EncryptN. It is a void method.
$mime->ClearEncryptCerts();
print "Recipient certificate list cleared." . "\r\n";