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

put XML table routines in tabutils.pm

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12301 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-04-23 12:32:58 +00:00
parent 285c79265f
commit a2eff1840f
1 changed files with 148 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
xCAT-server/lib/xcat/plugins/tabutils.pm
View File

@ -54,6 +54,9 @@ sub handled_commands
nr => "tabutils", # not implemented yet
rnoderange => "tabutils", # not implemented yet
tabgrep => "tabutils",
getAllEntries => "tabutils",
getNodesAttribs => "tabutils",
setNodesAttribs => "tabutils",
gennr => "tabutils"
};
}
@ -140,6 +143,14 @@ sub process_request
elsif ($command eq "tabch"){
return tabch($request, $callback);
}
elsif ($command eq "getAllEntries")
{
return getAllEntries($request,$callback);
}
elsif ($command eq "getNodesAttribs")
{
return getNodesAttribs($request,$callback);
}
else
{
print "$command not implemented yet\n";
@ -2199,3 +2210,140 @@ else {
}
}
}
#
# getAllEntries
#
# Read all the rows from the input table name and returns the response, so
# that the XML will look like this
#<xcatresponse>
#<rowN>
#<attr1>value1</attr1>
#.
#.
#.
#<attrN>valueN</attrN>
#</rowN>
#.
#.
#.
#</xcatresponse>
#
#
sub getAllEntries
{
my $request = shift;
my $cb = shift;
my $command = $request->{command}->[0];
my $tablename = $request->{table}->[0];
my $tab=xCAT::Table->new($tablename);
my %rsp;
my $recs = $tab->getAllEntries("all");
unless (@$recs) # table exists, but is empty. Show header.
{
if (defined($xCAT::Schema::tabspec{$tablename}))
{
my $header = "#";
my @array =@{$xCAT::Schema::tabspec{$tablename}->{cols}};
foreach my $arow (@array) {
$header .= $arow;
$header .= ",";
}
chop $header;
push @{$rsp{row}}, $header;
$cb->(\%rsp);
return;
}
}
my %noderecs;
foreach my $rec (@$recs) {
my %datseg=();
foreach my $key (keys %$rec) {
#$datseg{$key} = [$rec->{$key}];
$datseg{$key} = $rec->{$key};
}
push @{$noderecs{"row"}}, \%datseg;
}
push @{$rsp{"row"}}, @{$noderecs{"row"}};
# for checkin XML created
#my $xmlrec=XMLout(\%rsp,RootName=>'xcatresponse',NoAttr=>1,KeyAttr=>[]);
$cb->(\%rsp);
return;
}
# getNodesAttribs
# Read all the array of attributes for the noderange from the input table.
#<xcatresponse>
#<node>
#<name> nodename </name>
#<attr1>value1</attr1>
#.
#.
#.
#<attrN>valueN</attrN>
#</node>
#.
#.
#.
#</xcatresponse>
#
#
sub getNodesAttribs
{
my $request = shift;
my $cb = shift;
my $node = $request->{node};
my $command = $request->{command}->[0];
my $tablename = $request->{table}->[0];
my $attr = $request->{attr};
my $tab=xCAT::Table->new($tablename);
my @nodes = @$node;
my @attrs= @$attr;
my %rsp;
my %noderecs;
my $rechash = $tab->getNodesAttribs(\@nodes,\@attrs);
foreach my $node (@nodes){
my %datseg=();
$datseg{name} = [$node];
my $recs = $rechash->{$node};
foreach my $rec (@$recs) {
foreach my $key (keys %$rec) {
$datseg{$key} = [$rec->{$key}];
}
push @{$noderecs{$node}}, \%datseg;
}
push @{$rsp{"node"}}, @{$noderecs{$node}};
}
# for checkin XML created
#my $xmlrec=XMLout(\%rsp,RootName=>'xcatresponse',NoAttr=>1,KeyAttr=>[]);
$cb->(\%rsp);
return;
}
# setNodesAttribs
# Sets the input attributes for the input list of nodes.
# Input
# Table
# Hash of nodes pointing to the attributes and values to change
#
sub setNodesAttribs
{
my $request = shift;
my $cb = shift;
my $node = $request->{node};
my $command = $request->{command}->[0];
my $tablename = $request->{table}->[0];
my $attr = $request->{attr};
my $tab=xCAT::Table->new($tablename);
my @nodes = @$node;
my @attrs= @$attr;
my %rsp;
my %noderecs;
# for checkin XML created
#my $xmlrec=XMLout(\%rsp,RootName=>'xcatresponse',NoAttr=>1,KeyAttr=>[]);
# $cb->(\%rsp);
return;
}