(Perl) Subject Alternative Name

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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");