moved insptbls

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15437 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2013-03-08 11:41:20 +00:00
parent 7ab0cf1ffd
commit 51d4c30e4a
1 changed files with 131 additions and 0 deletions
--- a/xCAT-server/share/xcat/scripts/insptbls
+++ b/xCAT-server/share/xcat/scripts/insptbls
@@ -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;