remove use of global variable DELNODE
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15952 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
e61792e180
commit
26dcd874de
@ -216,6 +216,7 @@ sub process_request
|
||||
|
||||
my $HELP;
|
||||
my $REMOVE;
|
||||
my $DELNODE;
|
||||
|
||||
# parse the options
|
||||
if ($req && $req->{arg}) { @ARGV = @{$req->{arg}}; }
|
||||
@ -226,7 +227,7 @@ sub process_request
|
||||
!GetOptions(
|
||||
'h|help' => \$HELP,
|
||||
'n' => \$REMOVE,
|
||||
'd' => \$::DELNODE,
|
||||
'd' => \$DELNODE,
|
||||
'o|othernamesfirst' => \$OTHERNAMESFIRST,
|
||||
'a|adddomaintohostnames' => \$ADDNAMES,
|
||||
'm|mactolinklocal' => \$MACTOLINKLOCAL,
|
||||
@ -334,7 +335,7 @@ sub process_request
|
||||
}
|
||||
}
|
||||
|
||||
if ($::DELNODE)
|
||||
if ($DELNODE)
|
||||
{
|
||||
delnode $node, $linklocal, $node, $domain;
|
||||
}
|
||||
@ -368,7 +369,7 @@ sub process_request
|
||||
}
|
||||
}
|
||||
|
||||
if ($::DELNODE)
|
||||
if ($DELNODE)
|
||||
{
|
||||
delnode $ref->{node}, $ref->{ip}, $ref->{hostnames}, $domain;
|
||||
}
|
||||
@ -387,11 +388,11 @@ sub process_request
|
||||
} # end else
|
||||
|
||||
# do the other node nics - if any
|
||||
&donics($req->{node}, $callback);
|
||||
&donics($req->{node}, $callback, $DELNODE);
|
||||
}
|
||||
else
|
||||
{
|
||||
if ($::DELNODE)
|
||||
if ($DELNODE)
|
||||
{
|
||||
return;
|
||||
}
|
||||
@ -422,7 +423,7 @@ sub process_request
|
||||
}
|
||||
|
||||
# also do nics table
|
||||
&donics(\@allnodes, $callback);
|
||||
&donics(\@allnodes, $callback, $DELNODE);
|
||||
}
|
||||
|
||||
writeout();
|
||||
@ -460,7 +461,7 @@ sub writeout
|
||||
Globals:
|
||||
|
||||
Example:
|
||||
my $rc = &donics(\@nodes, $callback);
|
||||
my $rc = &donics(\@nodes, $callback, $DELNODE);
|
||||
|
||||
Comments:
|
||||
none
|
||||
@ -471,6 +472,7 @@ sub donics
|
||||
{
|
||||
my $nodes = shift;
|
||||
my $callback = shift;
|
||||
my $delnode = shift;
|
||||
|
||||
my @nodelist = @{$nodes};
|
||||
|
||||
@ -673,7 +675,7 @@ sub donics
|
||||
next;
|
||||
}
|
||||
|
||||
if ($::DELNODE)
|
||||
if ($delnode)
|
||||
{
|
||||
delnode $nichostname, $nicip, '', $nicdomain;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user