Perl

Get Certificate Valid To/From Dates

Demonstrates how to get the certificate "valid from" and "valid to" dates. Perl

use chilkat();

$success = 0;

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

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

# Get the certificate valid-from date/time
$ckdt = chilkat::CkDateTime->new();
$ckdt->SetFromRfc822($cert->validFromStr());

# Get the local timestamp string.
print "Valid from: " . $ckdt->getAsTimestamp(1) . "\r\n";
# Valid from: 2017-03-17T19:00:00-05:00

# Now get the date/time as another object where we can get the individual numeric date parts.
$dt = chilkat::CkDtObj->new();
$ckdt->ToDtObj(1,$dt);

print $dt->get_Day() . "/" . $dt->get_Month() . "/" . $dt->get_Year() . "  " . $dt->get_Hour() . ":"
     . $dt->get_Minute() . "\r\n";

# Get the certificate valid-to date/time
$ckdt->SetFromRfc822($cert->validToStr());

print "Valid to: " . $ckdt->getAsTimestamp(1) . "\r\n";
# Valid to: 2020-03-18T18:59:59-05:00new DtObj dt;
$ckdt->ToDtObj(1,$dt);

print $dt->get_Day() . "/" . $dt->get_Month() . "/" . $dt->get_Year() . "  " . $dt->get_Hour() . ":"
     . $dt->get_Minute() . "\r\n";