loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1172.2.60, 2015/03/11 04:21:21	version 1.1172.2.61, 2015/03/30 21:58:56
Line 1174 sub spare_can_host {	Line 1174 sub spare_can_host {
my ($udom,$uint_dom,$remotesessions,$try_server)=@_;	my ($udom,$uint_dom,$remotesessions,$try_server)=@_;
my $canhost=1;	my $canhost=1;
my @intdoms;	my @intdoms;
my $internet_names = &Apache::lonnet::get_internet_names($try_server);	my $internet_names = &get_internet_names($try_server);
if (ref($internet_names) eq 'ARRAY') {	if (ref($internet_names) eq 'ARRAY') {
@intdoms = @{$internet_names};	@intdoms = @{$internet_names};
}	}
unless (grep(/^\Q$uint_dom\E$/,@intdoms)) {	unless (grep(/^\Q$uint_dom\E$/,@intdoms)) {
my $serverhomeID = &Apache::lonnet::get_server_homeID($try_server);	my $try_server_hostname = &hostname($try_server);
my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);	my $serverhomeID = &get_server_homeID($try_server_hostname);
my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom);	my $serverhomedom = &host_domain($serverhomeID);
my $remoterev = &Apache::lonnet::get_server_loncaparev(undef,$try_server);	my %defdomdefaults = &get_domain_defaults($serverhomedom);
	my $remoterev = &get_server_loncaparev(undef,$try_server);
$canhost = &can_host_session($udom,$try_server,$remoterev,	$canhost = &can_host_session($udom,$try_server,$remoterev,
$remotesessions,	$remotesessions,
$defdomdefaults{'hostedsessions'});	$defdomdefaults{'hostedsessions'});