Cache mode - Debug

[nouvakis 0]

1. in procedure TSslContext.InitContext

...

if CheckLogOptions(loSslInfo) then  { V8.40 }
   DebugLog(loSslInfo, 'Set sslSESS_CACHE_SERVER');

***********************************

It always writes sslSESS_CACHE_SERVER ignoring correspondig Session cache modes

----------------------------------------------------------

 

2. TCustomSslWSocket.TriggerSslHandshakeDone(ErrCode : Word);

...

FSslPeerCert.X509 := PeerX;

 

should become

if Assigned(FSslPeerCert) then  // add this one please
       FSslPeerCert.X509 := PeerX;

---------------------------------------------------------

[Angus Robertson 574]

Thanks, changed the literal, the PeerX change has already been done in V8.65. 

 

Angus