Fix to display error message cleanly #1975

This commit is contained in:
iliajie
2023-08-07 19:44:47 +03:00
parent a27095f40f
commit 736d30ef76

View File

@@ -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;