diff --git a/xCAT-server-2.0/share/xcat/cons/hmc b/xCAT-server-2.0/share/xcat/cons/hmc index 5e09aede6..9381611d9 100644 --- a/xCAT-server-2.0/share/xcat/cons/hmc +++ b/xCAT-server-2.0/share/xcat/cons/hmc @@ -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); +