arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add get correct (username,password) pair for 'celogin'

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10011 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhaoertao 2011-07-05 13:16:53 +00:00
parent 8a164d7b5f
commit 9bace51802
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
perl-xCAT/xCAT/PPCfsp.pm
View File

@ -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
##################################