From 4e4c3307d1b68e5209932b38869ffa9b7ff59f89 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 8 Apr 2011 03:28:01 +0000
Subject: [PATCH] Move credential to the hmc.pm

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9247 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/share/xcat/cons/hmc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/share/xcat/cons/hmc b/xCAT-server/share/xcat/cons/hmc
index 63c0c7ada..2673cf4af 100644
--- a/xCAT-server/share/xcat/cons/hmc
+++ b/xCAT-server/share/xcat/cons/hmc
@@ -40,7 +40,7 @@ require xCAT::Client;
 use strict;
 #use Getopt::Long;
 #use xCAT::Table;
-use xCAT::PPCdb;
+#use xCAT::PPCdb;
 use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
 use Data::Dumper;
 require File::Basename;
@@ -55,6 +55,8 @@ my $node;
 my $host;
 my $lparid;
 my $mtms;
+my @cred;
+my $credencial;
 
 ##########################################
 # Database errors
@@ -251,7 +253,8 @@ sub invoke_cmd {
     #################################
     # Get userid and password 
     #################################
-    my @cred = xCAT::PPCdb::credentials( $host, $hwtype );
+    #my @cred = xCAT::PPCdb::credentials( $host, $hwtype );
+    @cred = split(/,/, $credencial);
     $request{$host}{cred} = \@cred;
     #################################
     # Connect to the remote server
@@ -283,6 +286,7 @@ sub getans {
         $host = $rsp->{node}->[0]->{host}->[0];
         $lparid = $rsp->{node}->[0]->{lparid}->[0];
         $mtms = $rsp->{node}->[0]->{mtms}->[0];
+		$credencial = $rsp->{node}->[0]->{cred}->[0];
     }
 }