From 45471ceb752f4e0a4fb7239157f9a73b93a504f0 Mon Sep 17 00:00:00 2001
From: "Jean-Marc Pigeon (Delson)" <jmp@safe.ca>
Date: Sat, 3 May 2025 20:01:47 -0400
Subject: [PATCH] Working on certificate recognition

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

diff --git a/lib/unitls.c b/lib/unitls.c
index f7595c1..534a169 100644
--- a/lib/unitls.c
+++ b/lib/unitls.c
@@ -166,14 +166,19 @@ while (proceed==true) {
         (void) free(line);
         }
       break;
-    case 3      :       //verifying certificate
-      if (SSL_get_verify_result(tls->ssl)!=X509_V_OK) {
-        (void) rou_alert(0,"%s, Remote certificate NOT OK",OPEP);
-        phase=999;
+    case 3      :  {     //verifying certificate
+      int verif;
+
+      verif=SSL_get_verify_result(tls->ssl);
+      switch (verif) {
+        default         :
+          (void) rou_alert(0,"%s, Remote certificate status='%d'",OPEP,verif);
+          break;
         }
-      (void) X509_free(peer);
+      }
       break;
     case 2      :       //everything is fine
+      (void) X509_free(peer);
       ok=true;
       break;
     default     :       //SAFE Guard
-- 
2.47.3