michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-08-18 05:00:46 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Fix to simplify the code

Browse Source
This commit is contained in:
iliajie
2023-08-07 21:52:22 +03:00
parent 736d30ef76
commit c500759d83
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
web-lib-funcs.pl
View File

@@ -8842,23 +8842,20 @@ if ($ssl) {
{
my $cert = Net::SSLeay::X509_STORE_CTX_get_current_cert($_[1]);
if ($cert) {
my $subject = Net::SSLeay::X509_NAME_oneline(
Net::SSLeay::X509_get_subject_name($cert));
my $issuer = Net::SSLeay::X509_NAME_oneline(
Net::SSLeay::X509_get_issuer_name($cert));
my $errnum = Net::SSLeay::X509_STORE_CTX_get_error($_[1]);
if ($errnum) {
my $error_string = "";
eval {
$error_string = Net::SSLeay::X509_verify_cert_error_string($errnum);
if ($error_string) {
$error_string = " : $error_string";
}
$error_string = " $error_string"
if ($error_string);
};
if ($error_string) {
$main::last_set_verify_err = $error_string;
}
else {
my $issuer = Net::SSLeay::X509_NAME_oneline(
Net::SSLeay::X509_get_issuer_name($cert));
$main::last_set_verify_err =
"Certificate is signed by an ".
"unknown CA : $issuer (code $errnum)";