added sinfo for no newlines

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1557 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
vallard 2008-06-02 20:28:43 +00:00
parent 6112f5b8b3
commit 298842626a

View File

@ -711,6 +711,13 @@ sub handle_response {
else { print ($rsp->{info}."\n"); }
}
if ($rsp->{sinfo}) {
if (ref($rsp->{sinfo}) eq 'ARRAY') { foreach my $text (@{$rsp->{sinfo}}) { print "$text\r"; $|++; } }
else { print ($rsp->{sinfo}."\r"); $|++; }
}
# Handle {node} structure
my $errflg=0;
if (scalar @{$rsp->{node}}) {