Fix rscan bug 2769237: rscan command includes duplicate bpa stanza entries

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3333 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhanx 2009-05-11 10:51:16 +00:00
parent 5b6a2c799a
commit 10336a71c8

View File

@ -254,8 +254,12 @@ sub enumerate {
if ( defined($host) ) {
$fname = $host;
}
push @values, join( ",",
"bpa",$fname,$id,$model,$serial,$server,$prof,$bpa,"$ipa $ipb");
my $bpastr = join( ",","bpa",$fname,$id,$model,$serial,$server,$prof,$bpa,"$ipa $ipb");
if ( !grep /^\Q$bpastr\E$/, @values)
{
push @values, join( ",",
"bpa",$fname,$id,$model,$serial,$server,$prof,$bpa,"$ipa $ipb");
}
}
#####################################
# Save CEC information