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

add verbose mode ( output change to tabprune... -a

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5704 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-04-07 17:51:37 +00:00
parent 4fb276fb28
commit 77e97cc1ed
1 changed files with 60 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -584,16 +584,17 @@ sub tabprune
my $ALL;
my $NUMBERENTRIES;
my $PERCENT;
my $VERBOSE;
my $RECID;
my $rc=0;
my $tabprune_usage = sub {
my $exitcode = shift @_;
my %rsp;
push @{$rsp{data}}, "Usage: tabprune [eventlog | auditlog] -a";
push @{$rsp{data}}, " tabprune [eventlog | auditlog] -n [# of records]";
push @{$rsp{data}}, " tabprune [eventlog | auditlog] -i [recid]";
push @{$rsp{data}}, " tabprune [eventlog | auditlog] -p [percentage]";
push @{$rsp{data}}, "Usage: tabprune <eventlog | auditlog> [-V] -a";
push @{$rsp{data}}, " tabprune <eventlog | auditlog> [-V] -n <# of records>";
push @{$rsp{data}}, " tabprune <eventlog | auditlog> [-V] -i <recid>";
push @{$rsp{data}}, " tabprune <eventlog | auditlog> [-V] -p <percent>";
push @{$rsp{data}}, " tabprune [-h|--help]";
push @{$rsp{data}}, " tabprune [-v|--version]";
if ($exitcode) { $rsp{errorcode} = $exitcode; }
@ -606,6 +607,7 @@ sub tabprune
}
if (!GetOptions('h|?|help' => \$HELP,
'v|version' => \$VERSION,
'V' => \$VERBOSE,
'p|percent=i' => \$PERCENT,
'i|recid=s' => \$RECID,
'a' => \$ALL,
@ -671,33 +673,41 @@ sub tabprune
}
if (defined $ALL ) {
$rc=tabprune_all($table,$cb);
$rc=tabprune_all($table,$cb,$VERBOSE);
}
if (defined $NUMBERENTRIES ) {
$rc=tabprune_numberentries($table,$cb,$NUMBERENTRIES,"n");
$rc=tabprune_numberentries($table,$cb,$NUMBERENTRIES,"n",$VERBOSE);
}
if (defined $PERCENT) {
$rc=tabprune_numberentries($table,$cb,$PERCENT,"p");
$rc=tabprune_numberentries($table,$cb,$PERCENT,"p",$VERBOSE);
}
if (defined $RECID ) {
$rc=tabprune_recid($table,$cb,$RECID);
$rc=tabprune_recid($table,$cb,$RECID,$VERBOSE);
}
if (!($VERBOSE)) { # not putting out changes
my %rsp;
push @{$rsp{data}}, "tabprune of $table complete.";
$rsp{errorcode} = $rc;
$cb->(\%rsp);
}
my %rsp;
push @{$rsp{data}}, "tabprune of $table complete.";
$rsp{errorcode} = $rc;
$cb->(\%rsp);
return $rc;
}
sub tabprune_all {
my $table = shift;
my $cb = shift;
my $VERBOSE = shift;
my $rc=0;
my $tab = xCAT::Table->new($table);
unless ($tab) {
$cb->({error => "Unable to open $table",errorcode=>4});
return 1;
}
if ($VERBOSE) { # will output change to std
my $recs = $tab->getAllEntries("all");
tabprune_verbose($table,$cb,$tab,$recs);
}
$tab->delEntries(); #Yes, delete *all* entries
$tab->commit; # commit
return $rc;
@ -712,6 +722,7 @@ sub tabprune_numberentries {
my $numberentries = shift; # either number of entries or percent to
# remove based on the flag
my $flag = shift; # (n or p flag)
my $VERBOSE = shift;
my $rc=0;
my $tab = xCAT::Table->new($table);
unless ($tab) {
@ -759,7 +770,7 @@ sub tabprune_numberentries {
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);
$rc=tabprune_recid($table,$cb,$RECID,$VERBOSE);
return $rc;
}
@ -769,6 +780,7 @@ sub tabprune_recid {
my $table = shift;
my $cb = shift;
my $recid = shift;
my $VERBOSE = shift;
my $rc=0;
# check which database so can build the correct Where clause
my $tab = xCAT::Table->new($table);
@ -790,6 +802,41 @@ sub tabprune_recid {
return $rc;
}
# If Verbose, return the records that will be deleted to stdout.
sub tabprune_verbose {
my $table = shift;
my $cb = shift;
my $tabh=shift;
my $recs=shift;
my %rsp;
my $tabdump_header = sub {
my $header = "#" . join(",", @_);
push @{$rsp{data}}, $header;
};
# Display all the rows of the table in order of the columns in the schema
$tabdump_header->(@{$tabh->{colnames}});
foreach my $rec (@$recs)
{
my $line = '';
foreach (@{$tabh->{colnames}})
{
if (defined $rec->{$_})
{
$rec->{$_} =~ s/"/""/g;
$line = $line . '"' . $rec->{$_} . '",';
}
else
{
$line .= ',';
}
}
$line =~ s/,$//; # remove the extra comma at the end
push @{$rsp{data}}, $line;
}
$cb->(\%rsp);
return;
}
sub getTableColumn {
my $string = shift;
if ($shortnames{$string}) {