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