loncom/configuration/SSL.pm - diff

Return to SSL.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.7, 2018/08/18 22:07:53	version 1.9, 2019/04/12 02:41:47
Line 65 sub print_certstatus {	Line 65 sub print_certstatus {
'otherkey' => 'No matching key',	'otherkey' => 'No matching key',
'revoked' => 'Revoked by CA',	'revoked' => 'Revoked by CA',
'wrongcn' => 'Incorrect CN',	'wrongcn' => 'Incorrect CN',
	'mismatch' => 'Mismatched Issuer',
);	);
my @files = qw(key host hostname ca);	my @files = qw(key host hostname ca);
my @fields = qw(status cn start end alg size email);	my @fields = qw(status cn start end alg size email);
Line 93 sub print_certstatus {	Line 94 sub print_certstatus {
} else {	} else {
$message .= $file.'=';	$message .= $file.'=';
}	}
if (ref($hashref->{$file}) eq 'HASH') {	if ((ref($hashref->{$file}) eq 'HASH') && (keys(%{$hashref->{$file}}) > 0)) {
my ($starttime,$endtime,$dateinvalid);	my ($starttime,$endtime,$dateinvalid);
if ($target eq 'web') {	if ($target eq 'web') {
$message .= '<td>'.$lt{'yes'}.'</td>';	$message .= '<td>'.$lt{'yes'}.'</td>';
Line 153 sub print_certstatus {	Line 154 sub print_certstatus {
}	}
} elsif (($display eq 'nokey') \|\| ($display eq 'otherkey') \|\|	} elsif (($display eq 'nokey') \|\| ($display eq 'otherkey') \|\|
($display eq 'revoked') \|\| ($display eq 'expired') \|\|	($display eq 'revoked') \|\| ($display eq 'expired') \|\|
($display eq 'wrongcn')) {	($display eq 'wrongcn') \|\| ($display eq 'mismatch')) {
if ($target eq 'web') {	if ($target eq 'web') {
$display = $lt{$display};	$display = $lt{$display};
}	}