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

Return error message in enumerate(), but continue enumerating

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@684 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-03-05 18:25:36 +00:00
parent df464707e0
commit 162a383a2d
1 changed files with 44 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
perl-xCAT-2.0/xCAT/PPCscan.pm
View File

@ -209,10 +209,12 @@ sub enumerate {
$Rc = shift(@$cages);
#############################
# Return error
# Skip...
# Frame in bad state
#############################
if ( $Rc != SUCCESS ) {
return( @$cages[0] );
push @values, "# $mtms: ERROR @$cages[0]";
next;
}
#############################
# Success
@ -306,6 +308,7 @@ sub enumerate {
# CEC could be "Incomplete" state
####################################
if ( $Rc == RC_ERROR ) {
push @values, "# $mtms: ERROR @$lpars[0]";
next;
}
####################################
@ -353,7 +356,11 @@ sub format_output {
my $uid = @$exp[4];
my $pw = @$exp[5];
xCAT::PPCdb::add_ppc( $hwtype, $values );
#######################################
# Strip errors for results
#######################################
my @val = grep( !/^#.*: ERROR /, @$values );
xCAT::PPCdb::add_ppc( $hwtype, \@val );
}
###########################################
# -x flag for xml format
@ -372,6 +379,12 @@ sub format_output {
# Get longest name for formatting
#######################################
foreach ( @$values ) {
###################################
# Skip error message
###################################
if ( /^#.*: ERROR / ) {
next;
}
/[^\,]+,([^\,]+),/;
my $length = length( $1 );
$max_length = ($length > $max_length) ? $length : $max_length;
@ -388,10 +401,18 @@ sub format_output {
#######################################
# Add node information
#######################################
my @errmsg;
foreach ( @$values ) {
my @data = split /,/;
my $i = 0;
###################################
# Save error messages for last
###################################
if ( /^#.*: ERROR / ) {
push @errmsg, $_;
next;
}
foreach ( @header ) {
my $d = $data[$i++];
@ -407,6 +428,12 @@ sub format_output {
$result .= sprintf( @$_[1], $d );
}
}
#######################################
# Add any error messages
#######################################
foreach ( @errmsg ) {
$result.= "\n$_";
}
}
$output{data} = [$result];
return( [\%output] );
@ -433,6 +460,12 @@ sub format_stanza {
my $type = $data[0];
my $i = 0;
#################################
# Skip error message
#################################
if ( /^#.*: ERROR / ) {
next;
}
#################################
# Node attributes
#################################
@ -486,6 +519,12 @@ sub format_xml {
my $type = $data[0];
my $i = 0;
#################################
# Skip error message
#################################
if ( /^#.*: ERROR / ) {
next;
}
#################################
# Initialize hash reference
#################################
@ -542,7 +581,7 @@ sub rscan {
###################################
my $values = enumerate( $exp );
if ( ref($values) ne 'ARRAY' ) {
return( [[$server,$values]] );
return( [[$server,$values,1]] );
}
###################################
# Success
@ -560,3 +599,4 @@ sub rscan {