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

Added site.ppctimeout to control connect/command timeout

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1152 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-04-22 15:51:48 +00:00
parent d1a0979da2
commit 8f7089b0c3
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,13 +66,19 @@ sub connect {
my $hwtype = shift;
my $server = shift;
my $verbose = shift;
my $timeout = shift;
my $pwd_prompt = 'assword: $';
my $continue = 'continue connecting (yes/no)?';
my $timeout = 30;
my $success = 0;
my $pwd_sent = 0;
my $expect_log;
##################################################
# Use timeout from site table (if defined)
##################################################
if ( !defined( $timeout )) {
$timeout = DEFAULT_TIMEOUT;
}
##################################################
# Shell prompt regexp based on HW Type
##################################################
@ -184,6 +190,7 @@ sub connect {
# UserId
# Password
# Redirected STDERR/STDOUT
# Connect/Command timeout
##########################################
if ( $success ) {
return( $ssh,
@ -192,7 +199,8 @@ sub connect {
$server,
$cred[0],
$cred[1],
\$expect_log );
\$expect_log,
$timeout );
}
##########################################
# Failed logon - kill ssh process
@ -748,10 +756,10 @@ sub send_cmd {
my $prompt = @$exp[1];
##########################################
# Set default Expect timeout
# Use timeout from site table (if defined)
##########################################
if ( !defined( $timeout )) {
$timeout = DEFAULT_TIMEOUT;
$timeout = @$exp[7];
}
##########################################
# Send command
@ -880,3 +888,4 @@ sub power_cmd {