Do not allow updatenode -k to the Management Node

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13169 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-06-26 15:15:19 +00:00
parent 1788410105
commit c01096db79

View File

@ -971,6 +971,26 @@ $AIXnodes_nd, $subreq ) != 0 ) {
#
if ($request->{security} && $request->{security}->[0] eq "yes") {
# check to see if the Management Node is in the noderange and
# if it is abort
my $mname;
my $tab = xCAT::Table->new('nodetype');
my @nodelist2=$tab->getAllNodeAttribs(['node','nodetype']);
foreach my $n (@nodelist2) {
if ($n->{'nodetype'} eq "mn") { # this is the MN
$mname=$n->{'node'};
last;
}
}
if ($mname) { # MN in the database
if (grep(/$mname/, @$nodes)) { # if MN in the noderange
my $rsp = {};
$rsp->{error}->[0] =
"You must not run -K option against the Management Node:$mname.";
xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
return;
}
}
# generate the arguments
my @args = ("-K");