From 5d7a09aa2e7c7910f81fa982458ac827735eab7f Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 18 Mar 2011 05:38:58 +0000
Subject: [PATCH] Modify credentials subroutine. Change finding fsp/bpa's
 password to finding CEC/Frame's.

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

diff --git a/perl-xCAT/xCAT/PPCdb.pm b/perl-xCAT/xCAT/PPCdb.pm
index f1edc3d75..3611846ec 100644
--- a/perl-xCAT/xCAT/PPCdb.pm
+++ b/perl-xCAT/xCAT/PPCdb.pm
@@ -731,6 +731,23 @@ sub credentials {
         $pass = @{$logon{$hwtype}}[1];
     }
 
+    ###########################################
+    # find parent for fsp/bpa, use parent's attributes first
+    ###########################################
+    my $ntype = xCAT::DBobjUtils->getnodetype($server);
+    if ($ntype =~ /^(fsp|bpa)$/)  {
+        my $ptab =  xCAT::Table->new('ppc');
+        if ($ptab)  {
+            my $parent = $ptab->getNodeAttribs($server, ["parent"]);
+            if ($parent and $parent->{parent})  {
+                my $ptype = xCAT::DBobjUtils->getnodetype($parent->{parent});
+                if (($ptype =~ /^cec$/ and $ntype =~ /^fsp$/) or ($ptype =~ /^frame$/ and $ntype =~ /^bpa$/))
+                {
+                    $server = $parent->{parent};
+                }
+            }
+        }
+    }
     ###########################################
     # Check passwd tab
     ###########################################