add XML getTablesNodeAttribs support

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13783 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

xCAT-server/lib/xcat/plugins/tabutils.pm

@@ -57,6 +57,7 @@ sub handled_commands
             getAllEntries    => "tabutils",
             getNodesAttribs  => "tabutils",
             getTablesAllNodeAttribs  => "tabutils",
+            getTablesNodeAttribs  => "tabutils",
             setNodesAttribs  => "tabutils",
             delEntries       => "tabutils",
             getAttribs       => "tabutils",
@@ -160,6 +161,10 @@ sub process_request
     {
         return getTablesAllNodeAttribs($request,$callback);
     }
+    elsif ($command eq "getTablesNodeAttribs")
+    {
+        return getTablesNodeAttribs($request,$callback);
+    }
     elsif ($command eq "setNodesAttribs")
     {
         return setNodesAttribs($request,$callback);
@@ -2368,7 +2373,9 @@ sub getNodesAttribs
          my %datseg=();
          $datseg{name} = [$node];
          foreach my $key (keys %$rec) {
+          if ($key ne "node") { # do not put in the added node attribute 
             $datseg{$key} = [$rec->{$key}];
+          }
          }
          push @{$noderecs{$node}}, \%datseg;
        }
@@ -2468,6 +2475,99 @@ sub getTablesAllNodeAttribs
        $cb->(\%rsp);
         return;
 }
+# getTablesNodeAttribs 
+# Read the nodes in the noderange from the input tables
+# and get the input attributes
+# or get ALL attributes, if the word ALL is used. 
+# If the <attr>ALL</attr> is input then read all the attributes
+#<xcatrequest>
+#<clienttype>PCM</clienttype>
+#<command>getTablesAllNodeAttribs</command>
+#<noderange>blade01-blade10</noderange>
+#<table>
+#<tablename>nodelist</tablename>
+#<attr>groups</attr>
+#<attr>status</attr>
+#</table>
+#<table>
+#<tablename>nodetype</tablename>
+#<attr>ALL</attr>
+#</table>
+#   .
+#   .
+#   .
+#</xcatrequest>
+#
+#<xcatresponse>
+#<table>
+#<tablename>tablename1</tablename>
+#<node>
+#<name>n1</name>
+#<attr1>value1</attr1>
+#<attr2>value1</attr2>
+#.
+#<attrN>valueN</attrN>
+#</node>
+#</table>
+#   .
+#   .
+#   .
+#</xcatresponse>
+#
+sub getTablesNodeAttribs 
+{
+    my $request      = shift;
+    my $cb = shift;
+    my $command  = $request->{command}->[0];
+    my %rsp;
+
+    # process each table in the request 
+    my $tables = $request->{table};
+    my $node    = $request->{node};
+    my @nodes=@$node;
+    foreach my $tabhash (@$tables) { 
+
+      my $tablename    = $tabhash->{tablename}->[0];
+      my $attr    = $tabhash->{attr};
+      my @attrs=@$attr;
+      my $tab=xCAT::Table->new($tablename);
+      my %noderecs;
+      my $recs;
+      # build the table name record
+      @{$noderecs{table}->[0]->{tablename}} = $tablename;
+      # if request for ALL attributes
+      if (grep (/ALL/,@attrs)) { # read the  schema and build array of all attrs
+        @attrs=();
+        my $schema = xCAT::Table->getTableSchema($tablename);
+        my $desc = $schema->{descriptions};
+        foreach my $c (@{$schema->{cols}}) {
+           # my $space = (length($c)<7 ? "\t\t" : "\t");
+            push @attrs, $c;
+        }
+      }
+      # read the nodes and their attributes in this table
+      my $rechash        =   $tab->getNodesAttribs(\@nodes,\@attrs);
+      foreach my $node (@nodes){
+       my $recs = $rechash->{$node};
+       foreach my $rec (@$recs) { 
+         my %datseg=();
+         $datseg{name} = [$node];
+         foreach my $key (keys %$rec) {
+          if ($key ne "node") { # do not put in the added node attribute 
+            $datseg{$key} = [$rec->{$key}];
+          }
+         }
+         push @{$noderecs{table}->[0]->{node}}, \%datseg;
+       }
+
+      }
+     push @{$rsp{"table"}}, @{$noderecs{table}};
+  } # end of all table processing 
+# for checkin XML created
+#my  $xmlrec=XMLout(\%rsp,RootName=>'xcatresponse',NoAttr=>1,KeyAttr=>[]);
+       $cb->(\%rsp);
+        return;
+}
 #
 # setNodesAttribs
 # Sets Nodes attributes for noderange for each of the tables supplied