Fix bug 3425775:lsslp plugin bug /opt/xcat/lib/perl/xCAT/NetworkUtils.pm

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10837 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-10-19 08:58:50 +00:00
parent aca5df65e5
commit 710207375c

View File

@ -2361,11 +2361,15 @@ sub parse_responses {
$matchhmc = 1;
$result[4] = $ii;
} elsif (exists($opt{i})){
my $subnet = $addr{$opt{i}}{subnet};
my $netmask = $addr{$opt{i}}{netmask};
if(xCAT::NetworkUtils->ishostinsubnet($ii, $netmask, $subnet)) {
$matchhmc = 1;
$result[4] = $ii;
my @userip = split /,/, $opt{i};
foreach my $uip (@userip) {
my $subnet = $addr{$uip}{subnet};
my $netmask = $addr{$uip}{netmask};
if(xCAT::NetworkUtils->ishostinsubnet($ii, $netmask, $subnet)) {
$matchhmc = 1;
$result[4] = $ii;
next;
}
}
}
push @iptmp2,$ii;