Perl

Get Certificate Policy

See more Certificates Examples

Demonstrates how to get a certificate's policy OIDs (if any) Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

# The certificatePolicies OID is 2.5.29.32
my $oid = '2.5.29.32';
my $strXml = $cert->GetExtensionAsXml($oid);
if ($cert->LastMethodSuccess) {
    print $strXml, "\n";

    # Sample result:
    # <sequence><sequence><oid>2.16.840.1.101.2.1.11.39</oid></sequence></sequence>

    my $xml = Chilkat2::Xml->new;
    $xml->LoadXml($strXml);
    print 'Policy OID = ', $xml->GetChildContent('sequence|oid'), "\n";
}