arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Do not allow xdsh -K to the Management Node

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13168 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-06-26 14:39:56 +00:00
parent 9db06eb9ef
commit 1788410105
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
perl-xCAT/xCAT/DSHCLI.pm
View File

@ -3812,6 +3812,27 @@ sub parse_and_run_dsh
if (defined $options{'ssh-setup'})
{
# check if any node in the noderange is the Management Node and exit
# with error, if the Management Node is in the Database and in the
# noderange
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/, @nodelist)) { # 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;
}
}
# if devicetype=Mellanox, xdsh does not setup ssh, rspconfig does
if ($switchtype =~ /Mellanox/i) {
my $rsp = {};