loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1337, 2017/02/25 20:00:41	version 1.1339, 2017/02/28 05:42:12
Line 2390 sub get_domain_defaults {	Line 2390 sub get_domain_defaults {
if (ref($domconfig{'ssl'}{'replication'}) eq 'HASH') {	if (ref($domconfig{'ssl'}{'replication'}) eq 'HASH') {
$domdefaults{'replication'} = $domconfig{'ssl'}{'replication'};	$domdefaults{'replication'} = $domconfig{'ssl'}{'replication'};
}	}
if (ref($domconfig{'ssl'}{'connect'}) eq 'HASH') {	if (ref($domconfig{'ssl'}{'connto'}) eq 'HASH') {
$domdefaults{'connect'} = $domconfig{'ssl'}{'connect'};	$domdefaults{'connect'} = $domconfig{'ssl'}{'connto'};
	}
	if (ref($domconfig{'ssl'}{'connfrom'}) eq 'HASH') {
	$domdefaults{'connect'} = $domconfig{'ssl'}{'connfrom'};
}	}
}	}
if (ref($domconfig{'trust'}) eq 'HASH') {	if (ref($domconfig{'trust'}) eq 'HASH') {
Line 13260 sub fetch_dns_checksums {	Line 13263 sub fetch_dns_checksums {
&purge_remembered();	&purge_remembered();
&reset_domain_info();	&reset_domain_info();
&reset_hosts_ip_info();	&reset_hosts_ip_info();
	undef(%internetdom);
undef(%name_to_host);	undef(%name_to_host);
undef(%hostname);	undef(%hostname);
undef(%hostdom);	undef(%hostdom);
Line 13302 sub fetch_dns_checksums {	Line 13306 sub fetch_dns_checksums {
return %hostdom;	return %hostdom;
}	}

	sub all_host_intdom {
	&load_hosts_tab() if (!$loaded);
	return %internetdom;
	}

sub is_library {	sub is_library {
&load_hosts_tab() if (!$loaded);	&load_hosts_tab() if (!$loaded);