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

Enabled stream back of verbose FSP output

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@145 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish
2007-12-06 19:09:40 +00:00
parent 761730636c
commit 5f7f525647
1 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
perl-xCAT-2.0/xCAT/PPC.pm
View File

@@ -510,8 +510,24 @@ sub invoke_cmd {
# Direct-attached FSP handler
########################################
if ( $hwtype eq "fsp" ) {
my $result = xCAT::PPCfsp::handler( $host, $request );
my @exp = xCAT::PPCfsp::connect( $request, $host );
####################################
# Error connecting
####################################
if ( ref($exp[0]) ne "LWP::UserAgent" ) {
send_msg( $request, $exp[0] );
return;
}
my $result = xCAT::PPCfsp::handler( $host, $request, \@exp );
####################################
# Output verbose Perl::LWP
####################################
if ( $verbose ) {
my $lwp_log = $exp[3];
send_msg( $request, $$lwp_log );
}
my $out = $request->{pipe};
print $out freeze( $result );
print $out "\nENDOFFREEZE6sK4ci\n";
@@ -542,6 +558,11 @@ sub invoke_cmd {
########################################
my $result = runcmd( $request, $nodes, \@exp );
########################################
# Close connection to remote server
########################################
xCAT::PPCcli::disconnect( \@exp );
########################################
# Output verbose Expect
########################################
@@ -549,11 +570,6 @@ sub invoke_cmd {
my $expect_log = $exp[6];
send_msg( $request, $$expect_log );
}
########################################
# Close connection to remote server
########################################
xCAT::PPCcli::disconnect( \@exp );
########################################
# Return error
########################################