-makedhcp with -a and -d does a more thorough elimination
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@861 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
b84a67462b
commit
f6ada02492
@ -264,11 +264,20 @@ sub process_request {
|
||||
addnic($_);
|
||||
}
|
||||
if (grep /^-a$/,@{$req->{arg}}) {
|
||||
$req->{node} = [];
|
||||
my $mactab = xCAT::Table->new('mac');
|
||||
my @entries = ($mactab->getAllNodeAttribs([qw(mac)]));
|
||||
foreach (@entries) {
|
||||
push @{$req->{node}},$_->{node};
|
||||
if (grep /-d$/,@{$req->{arg}}) {
|
||||
$req->{node} = [];
|
||||
my $nodelist = xCAT::Table->new('nodelist');
|
||||
my @entries = ($nodelist->getAllNodeAttribs([qw(node)]));
|
||||
foreach (@entries) {
|
||||
push @{$req->{node}},$_->{node};
|
||||
}
|
||||
} else {
|
||||
$req->{node} = [];
|
||||
my $mactab = xCAT::Table->new('mac');
|
||||
my @entries = ($mactab->getAllNodeAttribs([qw(mac)]));
|
||||
foreach (@entries) {
|
||||
push @{$req->{node}},$_->{node};
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user