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

Stream back Expect STDOUT/STDERR through daemon from PPCcli::connect - Line #67

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@140 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2007-12-06 16:29:08 +00:00
parent 344ffdae95
commit 0a2f1478d6
1 changed files with 27 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
perl-xCAT-2.0/xCAT/PPCcli.pm
View File

@ -74,6 +74,7 @@ sub connect {
my $timeout = 10;
my $success = 0;
my $pwd_sent = 0;
my $expect_log;
##################################################
# Shell prompt regexp based on HW Type
@ -83,7 +84,7 @@ sub connect {
ivm => "\\\$ \$"
);
##################################################
# Get userid/password based on Hardware Conrol Pt
# Get userid/password
##################################################
my @cred = xCAT::PPCdb::credentials( $server, $hwtype );
@ -106,19 +107,34 @@ sub connect {
$ssh->slave->stty(qw(sane -echo));
##################################################
# exp_internal(1) sets exp_internal debugging.
# This is similar in nature to its Tcl counterpart
# exp_internal(1) sets exp_internal debugging
# to STDERR.
##################################################
$ssh->exp_internal( $verbose );
##################################################
# Redirect STDERR to variable
##################################################
if ( $verbose ) {
$ssh->exp_internal(1);
close STDERR;
if ( !open( STDERR, '>', \$expect_log )) {
return( "Unable to redirect STDERR: $!" );
}
}
##################################################
# log_stdout(0) disables logging to STDOUT. This
# corresponds to the Tcl log_user variable.
# log_stdout(0) disables logging to STDOUT.
# This corresponds to the Tcl log_user variable.
##################################################
if ( !$verbose ) {
$ssh->log_stdout(0);
$ssh->log_stdout( $verbose );
##################################################
# Redirect STDOUT to variable
##################################################
close STDOUT;
if ( !open( STDOUT, '>', \$expect_log )) {
return( "Unable to redirect STDOUT: $!" );
}
unless ( $ssh->spawn( "ssh", $parameters )) {
return( "Unable to spawn ssh connection to server" );
}
@ -176,7 +192,8 @@ sub connect {
$hwtype,
$server,
$cred[0],
$cred[1] );
$cred[1],
\$expect_log );
}
##########################################
# Failed logon - kill ssh process
@ -805,3 +822,4 @@ sub power_cmd {
1;