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

tabprune with table output

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5732 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-04-09 14:00:43 +00:00
parent 7bb245ceef
commit 9f6f525dc9
1 changed files with 12 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -551,26 +551,6 @@ sub tabdump
}
# Display all the rows of the table the order of the columns in the schema
output_table($table,$cb,$tabh,$recs);
#$tabdump_header->(@{$tabh->{colnames}});
#foreach $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);
}
# Prune records from the eventlog or auditlog or all records.
@ -789,12 +769,23 @@ sub tabprune_recid {
return 1;
}
my $DBname = xCAT::Utils->get_DBName;
# display the output
my @recs;
if ($VERBOSE) { # need to get all attributes
if ($DBname =~ /^DB2/) {
@recs=$tab->getAllAttribsWhere("\"recid\"<$recid", 'ALL');
} else {
@recs=$tab->getAllAttribsWhere("recid<$recid", 'ALL');
}
output_table($table,$cb,$tab,\@recs);
}
my @ents;
if ($DBname =~ /^DB2/) {
@ents=$tab->getAllAttribsWhere("\"recid\"<$recid", 'recid');
} else {
@ents=$tab->getAllAttribsWhere("recid<$recid", 'recid');
}
}
# delete them
foreach my $rid (@ents) {
$tab->delEntries($rid);
}