version 1.12, 2018/08/18 22:07:48
|
version 1.13, 2018/12/10 18:56:18
|
Line 822 sub server_certs {
|
Line 822 sub server_certs {
|
); |
); |
my (%md5hash,%expected_cn,%expired,%revoked,%wrongcn,%info,$crlfile); |
my (%md5hash,%expected_cn,%expired,%revoked,%wrongcn,%info,$crlfile); |
if (ref($perlvar) eq 'HASH') { |
if (ref($perlvar) eq 'HASH') { |
$expected_cn{'host'} = $lonhost; |
$expected_cn{'host'} = $Apache::lonnet::serverhomeIDs{$hostname}; |
$expected_cn{'hostname'} = 'internal-'.$hostname; |
$expected_cn{'hostname'} = 'internal-'.$hostname; |
my $certsdir = $perlvar->{'lonCertificateDirectory'}; |
my $certsdir = $perlvar->{'lonCertificateDirectory'}; |
if (-d $certsdir) { |
if (-d $certsdir) { |