|
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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to Lond.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom