(Tcl) Create X509PKIPathv1 Containing one Certificate

Demonstrates how to create a X509PKIPathv1 containing one certificate.

Note: This example requires Chilkat v9.5.0.77 or later.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set cert [new_CkCert]

# There are many ways to load a certificate -- from a file, from a string or memory, etc.,
# and from many different formats.  This example loads the cert from a PEM file.
# (LoadFromFile will auto-recognize the format.)
set success [CkCert_LoadFromFile $cert "qa_data/certs/brasil_cert.pem"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

# Get the X509PKIPathv1 in base64 format (single line)
set s [CkCert_x509PKIPathv1 $cert]
if {[CkCert_get_LastMethodSuccess $cert] == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

puts "X509PKIPathv1: $s"

delete_CkCert $cert