fix xdsh -s (streaming mode)

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2257 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-09-29 14:10:16 +00:00
parent 99663079d9
commit 191d8468d6

View File

@ -314,6 +314,7 @@ sub pipe_handler
$line =~ s/\n/\n$label/g;
($line =~ /\n$label$/) && ($line =~ s/\n$label$/\n/);
chomp $line;
my @output_files = ();
my @output_file_nos = ();
@ -326,7 +327,10 @@ sub pipe_handler
$line =~ s/$label//g;
}
print $write_fh $line;
my $rsp={};
$rsp->{data}->[0] = $line;
xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
#print $write_fh $line;
}
if (@output_files)