From 095552f4242cafc78c75bebba7f377148afe772c Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 27 May 2008 14:24:51 +0000
Subject: [PATCH] Fixed problem with xCAT::PPCcli::connect() parameters

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1498 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server-2.0/share/xcat/cons/hmc | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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);
 
 
 
+