Perl

Get Certificate Policy

See more Certificates Examples

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

use chilkat();

$success = 0;

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

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

# The certificatePolicies OID is 2.5.29.32
$oid = "2.5.29.32";
$strXml = $cert->getExtensionAsXml($oid);
if ($cert->get_LastMethodSuccess() == 1) {
    print $strXml . "\r\n";

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

    $xml = chilkat::CkXml->new();
    $xml->LoadXml($strXml);
    print "Policy OID = " . $xml->getChildContent("sequence|oid") . "\r\n";
}