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

add options to also supply list of files to reorg. This is DB2 only

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9630 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2011-05-18 13:16:45 +00:00
parent 75246ea482
commit 814b400c01
1 changed files with 39 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
xCAT-server/share/xcat/tools/reorgtbls
View File

@ -29,26 +29,50 @@ use warnings;
# Then use runsqlcmd to run the reorg on the list of tables,
# allow read/write by other applications during reorg
#
GetOptions( 'V|verbose' => \$::VERBOSE );
my $cmd="$::XCATROOT/sbin/runsqlcmd \"select tabname from syscat.tables where TABSCHEMA='XCATDB';\"";
my @tablist = xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC != 0)
{
`logger -txcat " reorgdb2table:error in select tabname from syscat.tables"`; exit 1;
my $tablelist;
my $help;
my $cmd;
my @tablist;
GetOptions( 'V|verbose' => \$::VERBOSE,
't=s' => \$tablelist,
'h|help' => \$help,);
if ($help) {
print "DB2 Table Reorganization utility.\n";
print
"This script can be set as a cron job or run on the command line to reorg the xcatdb DB2 database tables.\n";
print "Usage:\n";
print "\t--V - Verbose mode\n";
print "\t--h - usage\n";
print
"\t--t -comma delimitated list of tables.\n Without this flag it reorgs all tables in the xcatdb database .\n";
print "\n";
exit 0;
}
if ($tablelist) { # input list of tables
@tablist=split(/\,/, $tablelist);
} else { # get all tables
$cmd="$::XCATROOT/sbin/runsqlcmd \"select tabname from syscat.tables where TABSCHEMA='XCATDB';\"";
@tablist = xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC != 0)
{
`logger -txcat " reorgdb2table:error in select tabname from syscat.tables"` ;
exit 1;
}
}
# reorg each table
my $foundheader=0;
foreach my $table (@tablist) {
chomp $table;
# skip lines untils we find the header
if ($foundheader==0) {
if ( !($table =~ /TABNAME/)) {
next;
} else {
$foundheader=1;
next;
# skip lines untils we find the header unless -t option
if (!($tablelist)) {
if ($foundheader==0) {
if ( !($table =~ /TABNAME/)) {
next;
} else {
$foundheader=1;
next;
}
}
}
# skip blanks and -- lines
@ -60,6 +84,7 @@ foreach my $table (@tablist) {
{
next;
}
$table =~ tr/a-z/A-Z/; # convert to upper
if ($::VERBOSE) {
print " Reorg of table $table\n";
}