loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.841, 2007/03/03 01:33:10
+version 1.842, 2007/03/03 01:54:13
  Line 7621  BEGIN {
  	my %possible_hosts = ($type eq 'library') ? %libserv
  	                                          : %hostname;
  	my %result;
- 	while ( my ($host,$hostname) = each(%possible_hosts)) {
+ 	if (ref($domain) eq 'ARRAY') {
- 	    if ($hostdom{$host} eq $domain) {
+ 	    while ( my ($host,$hostname) = each(%possible_hosts)) {
- 		$result{$host} = $hostname;
+ 		if (grep(/\Q$hostdom{$host}\E/,@$domain)) {
+ 		    $result{$host} = $hostname;
+ 		}
+ 	    }
+ 	} else {
+ 	    while ( my ($host,$hostname) = each(%possible_hosts)) {
+ 		if ($hostdom{$host} eq $domain) {
+ 		    $result{$host} = $hostname;
+ 		}
  	    }
  	}
  	return %result;