From 9bace51802abf81060f7d1011be90eaa52c0f9fd Mon Sep 17 00:00:00 2001 From: zhaoertao 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 ##################################