version 1.91, 2018/10/28 03:07:37
|
version 1.92, 2018/11/01 04:33:08
|
Line 538 sub get_ssldesc {
|
Line 538 sub get_ssldesc {
|
|
|
sub get_cert_status { |
sub get_cert_status { |
my ($lonHostID,$hostname,$perlvarstatic) = @_; |
my ($lonHostID,$hostname,$perlvarstatic) = @_; |
my $currcerts = &LONCAPA::SSL::print_certstatus({$lonHostID => $hostname,},'text','cgi'); |
my $currcerts = &LONCAPA::SSL::print_certstatus({$lonHostID => $hostname,},'text','install'); |
my ($lonkeystatus,$lonhostcertstatus,$lonhostnamecertstatus,%sslstatus); |
my ($lonkeystatus,$lonhostcertstatus,$lonhostnamecertstatus,%sslstatus); |
my $output = ''; |
my $output = ''; |
if ($currcerts eq "$lonHostID:error") { |
if ($currcerts eq "$lonHostID:error") { |