(Tcl) Transition from MailMan.GetSmtpSslServerCert to MailMan.GetServerCert

Provides instructions for replacing deprecated GetSmtpSslServerCert method calls with GetServerCert.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set mailman [new_CkMailMan]

# ...
# ...

# ------------------------------------------------------------------------
# The GetSmtpSslServerCert method is deprecated:

# certObj is a CkCert
set certObj [CkMailMan_GetSmtpSslServerCert $mailman]
if {[CkMailMan_get_LastMethodSuccess $mailman] == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

# ...
# ...

delete_CkCert $certObj

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

# We want the SMTP email server certificate..
set useSmtp 1

set certOut [new_CkCert]

set success [CkMailMan_GetServerCert $mailman $useSmtp $certOut]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkCert $certOut
    exit
}


delete_CkMailMan $mailman
delete_CkCert $certOut