-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:
jbjohnso 2008-03-20 21:20:06 +00:00
parent b84a67462b
commit f6ada02492

View File

@ -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};
}
}
}