From 298842626aa7bfab57da190abb8140b96d5fe7cb Mon Sep 17 00:00:00 2001
From: vallard <vallard@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 2 Jun 2008 20:28:43 +0000
Subject: [PATCH] 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
---
 perl-xCAT-2.0/xCAT/Client.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/perl-xCAT-2.0/xCAT/Client.pm b/perl-xCAT-2.0/xCAT/Client.pm
index cc4903962..ecb6d10bb 100644
--- a/perl-xCAT-2.0/xCAT/Client.pm
+++ b/perl-xCAT-2.0/xCAT/Client.pm
@@ -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}}) {