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

Fix building of the node list from $nodes not $noderange

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@370 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-02-01 13:03:04 +00:00
parent de809309f4
commit 6e8c2b7191
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
perl-xCAT-2.0/xCAT/DSHCLI.pm
View File

@ -3601,13 +3601,17 @@ sub parse_and_run_dsh
$::CALLBACK = $callback;
if ($ENV{'XCATROOT'})
{
$::XCATROOT = $ENV{'XCATROOT'}; # setup xcatroot home directory
} elsif (-d '/opt/xcat') {
$::XCATROOT = "/opt/xcat";
} else {
$::XCATROOT = "/usr";
$::XCATROOT = $ENV{'XCATROOT'}; # setup xcatroot home directory
}
elsif (-d '/opt/xcat')
{
$::XCATROOT = "/opt/xcat";
}
else
{
$::XCATROOT = "/usr";
}
# parse the arguments
Getopt::Long::Configure("posix_default");
Getopt::Long::Configure("no_gnu_compat");
@ -3688,8 +3692,8 @@ sub parse_and_run_dsh
#
# build list of nodes
$options{'nodes'} = $noderange;
my @nodelist = @$nodes;
$options{'nodes'} = join(',', @nodelist);
# build arguments
@ -3803,10 +3807,13 @@ sub parse_and_run_dcp
$::CALLBACK = $callback;
if ($ENV{'XCATROOT'})
{
$::XCATROOT = $ENV{'XCATROOT'}; # setup xcatroot home directory
} else {
$::XCATROOT = "/opt/xcat";
$::XCATROOT = $ENV{'XCATROOT'}; # setup xcatroot home directory
}
else
{
$::XCATROOT = "/opt/xcat";
}
# parse the arguments
Getopt::Long::Configure("posix_default");
Getopt::Long::Configure("no_gnu_compat");
@ -3938,8 +3945,8 @@ sub parse_and_run_dcp
#
# build list of nodes
$options{'nodes'} = $noderange;
my @nodelist = @$nodes;
$options{'nodes'} = join(',', @nodelist);
# Execute the dcp api
my @results = xCAT::DSHCLI->runDcp_api(\%options, 0);