From 2bb54f25d283e56474f8d1c027788a79aa7054d2 Mon Sep 17 00:00:00 2001
From: Miroslav Kundela <mail@mirus.cz>
Date: Fri, 20 Dec 2019 22:42:23 +0100
Subject: [PATCH] EETHttpClient ValidateCertificateEvent

---
 source/httpclient/u_EETHttpClient_Net.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/source/httpclient/u_EETHttpClient_Net.pas b/source/httpclient/u_EETHttpClient_Net.pas
index 1757a00..00a946a 100644
--- a/source/httpclient/u_EETHttpClient_Net.pas
+++ b/source/httpclient/u_EETHttpClient_Net.pas
@@ -62,9 +62,16 @@ procedure TEETHttpClientNet.SendRequest(aUrl : String; aRequestStream: TStream;
 procedure TEETHttpClientNet.ValidateCertificateEvent(const Sender: TObject;
   const ARequest: TURLRequest; const Certificate: TCertificate;
   var Accepted: Boolean);
+var
+  bRes : boolean;
 begin
   {* Trigger only if server certificate is not valid for HttpClient !!! *}
-  Accepted := False;
+  bRes := False;
+  if (Certificate.Start < now) and (now < Certificate.Expiry) then
+    bRes := True;
+  if bRes and (HttpsTrustName <> '') then
+    bRes := Certificate.ProtocolName = HttpsTrustName; // www.eet.cz
+  Accepted := bRes;
 end;
 
 end.
\ No newline at end of file