version 1.841, 2007/03/03 01:33:10
|
version 1.842, 2007/03/03 01:54:13
|
Line 7621 BEGIN {
|
Line 7621 BEGIN {
|
my %possible_hosts = ($type eq 'library') ? %libserv |
my %possible_hosts = ($type eq 'library') ? %libserv |
: %hostname; |
: %hostname; |
my %result; |
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; |
return %result; |