From 9bace51802abf81060f7d1011be90eaa52c0f9fd Mon Sep 17 00:00:00 2001
From: zhaoertao <zhaoertao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 5 Jul 2011 13:16:53 +0000
Subject: [PATCH] add get correct (username,password) pair for 'celogin'

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10011 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCfsp.pm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCfsp.pm b/perl-xCAT/xCAT/PPCfsp.pm
index 116b7e14b..21af77560 100644
--- a/perl-xCAT/xCAT/PPCfsp.pm
+++ b/perl-xCAT/xCAT/PPCfsp.pm
@@ -83,14 +83,6 @@ sub handler {
 ##########################################################################
 # Logon through remote FSP HTTP-interface
 ##########################################################################
-my %logonname = (
-        hmc   => ["hscroot","abc123"],
-        ivm   => ["padmin", "padmin"],
-        fsp   => ["admin",  "admin"],
-        bpa   => ["admin",  "admin"],
-        frame => ["admin",  "admin"],    
-        cec   => ["admin",  "admin"], 
-        );
 sub connect {
 
     my $req     = shift;
@@ -108,7 +100,13 @@ sub connect {
     ##################################
     # Get userid/password 
     ##################################
-    my $cred = $req->{$server}{cred};
+    my $cred = undef;
+    if (($req->{dev} eq '1') or ($req->{command} eq 'rpower')) {
+        my @cred_array = xCAT::PPCdb::credentials($server, $req->{hwtype}, "celogin");
+        $cred = \@cred_array;
+    } else {
+        $cred = $req->{$server}{cred};
+    }
     ##################################
     # Redirect STDERR to variable 
     ##################################