From 736d30ef76cde872706d141d1279b795c0170e92 Mon Sep 17 00:00:00 2001
From: iliajie <ilia@webmin.dev>
Date: Mon, 7 Aug 2023 19:44:47 +0300
Subject: [PATCH] Fix to display error message cleanly #1975

---
 web-lib-funcs.pl | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl
index fb655dbad..ab6806b33 100755
--- a/web-lib-funcs.pl
+++ b/web-lib-funcs.pl
@@ -8848,9 +8848,21 @@ if ($ssl) {
 				    Net::SSLeay::X509_get_issuer_name($cert));
 				my $errnum = Net::SSLeay::X509_STORE_CTX_get_error($_[1]);
 				if ($errnum) {
-					$main::last_set_verify_err =
-					  "Certificate is signed by an ".
-					  "unknown CA : $issuer (code $errnum)";
+					my $error_string = "";
+					eval {
+						$error_string = Net::SSLeay::X509_verify_cert_error_string($errnum);
+						if ($error_string) {
+							$error_string = " : $error_string";
+							}
+						};
+					if ($error_string) {
+						$main::last_set_verify_err = $error_string;
+						}
+					else {
+						$main::last_set_verify_err =
+						"Certificate is signed by an ".
+						"unknown CA : $issuer (code $errnum)";
+						}
 					}
 				else {
 					$main::last_set_verify_err = undef;