Perl

Subject Alternative Name

See more Certificates Examples

Demonstrates the usage of the SubjectAlternativeName property to get the certificate SAN (subject alternative name) as XML. Perl

use chilkat();

$success = 0;

# Note: Not all certificates contain a Subject Alternative Name.
# If it does not, the SubjectAlternativeName property will contain the empty string.

$cert = chilkat::CkCert->new();

$success = $cert->LoadFromFile("qa_data/certs/testIcpBrasil.cer");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$subjectAltNameXml = $cert->subjectAlternativeName();

print $subjectAltNameXml . "\r\n";

# Here's a sample of the subjectAltNameXml:

# <?xml version="1.0" encoding="utf-8"?>
# <SubjectAltName>
#     <name type="oid" oid="2.16.76.1.3.4">...</name>
#     <name type="oid" oid="2.16.76.1.3.2">...</name>
#     <name type="oid" oid="2.16.76.1.3.3">...</name>
#     <name type="oid" oid="2.16.76.1.3.7">...</name>
#     <rfc822Name>...</rfc822Name>
# </SubjectAltName>

# The XML can be parsed like this:

$xml = chilkat::CkXml->new();

$xml->LoadXml($subjectAltNameXml);

$i = 0;
$count_i = $xml->NumChildrenHavingTag("name");
while ($i < $count_i) {
    $xml->put_I($i);
    $oid = $xml->chilkatPath("name[i]|(oid)");
    $name = $xml->getChildContent("name[i]");
    $i = $i + 1;
}

$rfc822Name = $xml->getChildContent("rfc822Name");