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

checkin some basic start for tabprune

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5630 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav
2010-03-31 14:07:19 +00:00
parent 989cc01846
commit d5a488523a
1 changed files with 62 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -35,6 +35,7 @@ sub handled_commands
return {
gettab => "tabutils",
tabdump => "tabutils",
tabprune => "tabutils",
tabrestore => "tabutils",
tabch => "tabutils", # not implemented yet
nodegrpch => "tabutils",
@@ -55,15 +56,6 @@ sub handled_commands
}
# Each cmd now returns its own usage inside its function
#my %usage = (
#nodech => "Usage: nodech <noderange> [table.column=value] [table.column=value] ...",
#nodeadd => "Usage: nodeadd <noderange> [table.column=value] [table.column=value] ...",
#noderm => "Usage: noderm <noderange>",
# the usage for tabdump is in the tabdump function
#tabdump => "Usage: tabdump <tablename>\n where <tablename> is one of the following:\n " . join("\n ", keys %xCAT::Schema::tabspec),
# the usage for tabrestore is in the tabrestore client cmd
#tabrestore => "Usage: tabrestore <tablename>.csv",
#);
#####################################################
# Process the command
@@ -126,6 +118,10 @@ sub process_request
{
return tabdump($args, $callback);
}
elsif ($command eq "tabprune")
{
return tabprune($args, $callback);
}
elsif ($command eq "gettab")
{
return gettab($request, $callback);
@@ -577,6 +573,63 @@ sub tabdump
$cb->(\%rsp);
}
# Prune a number of records from the eventlog or auditlog or all records.
# Only supports eventlog and auditlog
sub tabprune
{
my $args = shift;
my $cb = shift;
my $HELP;
my $VERSION;
my $ALL;
my $NUMBERENTRIES;
my $PERCENT;
my $RECID;
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}}, " tabprune [-?|-h|--help]";
push @{$rsp{data}}, " tabprune [-?|-v|--version]";
if ($exitcode) { $rsp{errorcode} = $exitcode; }
$cb->(\%rsp);
};
# Process arguments
if ($args) {
@ARGV = @{$args};
}
if (!GetOptions('h|?|help' => \$HELP,
'v|version' => \$VERSION,
'p|percent=i' => \$PERCENT,
'i|recid=s' => \$RECID,
'a' => \$ALL,
'n|number=i' => \$NUMBERENTRIES))
{ $tabprune_usage->(1); return; }
if ($HELP) { $tabprune_usage->(0); return; }
# Version
if ($VERSION) {
my %rsp;
my $version = xCAT::Utils->Version();
$rsp{data}->[0] = "$version";
$cb->(\%rsp);
return;
}
if (scalar(@ARGV)>1) { $tabprune_usage->(1); return; }
my $table = $ARGV[0];
my %rsp;
push @{$rsp{data}}, "tabprune $table complete";
$rsp{errorcode} = 0;
$cb->(\%rsp);
return;
}
sub getTableColumn {
my $string = shift;
if ($shortnames{$string}) {