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

The nodetype attr is now in the nodetype table and not the

Browse Source 
nodelist table.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@830 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott 2008-03-19 14:23:29 +00:00
parent 57d7118fcf
commit facbb5a71f
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
perl-xCAT-2.0/xCAT/PPCdb.pm
View File

@ -14,7 +14,7 @@ sub add_ppc {
my $hwtype = shift;
my $values = shift;
my @tabs = qw(ppc vpd nodehm nodelist);
my @tabs = qw(ppc vpd nodehm nodelist nodetype);
my %db = ();
###################################
@ -57,16 +57,24 @@ sub add_ppc {
# Update nodelist table
###########################
my ($k1,$u1);
my %nodetype = (
$k1->{node} = $name;
$u1->{groups} = lc($hwtype).",all";
$db{nodelist}->setAttribs( $k1,$u1 );
$db{nodelist}{commit} = 1;
###########################
# Update nodetype table
###########################
my ($k3,$u3);
my %nodetype = (
fsp => $::NODETYPE_FSP,
bpa => $::NODETYPE_BPA,
lpar =>"$::NODETYPE_LPAR,$::NODETYPE_OSI"
);
$k1->{node} = $name;
$u1->{groups} = lc($hwtype).",all";
$u1->{nodetype} = $nodetype{$type};
$db{nodelist}->setAttribs( $k1,$u1 );
$db{nodelist}{commit} = 1;
$k3->{node} = $name;
$u3->{nodetype} = $nodetype{$type};
$db{nodetype}->setAttribs( $k3,$u3 );
$db{nodetype}{commit} = 1;
###########################
# Update nodehm table