(Perl) Get Certificate Valid To/From Dates

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

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

use chilkat();

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

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

# Get the certificate valid-from date/time
# ckdt is a CkDateTime
$ckdt = $cert->GetValidFromDt();
# 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 is a DtObj
$dt = $ckdt->GetDtObj(1);
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 is a CkDateTime
$ckdt = $cert->GetValidToDt();
print "Valid to: " . $ckdt->getAsTimestamp(1) . "\r\n";
# Valid to: 2020-03-18T18:59:59-05:00
# dt is a DtObj
$dt = $ckdt->GetDtObj(1);
print $dt->get_Day() . "/" . $dt->get_Month() . "/" . $dt->get_Year() . "  " . $dt->get_Hour() . ":"
     . $dt->get_Minute() . "\r\n";