From 69f2a0db4a1c45d8f3e034431f2e15bcb9b7d121 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 18 Apr 2008 17:41:58 +0000
Subject: [PATCH] Changed nodelist "groups" attribute write to database to
(fsp|bpa|hmc|ivm|lpar,osi)
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1121 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
perl-xCAT-2.0/xCAT/PPCdb.pm | 25 +++++++++++++------------
1 file changed, 13 insertions(+), 12 deletions(-)
diff --git a/perl-xCAT-2.0/xCAT/PPCdb.pm b/perl-xCAT-2.0/xCAT/PPCdb.pm
index bc83c800a..85ba621e0 100644
--- a/perl-xCAT-2.0/xCAT/PPCdb.pm
+++ b/perl-xCAT-2.0/xCAT/PPCdb.pm
@@ -12,10 +12,17 @@ use xCAT::GlobalDef;
##########################################################################
sub add_ppc {
- my $hwtype = shift;
- my $values = shift;
- my @tabs = qw(ppc vpd nodehm nodelist nodetype);
- my %db = ();
+ my $hwtype = shift;
+ my $values = shift;
+ my @tabs = qw(ppc vpd nodehm nodelist nodetype);
+ my %db = ();
+ my %nodetype = (
+ fsp => $::NODETYPE_FSP,
+ bpa => $::NODETYPE_BPA,
+ lpar =>"$::NODETYPE_LPAR,$::NODETYPE_OSI",
+ hmc => $::NODETYPE_HMC,
+ ivm => $::NODETYPE_IVM,
+ );
###################################
# Open database needed
@@ -45,13 +52,6 @@ sub add_ppc {
###############################
if ( $type =~ /^(fsp|bpa|lpar|hmc|ivm)$/ ) {
my ($k,$u);
- my %nodetype = (
- fsp => $::NODETYPE_FSP,
- bpa => $::NODETYPE_BPA,
- lpar =>"$::NODETYPE_LPAR,$::NODETYPE_OSI",
- hmc => $::NODETYPE_HMC,
- ivm => $::NODETYPE_IVM,
- );
$k->{node} = $name;
$u->{nodetype} = $nodetype{$type};
$db{nodetype}->setAttribs( $k,$u );
@@ -75,7 +75,7 @@ sub add_ppc {
###########################
my ($k1,$u1);
$k1->{node} = $name;
- $u1->{groups} = lc($hwtype).",all";
+ $u1->{groups} = $nodetype{$type}.",all";
$db{nodelist}->setAttribs( $k1,$u1 );
$db{nodelist}{commit} = 1;
@@ -290,3 +290,4 @@ sub credentials {
+