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

add tabprune <table> -i function, prune on an recid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5674 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-04-05 19:44:12 +00:00
parent 298ed86f6c
commit 48ce35ed07
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -673,6 +673,12 @@ sub tabprune
if (defined $ALL ) {
$rc=tabprune_all($table,$cb);
}
if (defined $NUMBERENTRIES ) {
$rc=tabprune_numberentries($table,$cb,$NUMBERENTRIES);
}
if (defined $RECID ) {
$rc=tabprune_recid($table,$cb,$RECID);
}
my %rsp;
push @{$rsp{data}}, "tabprune of $table complete.";
$rsp{errorcode} = $rc;
@ -693,6 +699,42 @@ sub tabprune_all {
$tab->commit; # commit
return $rc;
}
# prune input number of records for the table TODO
# if number of entries > number than in the table, then remove all
#ub tabprune_numberentries {
# my $table = shift;
# my $cb = shift;
# my $numberentries = shift;
# my $rc=0;
# #my $tab = xCAT::Table->new($table, -create => 1, -autocommit => 0);
# #unless ($tab) {
# # $cb->({error => "Unable to open $table",errorcode=>4});
# # return 1;
# #}
# #$tab->commit; # commit
# return $rc;
#}
# prune all entries up to the record id input
# if rec id does not exist error
sub tabprune_recid {
my $table = shift;
my $cb = shift;
my $recid = shift;
my $rc=0;
my $tab = xCAT::Table->new($table, -create => 1, -autocommit => 0);
unless ($tab) {
$cb->({error => "Unable to open $table",errorcode=>4});
return 1;
}
my @ents=$tab->getAllAttribsWhere("recid<$recid", 'recid');
foreach my $rid (@ents) {
$tab->delEntries($rid);
}
$tab->commit;
return $rc;
}
sub getTableColumn {
my $string = shift;
if ($shortnames{$string}) {