loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1061, 2010/05/03 16:41:57	version 1.1062, 2010/05/04 15:21:29
Line 5452 sub metadata_query {	Line 5452 sub metadata_query {
my @server_list = (defined($server_array) ? @$server_array	my @server_list = (defined($server_array) ? @$server_array
: keys(%libserv) );	: keys(%libserv) );
for my $server (@server_list) {	for my $server (@server_list) {
	#SD remove this
	&logthis("Querying server:$server");
unless ($custom or $customshow) {	unless ($custom or $customshow) {
my $reply=&reply("querysend:".&escape($query),$server);	my $reply=&reply("querysend:".&escape($query),$server);
$rhash{$server}=$reply;	$rhash{$server}=$reply;
Line 9659 sub get_dns {	Line 9661 sub get_dns {
return %libserv;	return %libserv;
}	}

	sub unique_library {
	#2x reverse removes all hostnames that appear more than once
	my %unique = reverse &all_library();
	return reverse %unique;
	}

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

Line 9682 sub get_dns {	Line 9690 sub get_dns {
return %result;	return %result;
}	}

	sub get_unique_servers {
	my %unique = reverse &get_servers(@_);
	return reverse %unique;
	}

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