moved insptbls

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15437 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2013-03-08 11:41:20 +00:00
parent 7ab0cf1ffd
commit 51d4c30e4a

View File

@ -0,0 +1,131 @@
#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
#
#####################################################
#
# This script will run an inspect on the DB2 tables
# It is dependent on the setup of DB2 by the db2sqlsetup script
# requires xCAT to be installed because it uses xCAT Perl libraries
# and xCAT commands
# The output is put in /tmp/<tablename all caps>.output
# for example /tmp/SITE.out
#
#####################################################
BEGIN
{
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
$::XCATDIR = $ENV{'XCATDIR'} ? $ENV{'XCATDIR'} : '/etc/xcat';
}
use lib "$::XCATROOT/lib/perl";
use xCAT::Utils;
use Getopt::Long;
use strict;
use warnings;
# Use runsqlcmd to run the SQL query to read the list of tables in
# the XCATDB schema
# Then use runsqlcmd to run the inspect on the list of tables,
#
my $tablelist;
my $help;
my $cmd;
my @tablist;
GetOptions( 'V|verbose' => \$::VERBOSE,
't=s' => \$tablelist,
'h|help' => \$help,);
if ($help) {
print "DB2 Table Inspect utility.\n";
print
"The script is run on the command line to inspect the xcatdb DB2 database tables.\n";
print "Output indicates whether compression should be set on the table.\n";
print "Output is put in /tmp/<tablename all caps>.output. For example /tmp/SITE.out.\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 inspects all tables in the xcatdb database .\n";
print "\n";
exit 0;
}
# check to see if running DB2
my $DBname = xCAT::Utils->get_DBName;
if ($DBname ne "DB2") {
print " Inspect of table only supported for DB2 database\n";
`logger -p local4.err -txcat "insptbls:Only supports DB2 database"` ;
exit 1;
}
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 -p local4.err -txcat " insptbls:error in select tabname from syscat.tables"` ;
exit 1;
}
}
# get xcatdb home directory
my $homedir = xCAT::Utils->getHomeDir("xcatdb");
my $execdir = $homedir;
$execdir .="\/sqllib\/db2dump\/";
#inspect each table
my $foundheader=0;
foreach my $table (@tablist) {
chomp $table;
# 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
$table =~ s/\s*//g; # remove blanks
if ($table =~ /^\s*$/) { # skip blanks
next;
}
if ($table =~ m/[^a-zA-Z0-9_]/) # skip non alphanumeric lines not underscore
{
next;
}
$table =~ tr/a-z/A-Z/; # convert to upper
if ($::VERBOSE) {
print "Inspect of table $table\n";
}
$cmd = " rm /tmp/$table.out"; # cleanup
xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC != 0)
{
`logger -p local4.warning -txcat " insptbls:error $cmd"`;
} else {
`logger -p local4.info -txcat " insptbls: $cmd"`;
}
$cmd="$::XCATROOT/sbin/runsqlcmd \"INSPECT ROWCOMPESTIMATE TABLE NAME $table results keep $table.res;\"";
xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC != 0)
{
`logger -p local4.warning -txcat " insptbls:error INSPECT ROWCOMPESTIMATE TABLE NAME $table"`;
} else {
`logger -p local4.info -txcat " insptbls: INSPECT ROWCOMPESTIMATE TABLE NAME $table"`;
}
$cmd=" \"db2inspf $execdir$table.res /tmp/$table.out;\"";
system("su - xcatdb -c $cmd");
if ($? > 0) # error
{
`logger -p local4.warning -txcat "insptbls:error db2inspf $table.res"`;
} else {
`logger -p local4.info -txcat " insptbls:db2inspf $table.res"`;
}
}
exit 0;