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

Fixed problem with xCAT::PPCcli::connect() parameters

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1498 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-05-27 14:24:51 +00:00
parent 1f6a95dd94
commit 095552f424
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
xCAT-server-2.0/share/xcat/cons/hmc
View File

@ -8,6 +8,7 @@ use lib "$::XCATROOT/lib/perl";
use strict;
use Getopt::Long;
use xCAT::Table;
use xCAT::PPCdb;
use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
@ -212,10 +213,20 @@ sub invoke_cmd {
my $lparid = $att->{id};
my $type = "lpar";
my %request = (
ppcretry => 1,
verbose => $verbose
);
#################################
# Get userid and password
#################################
my @cred = xCAT::PPCdb::credentials( $host, $hwtype );
$request{$host}{cred} = \@cred;
#################################
# Connect to the remote server
#################################
my @exp = xCAT::PPCcli::connect( $hwtype, $host, $verbose );
my @exp = xCAT::PPCcli::connect( \%request, $hwtype, $host );
if ( ref(@exp[0]) ne "Expect" ) {
return( @exp[0] );
}
@ -247,3 +258,4 @@ exit(0);