~knielsen/ourdelta/bug_484127_484120_2

#!/usr/bin/perl -w

 

# http://hackmysql.com/mysqlreport

 

# mysqlreport makes an easy-to-read report of important MySQL status values.

my %mycnf; # ~/.my.cnf

my ($tmpfile_fh, $tmpfile);

my ($stat_name, $stat_val, $stat_label);

my (%stats, %vars); # SHOW STATUS, SHOW VARIABLES

my (%DMS_vals, %Com_vals, %ib_vals);

my ($dbh, $query);

$op{'com'} ||= 3;

$op{'c'}   ||= 1; # Used in collect_reports() if --r given integer value

 

if(defined $op{'r'})

{

   else       { $relative_infiles = 1; }

}

 

# The report is written to a tmp file first.

# Later it will be moved to $op{'outfile'} or emailed $op{'email'} if needed.

 

if($op{'detach'})

{

select $tmpfile_fh;

$| = 1 if ($op{'detach'} || $relative_live);

 

# Connect to MySQL

if(!$op{'infile'} && !$relative_infiles)

{

}

 

$have_innodb_vals = 1; # This might be set to 0 later in get_MySQL_version()

sub show_help_and_exit

{

   print <<"HELP";

mysqlreport makes an easy-to-read report of important MySQL status values.

 

Command line options (abbreviations work):

 

sub get_user_mycnf

{

   return if $WIN;

   open MYCNF, "$ENV{HOME}/.my.cnf" or return;

   while(<MYCNF>)

   close MYCNF;

}

 

sub collect_reports

{

   my $i;

 

   get_vals();

 

   for($i = 0; $i < $op{'c'}; $i++)

   {

      sleep($op{'r'});

 

      print "\n#\n# Interval report " , $i + 1 , ", +", sec_to_dhms(($i + 1) * $op{'r'}), "\n#\n";

 

      get_vals();

 

sub read_relative_infiles

{

   my $slurp;    # Used to check infiles for multiple sets of status values

   my $n_stats;  # Number of multiple sets of status values in an infile

   my $infile;

         for($i = 0; $i < $n_stats; $i++)

         {

            my ($fh, $name) = tempfile()

 

            push(@tmpfile_fh, $fh);

            push(@tmpfile_name, $name);

 

         }

 

         $i = 0;

 

         select $tmpfile_fh[$i];

 

         open INFILE, "< $infile" or warn and next;

         while(<INFILE>)

         {

            next if /^\+/;

            next if /^$/;

 

 

            if(/Aborted_clients/)

            {

               select $tmpfile_fh[++$i];

            }

         }

         close INFILE;

 

         {

            close $tmpfile_fh[$i];

 

            read_infile($tmpfile_name[$i]);

            relative_infile_report($report_n++);

 

            if($WIN) { `del $tmpfile_name[$i]`;   }

            else     { `rm -f $tmpfile_name[$i]`; }

 

               if $op{debug};

         }

 

 

sub relative_infile_report

{

   my $report_n = shift;

 

   if($report_n == 1)

 

sub get_vals

{

   my @row;

 

   # Get status values

   {

      $query = $dbh->prepare("SHOW GLOBAL STATUS;");

   }

 

sub get_vars

{

   my @row;

 

   # Get server system variables

   while(@row = $query->fetchrow_array()) { $vars{$row[0]} = $row[1]; }

 

   # table_cache was renamed to table_open_cache in MySQL 5.1.3

   {

      $vars{'table_cache'} = $vars{'table_open_cache'};

   }

 

sub read_infile

{

   my $infile = shift;

 

   $vars{'version'} = "0.0.0"         if !exists $vars{'version'};

   $vars{'table_cache'} = 64          if !exists $vars{'table_cache'};

   $vars{'max_connections'} = 100     if !exists $vars{'max_connections'};

   # One should also add:

   #    key_cache_block_size

   #    query_cache_size

   while(<INFILE>)

   {

      }

      else

      {

         print "read_infile: unrecognized line: '$_'\n" if $op{debug};

      }

   }

   close INFILE;

 

   $real_uptime = $stats{'Uptime'};

 

sub get_MySQL_version

{

 

   if($op{'infile'} || $relative_infiles)

   {

      ($major, $minor, $patch) = ($row[1] =~ /(\d{1,2})\.(\d{1,2})\.(\d{1,2})/);

   }

 

   # Innodb_ status values were added in 5.0.2

   {

      $have_innodb_vals = 0;

      print "get_MySQL_version: no InnoDB reports because MySQL version is older than 5.0.2\n" if $op{debug};

 

sub set_myisam_vals

{

   $questions = $stats{'Questions'};

 

   $key_read_ratio = sprintf "%.2f",

 

   $dms = $DMS_vals{SELECT} + $DMS_vals{INSERT} + $DMS_vals{REPLACE} + $DMS_vals{UPDATE} + $DMS_vals{DELETE};

 

 

}

 

sub set_ib_vals

{

   $ib_bp_used  = ($stats{'Innodb_buffer_pool_pages_total'} -

                   $stats{'Innodb_buffer_pool_pages_free'}) *

                   $stats{'Innodb_page_size'};

 

sub write_relative_report

{

}

 

sub write_report

{

   $~ = 'MYSQL_TIME', write;

   $~ = 'KEY_BUFF_MAX', write;

   if($key_buffer_usage != -1) { $~ = 'KEY_BUFF_USAGE', write }

   return $short;

}

 

sub perc # Percentage

{

   my($is, $of) = @_;

   return sprintf "%.2f", ($is * 100) / ($of ||= 1);

}

 

 

sub email_report # Email given report to $op{'email'}

{

   return if $WIN;

 

   my $report = shift;

 

sub cat_report # Print given report to screen

{

   my $report = shift;

   my @report;

 

 

sub get_Com_values

{

   %Com_vals = ();

 

   # Make copy of just the Com_ values

 

sub write_DTQ # Write DTQ report in descending order by values

{

   $~ = 'DTQ';

 

   my %DTQ;

 

sub write_DMS # Write DMS report in descending order by values

{

   $~ = 'DMS';

 

   for(sort { $DMS_vals{$b} <=> $DMS_vals{$a} } keys(%DMS_vals))

 

sub write_Com # Write COM report in descending order by values

{

   my $i = $op{'com'};

 

   $~ = 'COM_1';

 

sub write_qcache

{

   # Query cache was added in 4.0.1, but have_query_cache was added in 4.0.2,

   # ergo this method is slightly more reliable

   return if not exists $vars{'query_cache_size'};

 

sub write_InnoDB

{

 

   $~ = 'IB';

   write;

 

   # Innodb_row_lock_ values were added in MySQL 5.0.3

   {

      $~ = 'IB_LOCK';

      write;

 

sub exit_tasks_and_cleanup

{

   close $tmpfile_fh;

   select STDOUT unless $op{'detach'};

 

.

 

format SLOW_DMS =

$slow_query_t, make_short($stats{'Slow_queries'}), t($stats{'Slow_queries'}), perc($stats{'Slow_queries'}, $questions), perc($stats{'Slow_queries'}, $dms), $vars{'log_slow_queries'}

DMS         @>>>>>>>>  @>>>>>/s          @>>>>>

make_short($dms), t($dms), perc($dms, $questions)