(Tcl) Get Certificate Valid To/From Dates
Demonstrates how to get the certificate "valid from" and "valid to" dates. Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll
set success 0
set cert [new_CkCert]
set success [CkCert_LoadFromFile $cert "qa_data/certs/testCert.cer"]
if {$success == 0} then {
puts [CkCert_lastErrorText $cert]
delete_CkCert $cert
exit
}
# Get the certificate valid-from date/time
set ckdt [new_CkDateTime]
CkDateTime_SetFromRfc822 $ckdt [CkCert_validFromStr $cert]
# Get the local timestamp string.
puts "Valid from: [CkDateTime_getAsTimestamp $ckdt 1]"
# 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.
set dt [new_CkDtObj]
CkDateTime_ToDtObj $ckdt 1 $dt
puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt] [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]
# Get the certificate valid-to date/time
CkDateTime_SetFromRfc822 $ckdt [CkCert_validToStr $cert]
puts "Valid to: [CkDateTime_getAsTimestamp $ckdt 1]"
# Valid to: 2020-03-18T18:59:59-05:00new DtObj dt;
CkDateTime_ToDtObj $ckdt 1 $dt
puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt] [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]
delete_CkCert $cert
delete_CkDateTime $ckdt
delete_CkDtObj $dt
|
