Lianja

Transition from Email.GetSignedByCertChain to Email.LastSignerCert

Provides instructions for replacing deprecated GetSignedByCertChain method calls with LastSignerCert. Lianja

llSuccess = .F.

loEmail = createobject("CkEmail")

// ...
// ...

// ------------------------------------------------------------------------
// The GetSignedByCertChain method is deprecated:

loCertChainObj = loEmail.GetSignedByCertChain()
if (loEmail.LastMethodSuccess = .F.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

// ...
// ...

release loCertChainObj

// ------------------------------------------------------------------------
// Do the equivalent using LastSignerCert to get the signing certificate,
// then build the cert chain from the signing certificate object.

loSignerCert = createobject("CkCert")
llSuccess = loEmail.LastSignerCert(0,loSignerCert)
if (llSuccess = .F.) then
    ? loEmail.LastErrorText
    release loEmail
    release loSignerCert
    return
endif

// Get the certificate chain from the signer certificate.
loCertChain = createobject("CkCertChain")
llSuccess = loSignerCert.BuildCertChain(loCertChain)
if (llSuccess = .F.) then
    ? loSignerCert.LastErrorText
    release loEmail
    release loSignerCert
    release loCertChain
    return
endif



release loEmail
release loSignerCert
release loCertChain