From 9dec80d60b661f337465d79fd5f9f7496a713321 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 30 Jun 2008 13:51:44 +0000
Subject: [PATCH] -Check in unoptimized getNodesAttribs function for Table.pm

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

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index f4c0fc872..0ef103127 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -13,6 +13,7 @@ BEGIN
     $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr';
 }
 use lib "$::XCATROOT/lib/perl";
+my $cachethreshold=16; #How many nodes in 'getNodesAttribs' before switching to full DB retrieval
 
 use DBI;
 
@@ -871,6 +872,50 @@ sub setAttribsWhere
 
 
 
+#--------------------------------------------------------------------------
+
+=head3 getNodesAttribs
+
+    Description: Retrieves the requested attributes for a node list
+
+    Arguments:
+            Table handle ('self')
+			List ref of nodes
+	        Attribute type array
+    Returns:
+
+			two layer hash reference (->{nodename}->{attrib} 
+    Globals:
+
+    Error:
+
+    Example:
+           my $ostab = xCAT::Table->new('nodetype');
+		   my $ent = $ostab->getNodesAttribs(\@nodes,['profile','os','arch']);
+           if ($ent) { print $ent->{n1}->{profile}
+
+    Comments:
+        Using this function will clue the table layer into the atomic nature of the request, and allow shortcuts to be taken as appropriate to fulfill the request at scale.
+
+=cut
+
+#--------------------------------------------------------------------------------
+sub getNodesAttribs {
+    my $self = shift;
+    my $nodelist = shift;
+    my @attribs;
+    if (ref $_[0]) {
+        @attribs = @{shift()};
+    } else {
+        @attribs = @_;
+    }
+    my $rethash;
+    foreach (@$nodelist) {
+        $rethash->{$_} = $self->getNodeAttribs($_,\@attribs);
+    }
+    return $rethash;
+}
+
 #--------------------------------------------------------------------------
 
 =head3 getNodeAttribs