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

added missing function pass_along in aixinstall.pm

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1867 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2008-07-11 18:27:32 +00:00
parent 57999f965e
commit 78aa996774
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
xCAT-server/lib/xcat/plugins/aixinstall.pm
View File

@ -25,6 +25,7 @@ use File::Path;
Getopt::Long::Configure("bundling");
$Getopt::Long::ignorecase = 0;
#------------------------------------------------------------------------------
=head1 aixinstall
@ -94,6 +95,8 @@ sub process_request
my $sub_req = shift;
my $ret;
my $msg;
$::callback=$callback;
my $command = $request->{command}->[0];
$::args = $request->{arg};
@ -139,6 +142,21 @@ sub process_request
return 0;
}
my $errored = 0;
sub pass_along {
my $resp = shift;
$::callback->($resp);
if ($resp and ($resp->{errorcode} and $resp->{errorcode}->[0]) or ($resp->{error} and $resp->{error}->[0])) {
$errored=1;
}
foreach (@{$resp->{node}}) {
if ($_->{error} or $_->{errorcode}) {
$errored=1;
}
}
}
#----------------------------------------------------------------------------