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

Add output to STDERR for error message in one more place in handle_response

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@998 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-04-08 11:49:06 +00:00
parent fa29550b55
commit 9c06ac9640
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl-xCAT-2.0/xCAT/Client.pm
View File

@ -527,6 +527,7 @@ sub handle_response {
}
# Handle {node} structure
my $errflg=0;
if (scalar @{$rsp->{node}}) {
#print "printing node\n";
my $nodes=($rsp->{node});
@ -539,6 +540,7 @@ sub handle_response {
}
if ($node->{error}) {
$desc.=": Error: ".$node->{error}->[0];
$errflg=1;
}
if ($node->{data}) {
if (ref(\($node->{data}->[0])) eq 'SCALAR') {
@ -553,7 +555,11 @@ sub handle_response {
}
}
if ($desc) {
print "$desc\n";
if ($errflg == 1) {
print STDERR ("$desc\n");
} else {
print "$desc\n";
}
}
}
}