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

provide a routine which can retrieve requested attributes that matching the specified options for a node

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11318 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhaoertao 2011-12-30 07:44:19 +00:00
parent fb510583ea
commit 504d6f443e
2 changed files with 70 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
perl-xCAT/xCAT/PPCdb.pm
View File

@ -798,7 +798,8 @@ sub credentials {
my $ent;
if ( $user_specified)
{ # need regx
($ent) = $tab->getAttribs( {hcp=>$server,username=>$user},qw(password));
#($ent) = $tab->getAttribs( {hcp=>$server,username=>$user},qw(password));
($ent) = $tab->getNodeSpecAttribs( $server, {username=>$user},qw(password));
}
else
{
@ -815,7 +816,8 @@ sub credentials {
{
if ( $user_specified)
{ # need regx
($ent) = $tab->getAllAttribs( {hcp=>$defaultgrp{$hwtype},username=>$user},qw(password));
#($ent) = $tab->getAllAttribs( {hcp=>$defaultgrp{$hwtype},username=>$user},qw(password));
($ent) = $tab->getNodeSpecAttribs( $defaultgrp{$hwtype}, {username=>$user},qw(password));
}
else
{

66
perl-xCAT/xCAT/Table.pm
View File

@ -2319,6 +2319,72 @@ sub getNodeAttribs
return wantarray ? @data : $data[0];
}
#--------------------------------------------------------------------------
=head3 getNodeSpecAttribs
Description: Retrieves the requested attributes which matching the specified options for a node
Arguments:
Noderange
The specified options
List of attributes
Return:
Attribute hash
Example:
my $tab = xCAT::Table->new('ppcdirect');
my $ent = $tab->getNodeSpecAttribs($node, {username=>'HMC'}, qw/password/);
Comments:
The keys of the specified options can be given in the list of attributes or not,
this routine will deal with them.
=cut
#--------------------------------------------------------------------------
sub getNodeSpecAttribs {
my $self = shift;
my $node = shift;
my %options = ();
my @attribs = ();
my @keys = ();
if (ref $_[0]) {
%options = %{shift()};
@attribs = @_;
foreach my $key (keys %options) {
if (!grep(/^$key$/, @attribs)) {
push @attribs, $key;
}
}
} else {
@attribs = @_;
}
if ((keys (%options)) == 0) {
my $ent = $self->getNodeAttribs($node, \@attribs);
return $ent;
} else {
my $nodekey = "node";
if (defined $xCAT::Schema::tabspec{$self->{tabname}}->{nodecol}) {
$nodekey = $xCAT::Schema::tabspec{$self->{tabname}}->{nodecol};
}
$options{$nodekey} = $node;
my $ent = $self->getAttribs(\%options, \@attribs);
if ($ent) {
return $ent;
}
my ($nodeghash) = $self->{nodelist}->getAttribs({node=>$node}, "groups");
unless(defined($nodeghash) && defined($nodeghash->{groups})) {
return undef;
}
my @nodegroups = split(/,/, $nodeghash->{groups});
foreach my $group (@nodegroups) {
$options{$nodekey} = $group;
my $g_ret = $self->getAttribs(\%options, \@attribs);
if ($g_ret) {
return $g_ret;
}
}
}
return undef;
}
#--------------------------------------------------------------------------
=head3 getNodeAttribs_nosub