(Tcl) Get Certificate Valid To/From Dates
Demonstrates how to get the certificate "valid from" and "valid to" dates.
load ./chilkat.dll
set cert [new_CkCert]
set success [CkCert_LoadFromFile $cert "qa_data/certs/testCert.cer"]
if {$success != 1} then {
puts [CkCert_lastErrorText $cert]
delete_CkCert $cert
exit
}
# Get the certificate valid-from date/time
# ckdt is a CkDateTime
set ckdt [CkCert_GetValidFromDt $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.
# dt is a CkDtObj
set dt [CkDateTime_GetDtObj $ckdt 1]
puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt] [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]
delete_CkDtObj $dt
delete_CkDateTime $ckdt
# Get the certificate valid-to date/time
set ckdt [CkCert_GetValidToDt $cert]
puts "Valid to: [CkDateTime_getAsTimestamp $ckdt 1]"
# Valid to: 2020-03-18T18:59:59-05:00
set dt [CkDateTime_GetDtObj $ckdt 1]
puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt] [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]
delete_CkDtObj $dt
delete_CkDateTime $ckdt
delete_CkCert $cert
|
