From 363746b4e0c7237e26f8ab164613de3a038e9249 Mon Sep 17 00:00:00 2001
From: "Jean-Marc Pigeon (Delson)" <jmp@safe.ca>
Date: Sun, 4 May 2025 07:56:27 -0400
Subject: [PATCH] Improving Certificate verification

---
 lib/unitls.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/unitls.c b/lib/unitls.c
index 153c4fa..588c8c3 100644
--- a/lib/unitls.c
+++ b/lib/unitls.c
@@ -165,7 +165,7 @@ _Bool proceed;
 
 done=false;
 mode=SSL_VERIFY_NONE;
-//mode=SSL_VERIFY_PEER;
+mode=SSL_VERIFY_PEER;
 phase=0;
 proceed=true;
 while (proceed==true) {
@@ -355,8 +355,11 @@ while (proceed==true) {
 
       verif=SSL_get_verify_result(tls->ssl);
       switch (verif) {
+        case X509_V_OK  :
+          (void) rou_alert(0,"%s Remote certificate is V_OK",OPEP);
+          break;
         default         :
-          (void) rou_alert(0,"%s, Remote certificate status='%d'",OPEP,verif);
+          (void) rou_alert(0,"%s Remote certificate status='%d'",OPEP,verif);
           break;
         }
       }
-- 
2.47.3