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

fixed bug 2861052. xCAT::DSHCLI->runDsh_api was not really a supported api anymore. I tried the runxcmd routine, But it didn't work well. And I used the the command line call. It worked better.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4177 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jjhua 2009-09-21 11:42:37 +00:00
parent 45d902c128
commit b1b7a0b618
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
perl-xCAT/xCAT/PPCrflash.pm
View File

@ -749,24 +749,38 @@ sub rflash {
# print_var(@res);
%options = ();
push(@value,[$hmc, "copy files to $hmc complete"]);
push(@value,[$hmc, "copy files to $hmc completely"]);
#`$::XDSH $hmc -K`;
###############################################
# Now that all the stanzas files have been built and copied to the HMCs,
# we can use a single dsh command to invoke them all.
################################################
$options{ 'user' } = $user;
$options{ 'nodes' } = $hmc;
$options{ 'exit-status' } = 1;
$options{ 'stream' } = 1;
$options{ 'preserve' } = 1;
$options{ 'command' } = "csmlicutil $tmp_file";
# @res = xCAT::Utils->runcmd( $cmd, 0, 1);
# my @re1 = xCAT::Utils->runxcmd( {
# command => ['xdsh'],
# node => [$hmc],
# arg => [ "-l", $user , $cmd_hmc ]
# },
# , $subreq, 0, 1);
#
# $options{ 'user' } = $user;
# $options{ 'nodes' } = $hmc;
# $options{ 'exit-status' } = 1;
# $options{ 'stream' } = 1;
# $options{ 'command' } = "csmlicutil $tmp_file";
# $options{ 'command' } = "ls -al";
@res = xCAT::DSHCLI->runDsh_api(\%options, 0);
my $Rc = pop(@res);
push(@value, [$Rc]);
# @res = xCAT::DSHCLI->runDsh_api(\%options, 0);
# my $Rc = pop(@res);
# push(@value, [$Rc]);
# The above code isn't supported.
my $cmd_hmc = "csmlicutil $tmp_file";
#my $cmd_hmc = "ls";
my $cmd = "XCATBYPASS=Y $::XCATROOT/bin/xdsh $hmc -l$user \"$cmd_hmc\"";
$SIG{CHLD} = ();
@res = `$cmd`;
$::RUNCMD_RC = $?;
if ($::RUNCMD_RC ) { # error from dsh
my $rsp={};
$rsp->{data}->[0] = "Error from dsh. Return Code = $::RUNCMD_RC";