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

add tabprune -p support for percentage to delete

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5702 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-04-07 14:42:03 +00:00
parent add9cbbfc8
commit 72ed095ccb
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -674,7 +674,10 @@ sub tabprune
$rc=tabprune_all($table,$cb);
}
if (defined $NUMBERENTRIES ) {
$rc=tabprune_numberentries($table,$cb,$NUMBERENTRIES);
$rc=tabprune_numberentries($table,$cb,$NUMBERENTRIES,"n");
}
if (defined $PERCENT) {
$rc=tabprune_numberentries($table,$cb,$PERCENT,"p");
}
if (defined $RECID ) {
$rc=tabprune_recid($table,$cb,$RECID);
@ -700,12 +703,15 @@ sub tabprune_all {
return $rc;
}
# prune input number of records for the table TODO
# prune input number of records for the table
# if number of entries > number than in the table, then remove all
# this handles the number of records or percentage to delete
sub tabprune_numberentries {
my $table = shift;
my $cb = shift;
my $numberentries = shift;
my $numberentries = shift; # either number of entries or percent to
# remove based on the flag
my $flag = shift; # (n or p flag)
my $rc=0;
my $tab = xCAT::Table->new($table);
unless ($tab) {
@ -738,10 +744,22 @@ sub tabprune_numberentries {
$largerid=$rid;
}
}
#determine recid to delete all entries that come before like the -i flag
my $RECID= $smallrid->{recid} + $numberentries ;
my $RECID;
if ($flag eq "n") { # deleting number of records
#determine recid to delete all entries that come before like the -i flag
$RECID= $smallrid->{recid} + $numberentries ;
} else { # flag must be percentage
#take largest and smallest recid and percentage and determine the recid
# that will remove the requested percentage. If some are missing in the
# middle due to tabedit, we are not worried about it.
my $totalnumberrids = $largerid->{recid} - $smallrid->{recid} +1;
my $percent = $numberentries / 100;
my $percentage=$totalnumberrids * $percent ;
my $cnt=sprintf( "%d", $percentage ); # round to whole number
$RECID=$smallrid->{recid} + $cnt; # get recid to remove all before
}
$rc=tabprune_recid($table,$cb,$RECID);
return $rc;
}