loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1322, 2016/09/21 04:47:57	version 1.1323, 2016/09/21 04:57:52
Line 237 sub get_servercerts_info {	Line 237 sub get_servercerts_info {
}	}
if (($context ne 'cgi') && ($uselocal)) {	if (($context ne 'cgi') && ($uselocal)) {
my $distro = (split(/\:/,&get_server_distarch($lonhost)))[0];	my $distro = (split(/\:/,&get_server_distarch($lonhost)))[0];
if ($distro =~ /^(?:centos\|redhat\|scientific)(\d+)$/) {	if ($distro eq '') {
	$uselocal = 0;
	} elsif ($distro =~ /^(?:centos\|redhat\|scientific)(\d+)$/) {
if ($1 < 6) {	if ($1 < 6) {
$uselocal = 0;	$uselocal = 0;
}	}