(Tcl) Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set http [new_CkHttp]

set domain "chilkatsoft.com"
set port 443

# ------------------------------------------------------------------------
# The GetServerSslCert method is deprecated:

# cert1 is a CkCert
set cert1 [CkHttp_GetServerSslCert $http $domain $port]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts [CkCert_subjectDN $cert1]
delete_CkCert $cert1

# ------------------------------------------------------------------------
# Do the equivalent using GetServerCert.
# Your application creates a new, empty certificate object which is passed 
# in the last argument and filled with the server certificate upon success.

set cert2 [new_CkCert]

set success [CkHttp_GetServerCert $http $domain $port $cert2]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkCert $cert2
    exit
}

puts [CkCert_subjectDN $cert2]

delete_CkHttp $http
delete_CkCert $cert2