From: Jean-Marc Pigeon (Delson) <jmp@safe.ca>
Date: Sun, 4 May 2025 00:01:47 +0000 (-0400)
Subject: Working on certificate recognition
X-Git-Tag: tag-0.7~7
X-Git-Url: https://jmp-git.ovh.safe.ca/?a=commitdiff_plain;h=45471ceb752f4e0a4fb7239157f9a73b93a504f0;p=jmp%2Fmailleur

Working on certificate recognition
---

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