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

fix for tracker defect 2728852, xdsh -K only updating the first node on the list

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3095 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2009-04-05 12:18:17 +00:00
parent cc96293f8b
commit 24a734e996
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3785,9 +3785,9 @@ sub parse_and_run_dsh
}
# Rules: if (current userid running command) not eq touserid,
# the current running userid must be root
#
# IF using the xdsh -K -l option then we are setting up the
# --devicetype. xdsh -K -l is not allowed for users.
# This is checked for in the client code.
# DSH_REMOTE_PASSWORD env variable must be set to the correct
# password for the key update. This was setup in xdsh client
# frontend. remoteshell.expect depends on this
@ -3860,7 +3860,7 @@ sub parse_and_run_dsh
#
# setup ssh keys on the nodes or ib switch
#
my $rc = xCAT::Utils->setupSSH(@nodelist);
my $rc = xCAT::Utils->setupSSH($options{'nodes'});
my @results = "return code = $rc";
return (@results);
}

6
perl-xCAT/xCAT/Utils.pm
View File

@ -1110,7 +1110,8 @@ sub setupSSH
my ($class, $ref_nodes) = @_;
my @nodes = $ref_nodes;
my @badnodes = ();
my $n_str = join ',', @nodes;
#my $n_str = join ',', @nodes;
my $n_str = $nodes[0];
my $SSHdir = "/install/postscripts/_ssh";
if (!($ENV{'DSH_REMOTE_PASSWORD'}))
{
@ -1282,7 +1283,8 @@ rmdir \"/tmp/$to_userid\"";
}
# must always check to see if worked, run test
foreach my $n (@nodes)
my @testnodes= split(",", $nodes[0]);
foreach my $n (@testnodes)
{
my $cmd = "$::REMOTESHELL_EXPECT -t $::REMOTE_SHELL $n ";
my @cmdout = `$cmd 2>&1`;