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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $cert = Chilkat2::Cert->new;

my $success = $cert->LoadFromFile('qa_data/certs/testIcpBrasil.cer');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

my $subjectAltNameXml = $cert->SubjectAlternativeName;

print $subjectAltNameXml, "\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:

my $xml = Chilkat2::Xml->new;

$xml->LoadXml($subjectAltNameXml);

my $oid = '';
my $name = '';

my $i = 0;
my $count_i = $xml->NumChildrenHavingTag('name');
while ($i < $count_i) {
    $xml->I($i);
    $oid = $xml->ChilkatPath('name[i]|(oid)');
    $name = $xml->GetChildContent('name[i]');
    $i = $i + 1;
}

my $rfc822Name = $xml->GetChildContent('rfc822Name');