Lianja

Transition from MailMan.GetPop3SslServerCert to MailMan.GetServerCert

Provides instructions for replacing deprecated GetPop3SslServerCert method calls with GetServerCert. Lianja

llSuccess = .F.

loMailman = createobject("CkMailMan")

// ...
// ...

// ------------------------------------------------------------------------
// The GetPop3SslServerCert method is deprecated:

loCertObj = loMailman.GetPop3SslServerCert()
if (loMailman.LastMethodSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    return
endif

// ...
// ...

release loCertObj

// ------------------------------------------------------------------------
// 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 POP3 email server certificate..
llUseSmtp = .F.

loCertOut = createobject("CkCert")
llSuccess = loMailman.GetServerCert(llUseSmtp,loCertOut)
if (llSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    release loCertOut
    return
endif



release loMailman
release loCertOut