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:
parent
aca5df65e5
commit
710207375c
@ -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;
|
||||
|
Loading…
x
Reference in New Issue
Block a user