Merge lp:~abychko/percona-server/bug1032139-5.5 into lp:percona-server/5.5

[Alexey Bychko]

merge from 5.1
[-] removed innotop and its InnoDBParser perl package from source and debian installation

[Alexey Kopytov (akopytov)]

review: Approve

=== removed directory 'build/debian/additions/innotop'
=== removed file 'build/debian/additions/innotop/InnoDBParser.pm'
--- build/debian/additions/innotop/InnoDBParser.pm	2011-02-03 14:34:49 +0000
+++ build/debian/additions/innotop/InnoDBParser.pm	1970-01-01 00:00:00 +0000
@@ -1,1089 +0,0 @@
-use strict;
-use warnings FATAL => 'all';
-
-package InnoDBParser;
-
-# This program is copyright (c) 2006 Baron Schwartz, baron at xaprb dot com.
-# Feedback and improvements are gratefully received.
-#
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program is free software; you can redistribute it and/or modify it under
-# the terms of the GNU General Public License as published by the Free Software
-# Foundation, version 2; OR the Perl Artistic License.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA
-
-our $VERSION = '1.6.0';
-
-use Data::Dumper;
-$Data::Dumper::Sortkeys = 1;
-use English qw(-no_match_vars);
-use List::Util qw(max);
-
-# Some common patterns
-my $d  = qr/(\d+)/;                    # Digit
-my $f  = qr/(\d+\.\d+)/;               # Float
-my $t  = qr/(\d+ \d+)/;                # Transaction ID
-my $i  = qr/((?:\d{1,3}\.){3}\d+)/;    # IP address
-my $n  = qr/([^`\s]+)/;                # MySQL object name
-my $w  = qr/(\w+)/;                    # Words
-my $fl = qr/([\w\.\/]+) line $d/;      # Filename and line number
-my $h  = qr/((?:0x)?[0-9a-f]*)/;       # Hex
-my $s  = qr/(\d{6} .\d:\d\d:\d\d)/;    # InnoDB timestamp
-
-# If you update this variable, also update the SYNOPSIS in the pod.
-my %innodb_section_headers = (
-   "TRANSACTIONS"                          => "tx",
-   "BUFFER POOL AND MEMORY"                => "bp",
-   "SEMAPHORES"                            => "sm",
-   "LOG"                                   => "lg",
-   "ROW OPERATIONS"                        => "ro",
-   "INSERT BUFFER AND ADAPTIVE HASH INDEX" => "ib",
-   "FILE I/O"                              => "io",
-   "LATEST DETECTED DEADLOCK"              => "dl",
-   "LATEST FOREIGN KEY ERROR"              => "fk",
-);
-
-my %parser_for = (
-   tx => \&parse_tx_section,
-   bp => \&parse_bp_section,
-   sm => \&parse_sm_section,
-   lg => \&parse_lg_section,
-   ro => \&parse_ro_section,
-   ib => \&parse_ib_section,
-   io => \&parse_io_section,
-   dl => \&parse_dl_section,
-   fk => \&parse_fk_section,
-);
-
-my %fk_parser_for = (
-   Transaction => \&parse_fk_transaction_error,
-   Error       => \&parse_fk_bad_constraint_error,
-   Cannot      => \&parse_fk_cant_drop_parent_error,
-);
-
-# A thread's proc_info can be at least 98 different things I've found in the
-# source.  Fortunately, most of them begin with a gerunded verb.  These are
-# the ones that don't.
-my %is_proc_info = (
-   'After create'                 => 1,
-   'Execution of init_command'    => 1,
-   'FULLTEXT initialization'      => 1,
-   'Reopen tables'                => 1,
-   'Repair done'                  => 1,
-   'Repair with keycache'         => 1,
-   'System lock'                  => 1,
-   'Table lock'                   => 1,
-   'Thread initialized'           => 1,
-   'User lock'                    => 1,
-   'copy to tmp table'            => 1,
-   'discard_or_import_tablespace' => 1,
-   'end'                          => 1,
-   'got handler lock'             => 1,
-   'got old table'                => 1,
-   'init'                         => 1,
-   'key cache'                    => 1,
-   'locks'                        => 1,
-   'malloc'                       => 1,
-   'query end'                    => 1,
-   'rename result table'          => 1,
-   'rename'                       => 1,
-   'setup'                        => 1,
-   'statistics'                   => 1,
-   'status'                       => 1,
-   'table cache'                  => 1,
-   'update'                       => 1,
-);
-
-sub new {
-   bless {}, shift;
-}
-
-# Parse the status and return it.
-# See srv_printf_innodb_monitor in innobase/srv/srv0srv.c
-# Pass in the text to parse, whether to be in debugging mode, which sections
-# to parse (hashref; if empty, parse all), and whether to parse full info from
-# locks and such (probably shouldn't unless you need to).
-sub parse_status_text {
-   my ( $self, $fulltext, $debug, $sections, $full ) = @_;
-
-   die "I can't parse undef" unless defined $fulltext;
-   $fulltext =~ s/[\r\n]+/\n/g;
-
-   $sections ||= {};
-   die '$sections must be a hashref' unless ref($sections) eq 'HASH';
-
-   my %innodb_data = (
-      got_all   => 0,         # Whether I was able to get the whole thing
-      ts        => '',        # Timestamp the server put on it
-      last_secs => 0,         # Num seconds the averages are over
-      sections  => {},        # Parsed values from each section
-   );
-
-   if ( $debug ) {
-      $innodb_data{'fulltext'} = $fulltext;
-   }
-
-   # Get the most basic info about the status: beginning and end, and whether
-   # I got the whole thing (if there has been a big deadlock and there are
-   # too many locks to print, the output might be truncated)
-   my ( $time_text ) = $fulltext =~ m/^$s INNODB MONITOR OUTPUT$/m;
-   $innodb_data{'ts'} = [ parse_innodb_timestamp( $time_text ) ];
-   $innodb_data{'timestring'} = ts_to_string($innodb_data{'ts'});
-   ( $innodb_data{'last_secs'} ) = $fulltext
-      =~ m/Per second averages calculated from the last $d seconds/;
-
-   ( my $got_all ) = $fulltext =~ m/END OF INNODB MONITOR OUTPUT/;
-   $innodb_data{'got_all'} = $got_all || 0;
-
-   # Split it into sections.  Each section begins with
-   # -----
-   # LABEL
-   # -----
-   my %innodb_sections;
-   my @matches = $fulltext
-      =~ m#\n(---+)\n([A-Z /]+)\n\1\n(.*?)(?=\n(---+)\n[A-Z /]+\n\4\n|$)#gs;
-   while ( my ( $start, $name, $text, $end ) = splice(@matches, 0, 4) ) {
-      $innodb_sections{$name} = [ $text, $end ? 1 : 0 ];
-   }
-   # The Row Operations section is a special case, because instead of ending
-   # with the beginning of another section, it ends with the end of the file.
-   # So this section is complete if the entire file is complete.
-   $innodb_sections{'ROW OPERATIONS'}->[1] ||= $innodb_data{'got_all'};
-
-   # Just for sanity's sake, make sure I understand what to do with each
-   # section
-   eval {
-      foreach my $section ( keys %innodb_sections ) {
-         my $header = $innodb_section_headers{$section};
-         die "Unknown section $section in $fulltext\n"
-            unless $header;
-         $innodb_data{'sections'}->{ $header }
-            ->{'fulltext'} = $innodb_sections{$section}->[0];
-         $innodb_data{'sections'}->{ $header }
-            ->{'complete'} = $innodb_sections{$section}->[1];
-      }
-   };
-   if ( $EVAL_ERROR ) {
-      _debug( $debug, $EVAL_ERROR);
-   }
-
-   # ################################################################
-   # Parse the detailed data out of the sections.
-   # ################################################################
-   eval {
-      foreach my $section ( keys %parser_for ) {
-         if ( defined $innodb_data{'sections'}->{$section}
-               && (!%$sections || (defined($sections->{$section} && $sections->{$section})) )) {
-            $parser_for{$section}->(
-                  $innodb_data{'sections'}->{$section},
-                  $innodb_data{'sections'}->{$section}->{'complete'},
-                  $debug,
-                  $full )
-               or delete $innodb_data{'sections'}->{$section};
-         }
-         else {
-            delete $innodb_data{'sections'}->{$section};
-         }
-      }
-   };
-   if ( $EVAL_ERROR ) {
-      _debug( $debug, $EVAL_ERROR);
-   }
-
-   return \%innodb_data;
-}
-
-# Parses the status text and returns it flattened out as a single hash.
-sub get_status_hash {
-   my ( $self, $fulltext, $debug, $sections, $full ) = @_;
-
-   # Parse the status text...
-   my $innodb_status
-      = $self->parse_status_text($fulltext, $debug, $sections, $full );
-
-   # Flatten the hierarchical structure into a single list by grabbing desired
-   # sections from it.
-   return
-      (map { 'IB_' . $_ => $innodb_status->{$_} } qw(timestring last_secs got_all)),
-      (map { 'IB_bp_' . $_ => $innodb_status->{'sections'}->{'bp'}->{$_} }
-         qw( writes_pending buf_pool_hit_rate total_mem_alloc buf_pool_reads
-            awe_mem_alloc pages_modified writes_pending_lru page_creates_sec
-            reads_pending pages_total buf_pool_hits writes_pending_single_page
-            page_writes_sec pages_read pages_written page_reads_sec
-            writes_pending_flush_list buf_pool_size add_pool_alloc
-            dict_mem_alloc pages_created buf_free complete )),
-      (map { 'IB_tx_' . $_ => $innodb_status->{'sections'}->{'tx'}->{$_} }
-         qw( num_lock_structs history_list_len purge_done_for transactions
-            purge_undo_for is_truncated trx_id_counter complete )),
-      (map { 'IB_ib_' . $_ => $innodb_status->{'sections'}->{'ib'}->{$_} }
-         qw( hash_table_size hash_searches_s non_hash_searches_s
-            bufs_in_node_heap used_cells size free_list_len seg_size inserts
-            merged_recs merges complete )),
-      (map { 'IB_lg_' . $_ => $innodb_status->{'sections'}->{'lg'}->{$_} }
-         qw( log_ios_done pending_chkp_writes last_chkp log_ios_s
-            log_flushed_to log_seq_no pending_log_writes complete )),
-      (map { 'IB_sm_' . $_ => $innodb_status->{'sections'}->{'sm'}->{$_} }
-         qw( wait_array_size rw_shared_spins rw_excl_os_waits mutex_os_waits
-            mutex_spin_rounds mutex_spin_waits rw_excl_spins rw_shared_os_waits
-            waits signal_count reservation_count complete )),
-      (map { 'IB_ro_' . $_ => $innodb_status->{'sections'}->{'ro'}->{$_} }
-         qw( queries_in_queue n_reserved_extents main_thread_state
-         main_thread_proc_no main_thread_id read_sec del_sec upd_sec ins_sec
-         read_views_open num_rows_upd num_rows_ins num_rows_read
-         queries_inside num_rows_del complete )),
-      (map { 'IB_fk_' . $_ => $innodb_status->{'sections'}->{'fk'}->{$_} }
-         qw( trigger parent_table child_index parent_index attempted_op
-         child_db timestring fk_name records col_name reason txn parent_db
-         type child_table parent_col complete )),
-      (map { 'IB_io_' . $_ => $innodb_status->{'sections'}->{'io'}->{$_} }
-         qw( pending_buffer_pool_flushes pending_pwrites pending_preads
-         pending_normal_aio_reads fsyncs_s os_file_writes pending_sync_ios
-         reads_s flush_type avg_bytes_s pending_ibuf_aio_reads writes_s
-         threads os_file_reads pending_aio_writes pending_log_ios os_fsyncs
-         pending_log_flushes complete )),
-      (map { 'IB_dl_' . $_ => $innodb_status->{'sections'}->{'dl'}->{$_} }
-         qw( timestring rolled_back txns complete ));
-
-}
-
-sub ts_to_string {
-   my $parts = shift;
-   return sprintf('%02d-%02d-%02d %02d:%02d:%02d', @$parts);
-}
-
-sub parse_innodb_timestamp {
-   my $text = shift;
-   my ( $y, $m, $d, $h, $i, $s )
-      = $text =~ m/^(\d\d)(\d\d)(\d\d) +(\d+):(\d+):(\d+)$/;
-   die("Can't get timestamp from $text\n") unless $y;
-   $y += 2000;
-   return ( $y, $m, $d, $h, $i, $s );
-}
-
-sub parse_fk_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   my $fulltext = $section->{'fulltext'};
-
-   return 0 unless $fulltext;
-
-   my ( $ts, $type ) = $fulltext =~ m/^$s\s+(\w+)/m;
-   $section->{'ts'} = [ parse_innodb_timestamp( $ts ) ];
-   $section->{'timestring'} = ts_to_string($section->{'ts'});
-   $section->{'type'} = $type;
-
-   # Decide which type of FK error happened, and dispatch to the right parser.
-   if ( $type && $fk_parser_for{$type} ) {
-      $fk_parser_for{$type}->( $section, $complete, $debug, $fulltext, $full );
-   }
-
-   delete $section->{'fulltext'} unless $debug;
-
-   return 1;
-}
-
-sub parse_fk_cant_drop_parent_error {
-   my ( $section, $complete, $debug, $fulltext, $full ) = @_;
-
-   # Parse the parent/child table info out
-   @{$section}{ qw(attempted_op parent_db parent_table) } = $fulltext
-      =~ m{Cannot $w table `(.*)/(.*)`}m;
-   @{$section}{ qw(child_db child_table) } = $fulltext
-      =~ m{because it is referenced by `(.*)/(.*)`}m;
-
-   ( $section->{'reason'} ) = $fulltext =~ m/(Cannot .*)/s;
-   $section->{'reason'} =~ s/\n(?:InnoDB: )?/ /gm
-      if $section->{'reason'};
-
-   # Certain data may not be present.  Make them '' if not present.
-   map { $section->{$_} ||= "" }
-      qw(child_index fk_name col_name parent_col);
-}
-
-# See dict/dict0dict.c, function dict_foreign_error_report
-# I don't care much about these.  There are lots of different messages, and
-# they come from someone trying to create a foreign key, or similar
-# statements.  They aren't indicative of some transaction trying to insert,
-# delete or update data.  Sometimes it is possible to parse out a lot of
-# information about the tables and indexes involved, but often the message
-# contains the DDL string the user entered, which is way too much for this
-# module to try to handle.
-sub parse_fk_bad_constraint_error {
-   my ( $section, $complete, $debug, $fulltext, $full ) = @_;
-
-   # Parse the parent/child table and index info out
-   @{$section}{ qw(child_db child_table) } = $fulltext
-      =~ m{Error in foreign key constraint of table (.*)/(.*):$}m;
-   $section->{'attempted_op'} = 'DDL';
-
-   # FK name, parent info... if possible.
-   @{$section}{ qw(fk_name col_name parent_db parent_table parent_col) }
-      = $fulltext
-      =~ m/CONSTRAINT `?$n`? FOREIGN KEY \(`?$n`?\) REFERENCES (?:`?$n`?\.)?`?$n`? \(`?$n`?\)/;
-
-   if ( !defined($section->{'fk_name'}) ) {
-      # Try to parse SQL a user might have typed in a CREATE statement or such
-      @{$section}{ qw(col_name parent_db parent_table parent_col) }
-         = $fulltext
-         =~ m/FOREIGN\s+KEY\s*\(`?$n`?\)\s+REFERENCES\s+(?:`?$n`?\.)?`?$n`?\s*\(`?$n`?\)/i;
-   }
-   $section->{'parent_db'} ||= $section->{'child_db'};
-
-   # Name of the child index (index in the same table where the FK is, see
-   # definition of dict_foreign_struct in include/dict0mem.h, where it is
-   # called foreign_index, as opposed to referenced_index which is in the
-   # parent table.  This may not be possible to find.
-   @{$section}{ qw(child_index) } = $fulltext
-      =~ m/^The index in the foreign key in table is $n$/m;
-
-   @{$section}{ qw(reason) } = $fulltext =~ m/:\s*([^:]+)(?= Constraint:|$)/ms;
-   $section->{'reason'} =~ s/\s+/ /g
-      if $section->{'reason'};
-   
-   # Certain data may not be present.  Make them '' if not present.
-   map { $section->{$_} ||= "" }
-      qw(child_index fk_name col_name parent_table parent_col);
-}
-
-# see source file row/row0ins.c
-sub parse_fk_transaction_error {
-   my ( $section, $complete, $debug, $fulltext, $full ) = @_;
-
-   # Parse the txn info out
-   my ( $txn ) = $fulltext
-      =~ m/Transaction:\n(TRANSACTION.*)\nForeign key constraint fails/s;
-   if ( $txn ) {
-      $section->{'txn'} = parse_tx_text( $txn, $complete, $debug, $full );
-   }
-
-   # Parse the parent/child table and index info out.  There are two types: an
-   # update or a delete of a parent record leaves a child orphaned
-   # (row_ins_foreign_report_err), and an insert or update of a child record has
-   # no matching parent record (row_ins_foreign_report_add_err).
-
-   @{$section}{ qw(reason child_db child_table) }
-      = $fulltext =~ m{^(Foreign key constraint fails for table `(.*)/(.*)`:)$}m;
-
-   @{$section}{ qw(fk_name col_name parent_db parent_table parent_col) }
-      = $fulltext
-      =~ m/CONSTRAINT `$n` FOREIGN KEY \(`$n`\) REFERENCES (?:`$n`\.)?`$n` \(`$n`\)/;
-   $section->{'parent_db'} ||= $section->{'child_db'};
-
-   # Special case, which I don't know how to trigger, but see
-   # innobase/row/row0ins.c row_ins_check_foreign_constraint
-   if ( $fulltext =~ m/ibd file does not currently exist!/ ) {
-      my ( $attempted_op, $index, $records )
-         = $fulltext =~ m/^Trying to (add to index) `$n` tuple:\n(.*))?/sm;
-      $section->{'child_index'} = $index;
-      $section->{'attempted_op'} = $attempted_op || '';
-      if ( $records && $full ) {
-         ( $section->{'records'} )
-            = parse_innodb_record_dump( $records, $complete, $debug );
-      }
-      @{$section}{qw(parent_db parent_table)}
-         =~ m/^But the parent table `$n`\.`$n`$/m;
-   }
-   else {
-      my ( $attempted_op, $which, $index )
-         = $fulltext =~ m/^Trying to ([\w ]*) in (child|parent) table, in index `$n` tuple:$/m;
-      if ( $which ) {
-         $section->{$which . '_index'} = $index;
-         $section->{'attempted_op'} = $attempted_op || '';
-
-         # Parse out the related records in the other table.
-         my ( $search_index, $records );
-         if ( $which eq 'child' ) {
-            ( $search_index, $records ) = $fulltext
-               =~ m/^But in parent table [^,]*, in index `$n`,\nthe closest match we can find is record:\n(.*)/ms;
-            $section->{'parent_index'} = $search_index;
-         }
-         else {
-            ( $search_index, $records ) = $fulltext
-               =~ m/^But in child table [^,]*, in index `$n`, (?:the record is not available|there is a record:\n(.*))?/ms;
-            $section->{'child_index'} = $search_index;
-         }
-         if ( $records && $full ) {
-            $section->{'records'}
-               = parse_innodb_record_dump( $records, $complete, $debug );
-         }
-         else {
-            $section->{'records'} = '';
-         }
-      }
-   }
-
-   # Parse out the tuple trying to be updated, deleted or inserted.
-   my ( $trigger ) = $fulltext =~ m/^(DATA TUPLE: \d+ fields;\n.*)$/m;
-   if ( $trigger ) {
-      $section->{'trigger'} = parse_innodb_record_dump( $trigger, $complete, $debug );
-   }
-
-   # Certain data may not be present.  Make them '' if not present.
-   map { $section->{$_} ||= "" }
-      qw(child_index fk_name col_name parent_table parent_col);
-}
-
-# There are new-style and old-style record formats.  See rem/rem0rec.c
-# TODO: write some tests for this
-sub parse_innodb_record_dump {
-   my ( $dump, $complete, $debug ) = @_;
-   return undef unless $dump;
-
-   my $result = {};
-
-   if ( $dump =~ m/PHYSICAL RECORD/ ) {
-      my $style = $dump =~ m/compact format/ ? 'new' : 'old';
-      $result->{'style'} = $style;
-
-      # This is a new-style record.
-      if ( $style eq 'new' ) {
-         @{$result}{qw( heap_no type num_fields info_bits )}
-            = $dump
-            =~ m/^(?:Record lock, heap no $d )?([A-Z ]+): n_fields $d; compact format; info bits $d$/m;
-      }
-
-      # OK, it's old-style.  Unfortunately there are variations here too.
-      elsif ( $dump =~ m/-byte offs / ) {
-         # Older-old style.
-         @{$result}{qw( heap_no type num_fields byte_offset info_bits )}
-            = $dump
-            =~ m/^(?:Record lock, heap no $d )?([A-Z ]+): n_fields $d; $d-byte offs [A-Z]+; info bits $d$/m;
-            if ( $dump !~ m/-byte offs TRUE/ ) {
-               $result->{'byte_offset'} = 0;
-            }
-      }
-      else {
-         # Newer-old style.
-         @{$result}{qw( heap_no type num_fields byte_offset info_bits )}
-            = $dump
-            =~ m/^(?:Record lock, heap no $d )?([A-Z ]+): n_fields $d; $d-byte offsets; info bits $d$/m;
-      }
-
-   }
-   else {
-      $result->{'style'} = 'tuple';
-      @{$result}{qw( type num_fields )}
-         = $dump =~ m/^(DATA TUPLE): $d fields;$/m;
-   }
-
-   # Fill in default values for things that couldn't be parsed.
-   map { $result->{$_} ||= 0 }
-      qw(heap_no num_fields byte_offset info_bits);
-   map { $result->{$_} ||= '' }
-      qw(style type );
-
-   my @fields = $dump =~ m/ (\d+:.*?;?);(?=$| \d+:)/gm;
-   $result->{'fields'} = [ map { parse_field($_, $complete, $debug ) } @fields ];
-
-   return $result;
-}
-
-# New/old-style applies here.  See rem/rem0rec.c
-# $text should not include the leading space or the second trailing semicolon.
-sub parse_field {
-   my ( $text, $complete, $debug ) = @_;
-
-   # Sample fields:
-   # '4: SQL NULL, size 4 '
-   # '1: len 6; hex 000000005601; asc     V ;'
-   # '6: SQL NULL'
-   # '5: len 30; hex 687474703a2f2f7777772e737765657477617465722e636f6d2f73746f72; asc http://www.sweetwater.com/stor;...(truncated)'
-   my ( $id, $nullsize, $len, $hex, $asc, $truncated );
-   ( $id, $nullsize ) = $text =~ m/^$d: SQL NULL, size $d $/;
-   if ( !defined($id) ) {
-      ( $id ) = $text =~ m/^$d: SQL NULL$/;
-   }
-   if ( !defined($id) ) {
-      ( $id, $len, $hex, $asc, $truncated )
-         = $text =~ m/^$d: len $d; hex $h; asc (.*);(\.\.\.\(truncated\))?$/;
-   }
-
-   die "Could not parse this field: '$text'" unless defined $id;
-   return {
-      id    => $id,
-      len   => defined($len) ? $len : defined($nullsize) ? $nullsize : 0,
-      'hex' => defined($hex) ? $hex : '',
-      asc   => defined($asc) ? $asc : '',
-      trunc => $truncated ? 1 : 0,
-   };
-
-}
-
-sub parse_dl_section {
-   my ( $dl, $complete, $debug, $full ) = @_;
-   return unless $dl;
-   my $fulltext = $dl->{'fulltext'};
-   return 0 unless $fulltext;
-
-   my ( $ts ) = $fulltext =~ m/^$s$/m;
-   return 0 unless $ts;
-
-   $dl->{'ts'} = [ parse_innodb_timestamp( $ts ) ];
-   $dl->{'timestring'} = ts_to_string($dl->{'ts'});
-   $dl->{'txns'} = {};
-
-   my @sections
-      = $fulltext
-      =~ m{
-         ^\*{3}\s([^\n]*)  # *** (1) WAITING FOR THIS...
-         (.*?)             # Followed by anything, non-greedy
-         (?=(?:^\*{3})|\z) # Followed by another three stars or EOF
-      }gmsx;
-
-
-   # Loop through each section.  There are no assumptions about how many
-   # there are, who holds and wants what locks, and who gets rolled back.
-   while ( my ($header, $body) = splice(@sections, 0, 2) ) {
-      my ( $txn_id, $what ) = $header =~ m/^\($d\) (.*):$/;
-      next unless $txn_id;
-      $dl->{'txns'}->{$txn_id} ||= {};
-      my $txn = $dl->{'txns'}->{$txn_id};
-
-      if ( $what eq 'TRANSACTION' ) {
-         $txn->{'tx'} = parse_tx_text( $body, $complete, $debug, $full );
-      }
-      else {
-         push @{$txn->{'locks'}}, parse_innodb_record_locks( $body, $complete, $debug, $full );
-      }
-   }
-
-   @{ $dl }{ qw(rolled_back) }
-      = $fulltext =~ m/^\*\*\* WE ROLL BACK TRANSACTION \($d\)$/m;
-
-   # Make sure certain values aren't undef
-   map { $dl->{$_} ||= '' } qw(rolled_back);
-
-   delete $dl->{'fulltext'} unless $debug;
-   return 1;
-}
-
-sub parse_innodb_record_locks {
-   my ( $text, $complete, $debug, $full ) = @_;
-   my @result;
-
-   foreach my $lock ( $text =~ m/(^(?:RECORD|TABLE) LOCKS?.*$)/gm ) {
-      my $hash = {};
-      @{$hash}{ qw(lock_type space_id page_no n_bits index db table txn_id lock_mode) }
-         = $lock
-         =~ m{^(RECORD|TABLE) LOCKS? (?:space id $d page no $d n bits $d index `?$n`? of )?table `$n(?:/|`\.`)$n` trx id $t lock.mode (\S+)}m;
-      ( $hash->{'special'} )
-         = $lock =~ m/^(?:RECORD|TABLE) .*? locks (rec but not gap|gap before rec)/m;
-      $hash->{'insert_intention'}
-         = $lock =~ m/^(?:RECORD|TABLE) .*? insert intention/m ? 1 : 0;
-      $hash->{'waiting'}
-         = $lock =~ m/^(?:RECORD|TABLE) .*? waiting/m ? 1 : 0;
-
-      # Some things may not be in the text, so make sure they are not
-      # undef.
-      map { $hash->{$_} ||= 0 } qw(n_bits page_no space_id);
-      map { $hash->{$_} ||= "" } qw(index special);
-      push @result, $hash;
-   }
-
-   return @result;
-}
-
-sub parse_tx_text {
-   my ( $txn, $complete, $debug, $full ) = @_;
-
-   my ( $txn_id, $txn_status, $active_secs, $proc_no, $os_thread_id )
-      = $txn
-      =~ m/^(?:---)?TRANSACTION $t, (\D*?)(?: $d sec)?, (?:process no $d, )?OS thread id $d/m;
-   my ( $thread_status, $thread_decl_inside )
-      = $txn
-      =~ m/OS thread id \d+(?: ([^,]+?))?(?:, thread declared inside InnoDB $d)?$/m;
-
-   # Parsing the line that begins 'MySQL thread id' is complicated.  The only
-   # thing always in the line is the thread and query id.  See function
-   # innobase_mysql_print_thd in InnoDB source file sql/ha_innodb.cc.
-   my ( $thread_line ) = $txn =~ m/^(MySQL thread id .*)$/m;
-   my ( $mysql_thread_id, $query_id, $hostname, $ip, $user, $query_status );
-
-   if ( $thread_line ) {
-      # These parts can always be gotten.
-      ( $mysql_thread_id, $query_id ) = $thread_line =~ m/^MySQL thread id $d, query id $d/m;
-
-      # If it's a master/slave thread, "Has (read|sent) all" may be the thread's
-      # proc_info.  In these cases, there won't be any host/ip/user info
-      ( $query_status ) = $thread_line =~ m/(Has (?:read|sent) all .*$)/m;
-      if ( defined($query_status) ) {
-         $user = 'system user';
-      }
-
-      # It may be the case that the query id is the last thing in the line.
-      elsif ( $thread_line =~ m/query id \d+ / ) {
-         # The IP address is the only non-word thing left, so it's the most
-         # useful marker for where I have to start guessing.
-         ( $hostname, $ip ) = $thread_line =~ m/query id \d+(?: ([A-Za-z]\S+))? $i/m;
-         if ( defined $ip ) {
-            ( $user, $query_status ) = $thread_line =~ m/$ip $w(?: (.*))?$/;
-         }
-         else { # OK, there wasn't an IP address.
-            # There might not be ANYTHING except the query status.
-            ( $query_status ) = $thread_line =~ m/query id \d+ (.*)$/;
-            if ( $query_status !~ m/^\w+ing/ && !exists($is_proc_info{$query_status}) ) {
-               # The remaining tokens are, in order: hostname, user, query_status.
-               # It's basically impossible to know which is which.
-               ( $hostname, $user, $query_status ) = $thread_line
-                  =~ m/query id \d+(?: ([A-Za-z]\S+))?(?: $w(?: (.*))?)?$/m;
-            }
-            else {
-               $user = 'system user';
-            }
-         }
-      }
-   }
-
-   my ( $lock_wait_status, $lock_structs, $heap_size, $row_locks, $undo_log_entries )
-      = $txn
-      =~ m/^(?:(\D*) )?$d lock struct\(s\), heap size $d(?:, $d row lock\(s\))?(?:, undo log entries $d)?$/m;
-   my ( $lock_wait_time )
-      = $txn
-      =~ m/^------- TRX HAS BEEN WAITING $d SEC/m;
-
-   my $locks;
-   # If the transaction has locks, grab the locks.
-   if ( $txn =~ m/^TABLE LOCK|RECORD LOCKS/ ) {
-      $locks = [parse_innodb_record_locks($txn, $complete, $debug, $full)];
-   }
-   
-   my ( $tables_in_use, $tables_locked )
-      = $txn
-      =~ m/^mysql tables in use $d, locked $d$/m;
-   my ( $txn_doesnt_see_ge, $txn_sees_lt )
-      = $txn
-      =~ m/^Trx read view will not see trx with id >= $t, sees < $t$/m;
-   my $has_read_view = defined($txn_doesnt_see_ge);
-   # Only a certain number of bytes of the query text are included here, at least
-   # under some circumstances.  Some versions include 300, some 600.
-   my ( $query_text )
-      = $txn
-      =~ m{
-         ^MySQL\sthread\sid\s[^\n]+\n           # This comes before the query text
-         (.*?)                                  # The query text
-         (?=                                    # Followed by any of...
-            ^Trx\sread\sview
-            |^-------\sTRX\sHAS\sBEEN\sWAITING
-            |^TABLE\sLOCK
-            |^RECORD\sLOCKS\sspace\sid
-            |^(?:---)?TRANSACTION
-            |^\*\*\*\s\(\d\)
-            |\Z
-         )
-      }xms;
-   if ( $query_text ) {
-      $query_text =~ s/\s+$//;
-   }
-   else {
-      $query_text = '';
-   }
-
-   my %stuff = (
-      active_secs        => $active_secs,
-      has_read_view      => $has_read_view,
-      heap_size          => $heap_size,
-      hostname           => $hostname,
-      ip                 => $ip,
-      lock_structs       => $lock_structs,
-      lock_wait_status   => $lock_wait_status,
-      lock_wait_time     => $lock_wait_time,
-      mysql_thread_id    => $mysql_thread_id,
-      os_thread_id       => $os_thread_id,
-      proc_no            => $proc_no,
-      query_id           => $query_id,
-      query_status       => $query_status,
-      query_text         => $query_text,
-      row_locks          => $row_locks,
-      tables_in_use      => $tables_in_use,
-      tables_locked      => $tables_locked,
-      thread_decl_inside => $thread_decl_inside,
-      thread_status      => $thread_status,
-      txn_doesnt_see_ge  => $txn_doesnt_see_ge,
-      txn_id             => $txn_id,
-      txn_sees_lt        => $txn_sees_lt,
-      txn_status         => $txn_status,
-      undo_log_entries   => $undo_log_entries,
-      user               => $user,
-   );
-   $stuff{'fulltext'} = $txn if $debug;
-   $stuff{'locks'} = $locks if $locks;
-
-   # Some things may not be in the txn text, so make sure they are not
-   # undef.
-   map { $stuff{$_} ||= 0 } qw(active_secs heap_size lock_structs
-         tables_in_use undo_log_entries tables_locked has_read_view
-         thread_decl_inside lock_wait_time proc_no row_locks);
-   map { $stuff{$_} ||= "" } qw(thread_status txn_doesnt_see_ge
-         txn_sees_lt query_status ip query_text lock_wait_status user);
-   $stuff{'hostname'} ||= $stuff{'ip'};
-
-   return \%stuff;
-}
-
-sub parse_tx_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   return unless $section && $section->{'fulltext'};
-   my $fulltext = $section->{'fulltext'};
-   $section->{'transactions'} = [];
-
-   # Handle the individual transactions
-   my @transactions = $fulltext =~ m/(---TRANSACTION \d.*?)(?=\n---TRANSACTION|$)/gs;
-   foreach my $txn ( @transactions ) {
-      my $stuff = parse_tx_text( $txn, $complete, $debug, $full );
-      delete $stuff->{'fulltext'} unless $debug;
-      push @{$section->{'transactions'}}, $stuff;
-   }
-
-   # Handle the general info
-   @{$section}{ 'trx_id_counter' }
-      = $fulltext =~ m/^Trx id counter $t$/m;
-   @{$section}{ 'purge_done_for', 'purge_undo_for' }
-      = $fulltext =~ m/^Purge done for trx's n:o < $t undo n:o < $t$/m;
-   @{$section}{ 'history_list_len' } # This isn't present in some 4.x versions
-      = $fulltext =~ m/^History list length $d$/m;
-   @{$section}{ 'num_lock_structs' }
-      = $fulltext =~ m/^Total number of lock structs in row lock hash table $d$/m;
-   @{$section}{ 'is_truncated' }
-      = $fulltext =~ m/^\.\.\. truncated\.\.\.$/m ? 1 : 0;
-
-   # Fill in things that might not be present
-   foreach ( qw(history_list_len) ) {
-      $section->{$_} ||= 0;
-   }
-
-   delete $section->{'fulltext'} unless $debug;
-   return 1;
-}
-
-# I've read the source for this section.
-sub parse_ro_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   return unless $section && $section->{'fulltext'};
-   my $fulltext = $section->{'fulltext'};
-
-   # Grab the info
-   @{$section}{ 'queries_inside', 'queries_in_queue' }
-      = $fulltext =~ m/^$d queries inside InnoDB, $d queries in queue$/m;
-   ( $section->{ 'read_views_open' } )
-      = $fulltext =~ m/^$d read views open inside InnoDB$/m;
-   ( $section->{ 'n_reserved_extents' } )
-      = $fulltext =~ m/^$d tablespace extents now reserved for B-tree/m;
-   @{$section}{ 'main_thread_proc_no', 'main_thread_id', 'main_thread_state' }
-      = $fulltext =~ m/^Main thread (?:process no. $d, )?id $d, state: (.*)$/m;
-   @{$section}{ 'num_rows_ins', 'num_rows_upd', 'num_rows_del', 'num_rows_read' }
-      = $fulltext =~ m/^Number of rows inserted $d, updated $d, deleted $d, read $d$/m;
-   @{$section}{ 'ins_sec', 'upd_sec', 'del_sec', 'read_sec' }
-      = $fulltext =~ m#^$f inserts/s, $f updates/s, $f deletes/s, $f reads/s$#m;
-   $section->{'main_thread_proc_no'} ||= 0;
-
-   map { $section->{$_} ||= 0 } qw(read_views_open n_reserved_extents);
-   delete $section->{'fulltext'} unless $debug;
-   return 1;
-}
-
-sub parse_lg_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   return unless $section;
-   my $fulltext = $section->{'fulltext'};
-
-   # Grab the info
-   ( $section->{ 'log_seq_no' } )
-      = $fulltext =~ m/Log sequence number \s*(\d.*)$/m;
-   ( $section->{ 'log_flushed_to' } )
-      = $fulltext =~ m/Log flushed up to \s*(\d.*)$/m;
-   ( $section->{ 'last_chkp' } )
-      = $fulltext =~ m/Last checkpoint at \s*(\d.*)$/m;
-   @{$section}{ 'pending_log_writes', 'pending_chkp_writes' }
-      = $fulltext =~ m/$d pending log writes, $d pending chkp writes/;
-   @{$section}{ 'log_ios_done', 'log_ios_s' }
-      = $fulltext =~ m#$d log i/o's done, $f log i/o's/second#;
-
-   delete $section->{'fulltext'} unless $debug;
-   return 1;
-}
-
-sub parse_ib_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   return unless $section && $section->{'fulltext'};
-   my $fulltext = $section->{'fulltext'};
-
-   # Some servers will output ibuf information for tablespace 0, as though there
-   # might be many tablespaces with insert buffers.  (In practice I believe
-   # the source code shows there will only ever be one).  I have to parse both
-   # cases here, but I assume there will only be one.
-   @{$section}{ 'size', 'free_list_len', 'seg_size' }
-      = $fulltext =~ m/^Ibuf(?: for space 0)?: size $d, free list len $d, seg size $d,$/m;
-   @{$section}{ 'inserts', 'merged_recs', 'merges' }
-      = $fulltext =~ m/^$d inserts, $d merged recs, $d merges$/m;
-
-   @{$section}{ 'hash_table_size', 'used_cells', 'bufs_in_node_heap' }
-      = $fulltext =~ m/^Hash table size $d, used cells $d, node heap has $d buffer\(s\)$/m;
-   @{$section}{ 'hash_searches_s', 'non_hash_searches_s' }
-      = $fulltext =~ m{^$f hash searches/s, $f non-hash searches/s$}m;
-
-   delete $section->{'fulltext'} unless $debug;
-   return 1;
-}
-
-sub parse_wait_array {
-   my ( $text, $complete, $debug, $full ) = @_;
-   my %result;
-
-   @result{ qw(thread waited_at_filename waited_at_line waited_secs) }
-      = $text =~ m/^--Thread $d has waited at $fl for $f seconds/m;
-
-   # Depending on whether it's a SYNC_MUTEX,RW_LOCK_EX,RW_LOCK_SHARED,
-   # there will be different text output
-   if ( $text =~ m/^Mutex at/m ) {
-      $result{'request_type'} = 'M';
-      @result{ qw( lock_mem_addr lock_cfile_name lock_cline lock_var) }
-         = $text =~ m/^Mutex at $h created file $fl, lock var $d$/m;
-      @result{ qw( waiters_flag )}
-         = $text =~ m/^waiters flag $d$/m;
-   }
-   else {
-      @result{ qw( request_type lock_mem_addr lock_cfile_name lock_cline) }
-         = $text =~ m/^(.)-lock on RW-latch at $h created in file $fl$/m;
-      @result{ qw( writer_thread writer_lock_mode ) }
-         = $text =~ m/^a writer \(thread id $d\) has reserved it in mode  (.*)$/m;
-      @result{ qw( num_readers waiters_flag )}
-         = $text =~ m/^number of readers $d, waiters flag $d$/m;
-      @result{ qw(last_s_file_name last_s_line ) }
-         = $text =~ m/Last time read locked in file $fl$/m;
-      @result{ qw(last_x_file_name last_x_line ) }
-         = $text =~ m/Last time write locked in file $fl$/m;
-   }
-
-   $result{'cell_waiting'} = $text =~ m/^wait has ended$/m ? 0 : 1;
-   $result{'cell_event_set'} = $text =~ m/^wait is ending$/m ? 1 : 0;
-
-   # Because there are two code paths, some things won't get set.
-   map { $result{$_} ||= '' }
-      qw(last_s_file_name last_x_file_name writer_lock_mode);
-   map { $result{$_} ||= 0 }
-      qw(num_readers lock_var last_s_line last_x_line writer_thread);
-
-   return \%result;
-}
-
-sub parse_sm_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   return 0 unless $section && $section->{'fulltext'};
-   my $fulltext = $section->{'fulltext'};
-
-   # Grab the info
-   @{$section}{ 'reservation_count', 'signal_count' }
-      = $fulltext =~ m/^OS WAIT ARRAY INFO: reservation count $d, signal count $d$/m;
-   @{$section}{ 'mutex_spin_waits', 'mutex_spin_rounds', 'mutex_os_waits' }
-      = $fulltext =~ m/^Mutex spin waits $d, rounds $d, OS waits $d$/m;
-   @{$section}{ 'rw_shared_spins', 'rw_shared_os_waits', 'rw_excl_spins', 'rw_excl_os_waits' }
-      = $fulltext =~ m/^RW-shared spins $d, OS waits $d; RW-excl spins $d, OS waits $d$/m;
-
-   # Look for info on waits.
-   my @waits = $fulltext =~ m/^(--Thread.*?)^(?=Mutex spin|--Thread)/gms;
-   $section->{'waits'} = [ map { parse_wait_array($_, $complete, $debug) } @waits ];
-   $section->{'wait_array_size'} = scalar(@waits);
-
-   delete $section->{'fulltext'} unless $debug;
-   return 1;
-}
-
-# I've read the source for this section.
-sub parse_bp_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   return unless $section && $section->{'fulltext'};
-   my $fulltext = $section->{'fulltext'};
-
-   # Grab the info
-   @{$section}{ 'total_mem_alloc', 'add_pool_alloc' }
-      = $fulltext =~ m/^Total memory allocated $d; in additional pool allocated $d$/m;
-   @{$section}{'dict_mem_alloc'}     = $fulltext =~ m/Dictionary memory allocated $d/;
-   @{$section}{'awe_mem_alloc'}      = $fulltext =~ m/$d MB of AWE memory/;
-   @{$section}{'buf_pool_size'}      = $fulltext =~ m/^Buffer pool size\s*$d$/m;
-   @{$section}{'buf_free'}           = $fulltext =~ m/^Free buffers\s*$d$/m;
-   @{$section}{'pages_total'}        = $fulltext =~ m/^Database pages\s*$d$/m;
-   @{$section}{'pages_modified'}     = $fulltext =~ m/^Modified db pages\s*$d$/m;
-   @{$section}{'pages_read', 'pages_created', 'pages_written'}
-      = $fulltext =~ m/^Pages read $d, created $d, written $d$/m;
-   @{$section}{'page_reads_sec', 'page_creates_sec', 'page_writes_sec'}
-      = $fulltext =~ m{^$f reads/s, $f creates/s, $f writes/s$}m;
-   @{$section}{'buf_pool_hits', 'buf_pool_reads'}
-      = $fulltext =~ m{Buffer pool hit rate $d / $d$}m;
-   if ($fulltext =~ m/^No buffer pool page gets since the last printout$/m) {
-      @{$section}{'buf_pool_hits', 'buf_pool_reads'} = (0, 0);
-      @{$section}{'buf_pool_hit_rate'} = '--';
-   }
-   else {
-      @{$section}{'buf_pool_hit_rate'}
-         = $fulltext =~ m{Buffer pool hit rate (\d+ / \d+)$}m;
-   }
-   @{$section}{'reads_pending'} = $fulltext =~ m/^Pending reads $d/m;
-   @{$section}{'writes_pending_lru', 'writes_pending_flush_list', 'writes_pending_single_page' }
-      = $fulltext =~ m/^Pending writes: LRU $d, flush list $d, single page $d$/m;
-
-   map { $section->{$_} ||= 0 }
-      qw(writes_pending_lru writes_pending_flush_list writes_pending_single_page
-      awe_mem_alloc dict_mem_alloc);
-   @{$section}{'writes_pending'} = List::Util::sum(
-      @{$section}{ qw(writes_pending_lru writes_pending_flush_list writes_pending_single_page) });
-
-   delete $section->{'fulltext'} unless $debug;
-   return 1;
-}
-
-# I've read the source for this.
-sub parse_io_section {
-   my ( $section, $complete, $debug, $full ) = @_;
-   return unless $section && $section->{'fulltext'};
-   my $fulltext = $section->{'fulltext'};
-   $section->{'threads'} = {};
-
-   # Grab the I/O thread info
-   my @threads = $fulltext =~ m<^(I/O thread \d+ .*)$>gm;
-   foreach my $thread (@threads) {
-      my ( $tid, $state, $purpose, $event_set )
-         = $thread =~ m{I/O thread $d state: (.+?) \((.*)\)(?: ev set)?$}m;
-      if ( defined $tid ) {
-         $section->{'threads'}->{$tid} = {
-            thread    => $tid,
-            state     => $state,
-            purpose   => $purpose,
-            event_set => $event_set ? 1 : 0,
-         };
-      }
-   }
-
-   # Grab the reads/writes/flushes info
-   @{$section}{ 'pending_normal_aio_reads', 'pending_aio_writes' }
-      = $fulltext =~ m/^Pending normal aio reads: $d, aio writes: $d,$/m;
-   @{$section}{ 'pending_ibuf_aio_reads', 'pending_log_ios', 'pending_sync_ios' }
-      = $fulltext =~ m{^ ibuf aio reads: $d, log i/o's: $d, sync i/o's: $d$}m;
-   @{$section}{ 'flush_type', 'pending_log_flushes', 'pending_buffer_pool_flushes' }
-      = $fulltext =~ m/^Pending flushes \($w\) log: $d; buffer pool: $d$/m;
-   @{$section}{ 'os_file_reads', 'os_file_writes', 'os_fsyncs' }
-      = $fulltext =~ m/^$d OS file reads, $d OS file writes, $d OS fsyncs$/m;
-   @{$section}{ 'reads_s', 'avg_bytes_s', 'writes_s', 'fsyncs_s' }
-      = $fulltext =~ m{^$f reads/s, $d avg bytes/read, $f writes/s, $f fsyncs/s$}m;
-   @{$section}{ 'pending_preads', 'pending_pwrites' }
-      = $fulltext =~ m/$d pending preads, $d pending pwrites$/m;
-   @{$section}{ 'pending_preads', 'pending_pwrites' } = (0, 0)
-      unless defined($section->{'pending_preads'});
-
-   delete $section->{'fulltext'} unless $debug;
-   return 1;
-}
-
-sub _debug {
-   my ( $debug, $msg ) = @_;
-   if ( $debug ) {
-      die $msg;
-   }
-   else {
-      warn $msg;
-   }
-   return 1;
-}
-
-1;
-
-# end_of_package
-# ############################################################################
-# Perldoc section.  I put this last as per the Dog book.
-# ############################################################################
-=pod
-
-=head1 NAME
-
-InnoDBParser - Parse InnoDB monitor text.
-
-=head1 DESCRIPTION
-
-InnoDBParser tries to parse the output of the InnoDB monitor.  One way to get
-this output is to connect to a MySQL server and issue the command SHOW ENGINE
-INNODB STATUS (omit 'ENGINE' on earlier versions of MySQL).  The goal is to
-turn text into data that something else (e.g. innotop) can use.
-
-The output comes from all over, but the place to start in the source is
-innobase/srv/srv0srv.c.
-
-=head1 SYNOPSIS
-
-   use InnoDBParser;
-   use DBI;
-
-   # Get the status text.
-   my $dbh = DBI->connect(
-      "DBI::mysql:test;host=localhost",
-      'user',
-      'password'
-   );
-   my $query = 'SHOW /*!5 ENGINE */ INNODB STATUS';
-   my $text  = $dbh->selectcol_arrayref($query)->[0];
-
-   # 1 or 0
-   my $debug = 1;
-
-   # Choose sections of the monitor text you want.  Possible values:
-   # TRANSACTIONS                          => tx
-   # BUFFER POOL AND MEMORY                => bp
-   # SEMAPHORES                            => sm
-   # LOG                                   => lg
-   # ROW OPERATIONS                        => ro
-   # INSERT BUFFER AND ADAPTIVE HASH INDEX => ib
-   # FILE I/O                              => io
-   # LATEST DETECTED DEADLOCK              => dl
-   # LATEST FOREIGN KEY ERROR              => fk
-
-   my $required_sections = {
-      tx => 1,
-   };
-
-   # Parse the status text.
-   my $parser = InnoDBParser->new;
-   $innodb_status = $parser->parse_status_text(
-      $text,
-      $debug,
-      # Omit the following parameter to get all sections.
-      $required_sections,
-   );
-
-=head1 COPYRIGHT, LICENSE AND WARRANTY
-
-This package is copyright (c) 2006 Baron Schwartz, baron at xaprb dot com.
-Feedback and improvements are gratefully received.
-
-THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-
-This program is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free Software
-Foundation, version 2; OR the Perl Artistic License.  On UNIX and similar
-systems, you can issue `man perlgpl' or `man perlartistic' to read these
-licenses.
-
-You should have received a copy of the GNU General Public License along with
-this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-Place, Suite 330, Boston, MA  02111-1307  USA
-
-=head1 AUTHOR
-
-Baron Schwartz, baron at xaprb dot com.
-
-=head1 BUGS
-
-None known, but I bet there are some.  The InnoDB monitor text wasn't really
-designed to be parsable.
-
-=head1 SEE ALSO
-
-innotop - a program that can format the parsed status information for humans
-to read and enjoy.
-
-=cut

=== removed file 'build/debian/additions/innotop/changelog.innotop'
--- build/debian/additions/innotop/changelog.innotop	2011-02-03 14:34:49 +0000
+++ build/debian/additions/innotop/changelog.innotop	1970-01-01 00:00:00 +0000
@@ -1,318 +0,0 @@
-Changelog for innotop and InnoDBParser:
-
-2007-11-09: version 1.6.0
-
-   * S mode crashed on non-numeric values.
-   * New user-defined columns crashed upon restart.
-   * Added --color option to control terminal coloring.
-
-2007-09-18: version 1.5.2
-
-   * Added the ability to monitor InnoDB status from a file.
-   * Changed W mode to L mode; it monitors all locks, not just lock waits.
-
-2007-09-16: version 1.5.1
-
-   * Added C (Command Summary) mode.
-   * Fixed a bug in the 'avg' aggregate function.
-
-2007-09-10: version 1.5.0
-
-   Changes:
-   * Added plugin functionality.
-   * Added group-by functionality.
-   * Moved the configuration file to a directory.
-   * Enhanced filtering and sorting on pivoted tables.
-   * Many small bug fixes.
-
-2007-07-16: version 1.4.3
-
-   Changes:
-   * Added standard --version command-line option
-   * Changed colors to cyan instead of blue; more visible on dark terminals.
-   * Added information to the filter-choosing dialog.
-   * Added column auto-completion when entering a filter expression.
-   * Changed Term::ReadKey from optional to mandatory.
-   * Clarified username in password prompting.
-   * Ten thousand words of documentation!
-
-   Bugs fixed:
-   * innotop crashed in W mode when InnoDB status data was truncated.
-   * innotop didn't display errors in tables if debug was enabled.
-   * The colored() subroutine wasn't being created in non-interactive mode.
-   * Don't prompt to save password except the first time.
-
-2007-05-03: version 1.4.2
-
-   This version contains all changes to the trunk until revision 239; some
-   changes in revisions 240:250 are included.
-
-   MAJOR CHANGES:
-
-   * Quick-filters to easily filter any column in any display
-   * Compatibility with MySQL 3.23 through 6.0
-   * Improved error handling when a server is down, permissions denied, etc
-   * Use additional SHOW INNODB STATUS information in 5.1.x
-   * Make all modes use tables consistently, so they can all be edited,
-     filtered, colored and sorted consistently
-   * Combine V, G and S modes into S mode, with v, g, and s hot-keys
-   * Let DBD driver read MySQL option files; permit connections without
-     user/pass/etc
-   * Compile SQL-like expressions into Perl subroutines; eliminate need to
-     know Perl
-   * Do not save all config data to config file, only save user's customizations
-   * Rewritten and improved command-line option handling
-   * Added --count, --delay, and other command-line options to support
-     run-and-exit operation
-   * Improve built-in variable sets
-   * Improve help screen with three-part balanced-column layout
-   * Simplify table-editor and improve hotkey support
-   * Require Perl to have high-resolution time support (Time::HiRes)
-   * Help the user choose a query to analyze or kill
-   * Enable EXPLAIN, show-full-query in T mode just like Q mode
-   * Let data-extraction access current, previous and incremental data sets
-     all at once
-
-   MINOR CHANGES:
-
-   * Column stabilizing for Q mode
-   * New color rules for T, Q, W modes
-   * Apply slave I/O filter to Q mode
-   * Improve detection of server version and other meta-data
-   * Make connection timeout a config variable
-   * Improve cross-version-compatible SQL syntax
-   * Get some information from the DBD driver instead of asking MySQL for it
-   * Improved error messages
-   * Improve server group creation/editing
-   * Improve connection/thread killing
-   * Fix broken key bindings and restore previously mapped hot-keys for
-     choosing columns
-   * Some documentation updates (but not nearly enough)
-   * Allow the user to specify graphing char in S mode (formerly G mode)
-   * Allow easy switching between variable sets in S mode
-   * Bind 'n' key globally to choose the 'next' server connection
-   * Bind '%' key globally to filter displayed tables
-   * Allow aligning columns on the decimal place for easy readability
-   * Add hide_hdr config variable to hide column headers in tables
-   * Add a feature to smartly run PURGE MASTER LOGS in Replication mode
-   * Enable debug mode as a globally configurable variable
-   * Improve error messages when an expression or filter doesn't compile or has
-     a run-time error; die on error when debug is enabled
-   * Allow user-configurable delays after executing SQL (to let the server
-     settle down before taking another measurement)
-   * Add an expression to show how long until a transaction is finished
-   * Add skip_innodb as a global config variable
-   * Add '%' after percentages to help disambiguate (user-configurable)
-   * Add column to M mode to help see how fast slave is catching up to master
-
-   BUG FIXES:
-
-   * T and W modes had wrong value for wait_status column
-   * Error tracking on connections didn't reset when the connection recovered
-   * wait_timeout on connections couldn't be set before MySQL 4.0.3
-   * There was a crash on 3.23 when wiping deadlocks
-   * Lettercase changes in some result sets (SHOW MASTER/SLAVE STATUS) between
-     MySQL versions crashed innotop
-   * Inactive connections crashed innotop upon access to DBD driver
-   * set_precision did not respect user defaults for number of digits
-   * --inc command-line option could not be negated
-   * InnoDB status parsing was not always parsing all needed information
-   * S mode (formerly G mode) could crash trying to divide non-numeric data
-   * M table didn't show Slave_open_temp_tables variable; incorrect lettercase
-   * DBD drivers with broken AutoCommit would crash innotop
-   * Some key bindings had incorrect labels
-   * Some config-file loading routines could load data for things that didn't
-     exist
-   * Headers printed too often in S mode
-   * High-resolution time was not used even when the user had it
-   * Non-interactive mode printed blank lines sometimes
-   * Q-mode header and statusbar showed different QPS numbers
-   * Formulas for key-cache and query-cache hit ratios were wrong
-   * Mac OS "Darwin" machines were mis-identified as Microsoft Windows
-   * Some multiplications crashed when given undefined input
-   * The commify transformation did not check its input and could crash
-   * Specifying an invalid mode on the command line or config file could crash
-     innotop
-
-2007-03-29: version 1.4.1
-
-   * More tweaks to display of connection errors.
-   * Fixed a problem with skip-innodb in MySQL 5.1.
-   * Fix a bug with dead connections in single-connection mode.
-   * Fix a regex to allow parsing more data from truncated deadlocks.
-   * Don't load active cxns from the config file if the cxn isn't defined.
-
-2007-03-03: version 1.4.0
-
-   * Further tweak error handling and display of connection errors
-   * More centralization of querying
-   * Fix forking so it doesn't kill all database connections
-   * Allow user to run innotop without permissions for GLOBAL variables and status
-
-2007-02-11: version 1.3.6
-
-   * Handle some connection failures so innotop doesn't crash because of one server.
-   * Enable incremental display in more modes.
-   * Tweaks to colorizing, color editor, and default color rules.
-   * Tweaks to default sorting rules.
-   * Use prepared statements for efficiency.
-   * Bug fixes and code cleanups.
-   * Data storage is keyed on clock ticks now.
-
-2007-02-03: version 1.3.5
-
-   * Bug fixes.
-   * More tools for editing configuration from within innotop.
-   * Filters and transformations are constrained to valid values.
-   * Support for colorizing rows.
-   * Sorting by multiple columns.
-   * Compress headers when display is very wide.
-   * Stabilize and limit column widths.
-   * Check config file formats when upgrading so upgrades go smoothly.
-   * Make D mode handle many connections at once.
-   * Extract simple expressions from data sets in column src property.
-     This makes innotop more awk-ish.
-
-2007-01-16: version 1.3
-
-   * Readline support.
-   * Can be used unattended, or in a pipe-and-filter mode
-     where it outputs tab-separated data to standard output.
-   * You can specify a config file on the command line.
-     Config files can be marked read-only.
-   * Monitor multiple servers simultaneously.
-   * Server groups to help manage many servers conveniently.
-   * Monitor master/slave status, and control slaves.
-   * Columns can have user-defined expressions as their data sources.
-   * Better configuration tools.
-   * InnoDB status information is merged into SHOW VARIABLES and
-     SHOW STATUS information, so you can access it all together.
-   * High-precision time support in more places.
-   * Lots of tweaks to make things display more readably and compactly.
-   * Column transformations and filters.
-
-2007-01-16: version 1.0.1
-   * NOTE: innotop is now hosted at Sourceforge, in Subversion not CVS.
-     The new project homepage is http://sourceforge.net/projects/innotop/
-   * Tweak default T/Q mode sort columns to match what people expect.
-   * Fix broken InnoDBParser.pm documentation (and hence man page).
-
-2007-01-06: version 1.0
-   * NOTE: innotop is now hosted at Sourceforge, in Subversion not CVS.
-     The new project homepage is http://sourceforge.net/projects/innotop/
-   * Prevent control characters from freaking terminal out.
-   * Set timeout to keep busy servers from closing connection.
-   * There is only one InnoDB insert buffer.
-   * Make licenses clear and consistent.
-
-2006-11-14: innotop 0.1.160, InnoDBParser version 1.69
-   * Support for ANSI color on Microsoft Windows (more readable, compact
-     display; thanks Gisbert W. Selke).
-   * Better handling of $ENV{HOME} on Windows.
-   * Added a LICENSE file to the package as per Gentoo bug:
-     http://bugs.gentoo.org/show_bug.cgi?id=147600
-
-2006-11-11: innotop 0.1.157, InnoDBParser version 1.69
-   * Add Microsoft Windows support.
-
-2006-10-19: innotop 0.1.154, InnoDBParser version 1.69
-   * Add O (Open Tables) mode
-   * Add some more checks to handle incomplete InnoDB status information
-
-2006-09-30: innotop 0.1.152, InnoDBParser version 1.69
-   * Figured out what was wrong with package $VERSION variable: it wasn't
-     after the package declaration!
-
-2006-09-28: innotop 0.1.152, InnoDBParser version 1.67
-   * Make more efforts towards crash-resistance and tolerance of completely
-     messed-up inputs.  If innotop itself is broken, it is now much harder to
-     tell, because it just keeps on running without complaining.
-   * Fix a small bug parsing out some information and displaying it.
-
-2006-09-05: innotop 0.1.149, InnoDBParser version 1.64
-   * Try to find and eliminate any parsing code that assumes pattern matches
-     will succeed.
-
-2006-09-05: innotop 0.1.149, InnoDBParser version 1.62
-   * Make innotop crash-resistant, so I can declare it STABLE finally.
-   * Instead of using SQL conditional comments, detect MySQL version.
-
-2006-08-22: innotop 0.1.147, InnoDBParser version 1.60
-   * Fix some innotop bugs with undefined values, bad formatting etc.
-
-2006-08-19: innotop 0.1.146, InnoDBParser version 1.60
-   * Make innotop handle some unexpected NULL values in Q mode.
-   * Add OS wait information to W mode, so it is now "everything that waits."
-   * Center section captions better.
-   * Make R mode more readable and compact.
-   * Make InnoDBParser parse lock waits even when they've been waiting 0 secs.
-
-2006-08-12: innotop 0.1.139, InnoDBParser version 1.59
-   * Add more documentation
-   * Tweak V mode to show more info in less space.
-   * Fix a bug in G mode.
-
-2006-08-10: innotop 0.1.132, InnoDBParser version 1.58
-   * Handle yet more types of FK error... it will never end!
-   * Handle some special cases when DEADLOCK info truncated
-   * Add a bit more FK info to F mode in innotop
-   * More tests added to the test suite
-
-2006-08-07: innotop 0.1.131, InnoDBParser version 1.55
-   * Fix another issue with configuration
-   * Handle another type of FK error
-
-2006-08-03: innotop 0.1.130, InnoDBParser version 1.54
-   * Fix an issue loading config file
-   * Add heap_no to 'D' (InnoDB Deadlock) mode to ease deadlock debugging.
-
-2006-08-02: innotop 0.1.128, InnoDBParser version 1.54
-   * Parse lock wait information from the TRANSACTION section.
-   * Even more OS-specific parsing... pain in the butt...
-   * Add 'W' (InnoDB Lock Wait) mode.
-   * Fix some minor display issues with statusbar.
-
-2006-08-02: innotop 0.1.125, InnoDBParser version 1.50
-   * Don't try to get references to Perl built-in functions like time()
-   * Handle more OS-specific variations of InnoDB status text
-   * Add some more information to various places in innotop
-
-2006-08-01: innotop 0.1.123, InnoDBParser version 1.47
-
-   * Enhance S and G modes: clear screen and re-print headers
-   * Don't crash when deadlock data is truncated
-   * Make Analyze mode say how to get back to whatever you came from
-   * Display 'nothing to display' when there is nothing
-   * Add ability to read InnoDB status text from a file (mostly helps test)
-   * Add table of Wait Array Information in Row Op/Semaphore mode
-   * Add table of lock information in InnoDB deadlock mode
-   * Ensure new features in upgrades don't get masked by existing config files
-   * Tweak default column choices for T mode
-   * Enhance foreign key parsing
-   * Enhance physical record and data tuple parsing
-   * Enhance lock parsing (handle old-style and new-style formats)
-
-2006-07-24: innotop 0.1.112, InnoDBParser version 1.36
-
-   * InnoDBParser enhancements for FK error messages.
-   * A fix to innotop to prevent it from crashing while trying to display a FK
-     error message.
-   * Some minor cosmetic changes to number formatting in innotop.
-
-2006-07-22: innotop 0.1.106, InnoDBParser version 1.35
-
-   * InnoDBParser is much more complete and accurate.
-   * Tons of bug fixes.
-   * Add partitions to EXPLAIN mode.
-   * Enhance Q mode header, add T mode header.
-   * Share some configuration variables across modes.
-   * Add formatted time columns to Q, T modes.
-   * Add command-line argument parsing.
-   * Turn off echo when asking for password.
-   * Add option to specify port when connecting.
-   * Let display-optimized-query display multiple notes.
-   * Lots of small improvements, such as showing more info in statusbar.
-
-2006-07-02: innotop 0.1.74, InnoDBParser version 1.24
-
-   * Initial release for public consumption.

=== removed file 'build/debian/additions/innotop/innotop'
--- build/debian/additions/innotop/innotop	2011-02-03 14:34:49 +0000
+++ build/debian/additions/innotop/innotop	1970-01-01 00:00:00 +0000
@@ -1,9485 +0,0 @@
-#!/usr/bin/perl
-
-# vim: tw=160:nowrap:expandtab:tabstop=3:shiftwidth=3:softtabstop=3
-
-use strict;
-use warnings FATAL => 'all';
-use sigtrap qw(handler finish untrapped normal-signals);
-
-use Data::Dumper;
-use DBI;
-use English qw(-no_match_vars);
-use File::Basename qw(dirname);
-use Getopt::Long;
-use List::Util qw(max min maxstr sum);
-use InnoDBParser;
-use POSIX qw(ceil);
-use Time::HiRes qw(time sleep);
-use Term::ReadKey qw(ReadMode ReadKey);
-
-# Version, license and warranty information. {{{1
-# ###########################################################################
-our $VERSION = '1.6.0';
-our $SVN_REV = sprintf("%d", q$Revision: 383 $ =~ m/(\d+)/g);
-our $SVN_URL = sprintf("%s", q$URL: https://innotop.svn.sourceforge.net/svnroot/innotop/trunk/innotop $ =~ m$svnroot/innotop/(\S+)$g);
-
-my $innotop_license = <<"LICENSE";
-
-This is innotop version $VERSION, a MySQL and InnoDB monitor.
-
-This program is copyright (c) 2006 Baron Schwartz.
-Feedback and improvements are welcome.
-
-THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-
-This program is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free Software
-Foundation, version 2; OR the Perl Artistic License.  On UNIX and similar
-systems, you can issue `man perlgpl' or `man perlartistic' to read these
-licenses.
-
-You should have received a copy of the GNU General Public License along with
-this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-Place, Suite 330, Boston, MA  02111-1307  USA.
-LICENSE
-
-# Configuration information and global setup {{{1
-# ###########################################################################
-
-# Really, really, super-global variables.
-my @config_versions = (
-   "000-000-000", "001-003-000", # config file was one big name-value hash.
-   "001-003-000", "001-004-002", # config file contained non-user-defined stuff.
-);
-
-my $clear_screen_sub;
-
-# This defines expected properties and defaults for the column definitions that
-# eventually end up in tbl_meta.
-my %col_props = (
-   hdr     => '',
-   just    => '-',
-   dec     => 0,     # Whether to align the column on the decimal point
-   num     => 0,
-   label   => '',
-   user    => 0,
-   src     => '',
-   tbl     => '',    # Helps when writing/reading custom columns in config files
-   minw    => 0,
-   maxw    => 0,
-   trans   => [],
-   agg     => 'first',  # Aggregate function
-   aggonly => 0,        # Whether to show only when tbl_meta->{aggregate} is true
-);
-
-# Actual DBI connections to MySQL servers.
-my %dbhs;
-
-# Command-line parameters {{{2
-# ###########################################################################
-
-my @opt_spec = (
-   { s => 'help',       d => 'Show this help message' },
-   { s => 'color|C!',   d => 'Use terminal coloring (default)',   c => 'color' },
-   { s => 'config|c=s', d => 'Config file to read' },
-   { s => 'nonint|n',   d => 'Non-interactive, output tab-separated fields' },
-   { s => 'count=i',    d => 'Number of updates before exiting' },
-   { s => 'delay|d=f',  d => 'Delay between updates in seconds',  c => 'interval' },
-   { s => 'mode|m=s',   d => 'Operating mode to start in',        c => 'mode' },
-   { s => 'inc|i!',     d => 'Measure incremental differences',   c => 'status_inc' },
-   { s => 'version',    d => 'Output version information and exit' },
-);
-
-# This is the container for the command-line options' values to be stored in
-# after processing.  Initial values are defaults.
-my %opts = (
-   n => !( -t STDIN && -t STDOUT ), # If in/out aren't to terminals, we're interactive
-);
-# Post-process...
-my %opt_seen;
-foreach my $spec ( @opt_spec ) {
-   my ( $long, $short ) = $spec->{s} =~ m/^(\w+)(?:\|([^!+=]*))?/;
-   $spec->{k} = $short || $long;
-   $spec->{l} = $long;
-   $spec->{t} = $short;
-   $spec->{n} = $spec->{s} =~ m/!/;
-   $opts{$spec->{k}} = undef unless defined $opts{$spec->{k}};
-   die "Duplicate option $spec->{k}" if $opt_seen{$spec->{k}}++;
-}
-
-Getopt::Long::Configure('no_ignore_case', 'bundling');
-GetOptions( map { $_->{s} => \$opts{$_->{k}} } @opt_spec) or $opts{help} = 1;
-
-if ( $opts{version} ) {
-   print "innotop  Ver $VERSION Changeset $SVN_REV from $SVN_URL\n";
-   exit(0);
-}
-
-if ( $opts{'help'} ) {
-   print "Usage: innotop <options> <innodb-status-file>\n\n";
-   my $maxw = max(map { length($_->{l}) + ($_->{n} ? 4 : 0)} @opt_spec);
-   foreach my $spec ( sort { $a->{l} cmp $b->{l} } @opt_spec ) {
-      my $long  = $spec->{n} ? "[no]$spec->{l}" : $spec->{l};
-      my $short = $spec->{t} ? "-$spec->{t}" : '';
-      printf("  --%-${maxw}s %-4s %s\n", $long, $short, $spec->{d});
-   }
-   print <<USAGE;
-
-innotop is a MySQL and InnoDB transaction/status monitor, like 'top' for
-MySQL.  It displays queries, InnoDB transactions, lock waits, deadlocks,
-foreign key errors, open tables, replication status, buffer information,
-row operations, logs, I/O operations, load graph, and more.  You can
-monitor many servers at once with innotop. 
-
-USAGE
-   exit(1);
-}
-
-# Meta-data (table definitions etc) {{{2
-# ###########################################################################
-
-# Expressions {{{3
-# Convenience so I can copy/paste these in several places...
-# ###########################################################################
-my %exprs = (
-   Host              => q{my $host = host || hostname || ''; ($host) = $host =~ m/^((?:[\d.]+(?=:))|(?:[a-zA-Z]\w+))/; return $host || ''},
-   Port              => q{my ($p) = host =~ m/:(.*)$/; return $p || 0},
-   OldVersions       => q{dulint_to_int(IB_tx_trx_id_counter) - dulint_to_int(IB_tx_purge_done_for)},
-   MaxTxnTime        => q/max(map{ $_->{active_secs} } @{ IB_tx_transactions }) || 0/,
-   NumTxns           => q{scalar @{ IB_tx_transactions } },
-   DirtyBufs         => q{ $cur->{IB_bp_pages_modified} / ($cur->{IB_bp_buf_pool_size} || 1) },
-   BufPoolFill       => q{ $cur->{IB_bp_pages_total} / ($cur->{IB_bp_buf_pool_size} || 1) },
-   ServerLoad        => q{ $cur->{Threads_connected}/(Questions||1)/Uptime_hires },
-   TxnTimeRemain     => q{ defined undo_log_entries && defined $pre->{undo_log_entries} && undo_log_entries < $pre->{undo_log_entries} ? undo_log_entries / (($pre->{undo_log_entries} - undo_log_entries)/((active_secs-$pre->{active_secs})||1))||1 : 0},
-   SlaveCatchupRate  => ' defined $cur->{seconds_behind_master} && defined $pre->{seconds_behind_master} && $cur->{seconds_behind_master} < $pre->{seconds_behind_master} ? ($pre->{seconds_behind_master}-$cur->{seconds_behind_master})/($cur->{Uptime_hires}-$pre->{Uptime_hires}) : 0',
-   QcacheHitRatio    => q{(Qcache_hits||0)/(((Com_select||0)+(Qcache_hits||0))||1)},
-);
-
-# ###########################################################################
-# Column definitions {{{3
-# Defines every column in every table. A named column has the following
-# properties:
-#    * hdr    Column header/title
-#    * label  Documentation for humans.
-#    * num    Whether it's numeric (for sorting).
-#    * just   Alignment; generated from num, user-overridable in tbl_meta
-#    * minw, maxw Auto-generated, user-overridable.
-# Values from this hash are just copied to tbl_meta, which is where everything
-# else in the program should read from.
-# ###########################################################################
-
-my %columns = (
-   active_secs                 => { hdr => 'SecsActive',          num => 1, label => 'Seconds transaction has been active', },
-   add_pool_alloc              => { hdr => 'Add\'l Pool',         num => 1, label => 'Additonal pool allocated' },
-   attempted_op                => { hdr => 'Action',              num => 0, label => 'The action that caused the error' },
-   awe_mem_alloc               => { hdr => 'AWE Memory',          num => 1, label => '[Windows] AWE memory allocated' },
-   binlog_cache_overflow       => { hdr => 'Binlog Cache',        num => 1, label => 'Transactions too big for binlog cache that went to disk' },
-   binlog_do_db                => { hdr => 'Binlog Do DB',        num => 0, label => 'binlog-do-db setting' },
-   binlog_ignore_db            => { hdr => 'Binlog Ignore DB',    num => 0, label => 'binlog-ignore-db setting' },
-   bps_in                      => { hdr => 'BpsIn',               num => 1, label => 'Bytes per second received by the server', },
-   bps_out                     => { hdr => 'BpsOut',              num => 1, label => 'Bytes per second sent by the server', },
-   buf_free                    => { hdr => 'Free Bufs',           num => 1, label => 'Buffers free in the buffer pool' },
-   buf_pool_hit_rate           => { hdr => 'Hit Rate',            num => 0, label => 'Buffer pool hit rate' },
-   buf_pool_hits               => { hdr => 'Hits',                num => 1, label => 'Buffer pool hits' },
-   buf_pool_reads              => { hdr => 'Reads',               num => 1, label => 'Buffer pool reads' },
-   buf_pool_size               => { hdr => 'Size',                num => 1, label => 'Buffer pool size' },
-   bufs_in_node_heap           => { hdr => 'Node Heap Bufs',      num => 1, label => 'Buffers in buffer pool node heap' },
-   bytes_behind_master         => { hdr => 'ByteLag',             num => 1, label => 'Bytes the slave lags the master in binlog' },
-   cell_event_set              => { hdr => 'Ending?',             num => 1, label => 'Whether the cell event is set' },
-   cell_waiting                => { hdr => 'Waiting?',            num => 1, label => 'Whether the cell is waiting' },
-   child_db                    => { hdr => 'Child DB',            num => 0, label => 'The database of the child table' },
-   child_index                 => { hdr => 'Child Index',         num => 0, label => 'The index in the child table' },
-   child_table                 => { hdr => 'Child Table',         num => 0, label => 'The child table' },
-   cmd                         => { hdr => 'Cmd',                 num => 0, label => 'Type of command being executed', },
-   cnt                         => { hdr => 'Cnt',                 num => 0, label => 'Count', agg => 'count', aggonly => 1 },
-   connect_retry               => { hdr => 'Connect Retry',       num => 1, label => 'Slave connect-retry timeout' },
-   cxn                         => { hdr => 'CXN',                 num => 0, label => 'Connection from which the data came', },
-   db                          => { hdr => 'DB',                  num => 0, label => 'Current database', },
-   dict_mem_alloc              => { hdr => 'Dict Mem',            num => 1, label => 'Dictionary memory allocated' },
-   dirty_bufs                  => { hdr => 'Dirty Buf',           num => 1, label => 'Dirty buffer pool pages' },
-   dl_txn_num                  => { hdr => 'Num',                 num => 0, label => 'Deadlocked transaction number', },
-   event_set                   => { hdr => 'Evt Set?',            num => 1, label => '[Win32] if a wait event is set', },
-   exec_master_log_pos         => { hdr => 'Exec Master Log Pos', num => 1, label => 'Exec Master Log Position' },
-   fk_name                     => { hdr => 'Constraint',          num => 0, label => 'The name of the FK constraint' },
-   free_list_len               => { hdr => 'Free List Len',       num => 1, label => 'Length of the free list' },
-   has_read_view               => { hdr => 'Rd View',             num => 1, label => 'Whether the transaction has a read view' },
-   hash_searches_s             => { hdr => 'Hash/Sec',            num => 1, label => 'Number of hash searches/sec' },
-   hash_table_size             => { hdr => 'Size',                num => 1, label => 'Number of non-hash searches/sec' },
-   heap_no                     => { hdr => 'Heap',                num => 1, label => 'Heap number' },
-   heap_size                   => { hdr => 'Heap',                num => 1, label => 'Heap size' },
-   history_list_len            => { hdr => 'History',             num => 1, label => 'History list length' },
-   host_and_domain             => { hdr => 'Host',                num => 0, label => 'Hostname/IP and domain' },
-   host_and_port               => { hdr => 'Host/IP',             num => 0, label => 'Hostname or IP address, and port number', },
-   hostname                    => { hdr => 'Host',                num => 0, label => 'Hostname' },
-   index                       => { hdr => 'Index',               num => 0, label => 'The index involved' },
-   index_ref                   => { hdr => 'Index Ref',           num => 0, label => 'Index referenced' },
-   info                        => { hdr => 'Query',               num => 0, label => 'Info or the current query', },
-   insert_intention            => { hdr => 'Ins Intent',          num => 1, label => 'Whether the thread was trying to insert' },
-   inserts                     => { hdr => 'Inserts',             num => 1, label => 'Inserts' },
-   io_bytes_s                  => { hdr => 'Bytes/Sec',           num => 1, label => 'Average I/O bytes/sec' },
-   io_flush_type               => { hdr => 'Flush Type',          num => 0, label => 'I/O Flush Type' },
-   io_fsyncs_s                 => { hdr => 'fsyncs/sec',          num => 1, label => 'I/O fsyncs/sec' },
-   io_reads_s                  => { hdr => 'Reads/Sec',           num => 1, label => 'Average I/O reads/sec' },
-   io_writes_s                 => { hdr => 'Writes/Sec',          num => 1, label => 'Average I/O writes/sec' },
-   ip                          => { hdr => 'IP',                  num => 0, label => 'IP address' },
-   is_name_locked              => { hdr => 'Locked',              num => 1, label => 'Whether table is name locked', },
-   key_buffer_hit              => { hdr => 'KCacheHit',           num => 1, label => 'Key cache hit ratio', },
-   key_len                     => { hdr => 'Key Length',          num => 1, label => 'Number of bytes used in the key' },
-   last_chkp                   => { hdr => 'Last Checkpoint',     num => 0, label => 'Last log checkpoint' },
-   last_errno                  => { hdr => 'Last Errno',          num => 1, label => 'Last error number' },
-   last_error                  => { hdr => 'Last Error',          num => 0, label => 'Last error' },
-   last_s_file_name            => { hdr => 'S-File',              num => 0, label => 'Filename where last read locked' },
-   last_s_line                 => { hdr => 'S-Line',              num => 1, label => 'Line where last read locked' },
-   last_x_file_name            => { hdr => 'X-File',              num => 0, label => 'Filename where last write locked' },
-   last_x_line                 => { hdr => 'X-Line',              num => 1, label => 'Line where last write locked' },
-   last_pct                    => { hdr => 'Pct',                 num => 1, label => 'Last Percentage' },
-   last_total                  => { hdr => 'Last Total',          num => 1, label => 'Last Total' },
-   last_value                  => { hdr => 'Last Incr',           num => 1, label => 'Last Value' },
-   load                        => { hdr => 'Load',                num => 1, label => 'Server load' },
-   lock_cfile_name             => { hdr => 'Crtd File',           num => 0, label => 'Filename where lock created' },
-   lock_cline                  => { hdr => 'Crtd Line',           num => 1, label => 'Line where lock created' },
-   lock_mem_addr               => { hdr => 'Addr',                num => 0, label => 'The lock memory address' },
-   lock_mode                   => { hdr => 'Mode',                num => 0, label => 'The lock mode' },
-   lock_structs                => { hdr => 'LStrcts',             num => 1, label => 'Number of lock structs' },
-   lock_type                   => { hdr => 'Type',                num => 0, label => 'The lock type' },
-   lock_var                    => { hdr => 'Lck Var',             num => 1, label => 'The lock variable' },
-   lock_wait_time              => { hdr => 'Wait',                num => 1, label => 'How long txn has waited for a lock' },
-   log_flushed_to              => { hdr => 'Flushed To',          num => 0, label => 'Log position flushed to' },
-   log_ios_done                => { hdr => 'IO Done',             num => 1, label => 'Log I/Os done' },
-   log_ios_s                   => { hdr => 'IO/Sec',              num => 1, label => 'Average log I/Os per sec' },
-   log_seq_no                  => { hdr => 'Sequence No.',        num => 0, label => 'Log sequence number' },
-   main_thread_id              => { hdr => 'Main Thread ID',      num => 1, label => 'Main thread ID' },
-   main_thread_proc_no         => { hdr => 'Main Thread Proc',    num => 1, label => 'Main thread process number' },
-   main_thread_state           => { hdr => 'Main Thread State',   num => 0, label => 'Main thread state' },
-   master_file                 => { hdr => 'File',                num => 0, label => 'Master file' },
-   master_host                 => { hdr => 'Master',              num => 0, label => 'Master server hostname' },
-   master_log_file             => { hdr => 'Master Log File',     num => 0, label => 'Master log file' },
-   master_port                 => { hdr => 'Master Port',         num => 1, label => 'Master port' },
-   master_pos                  => { hdr => 'Position',            num => 1, label => 'Master position' },
-   master_ssl_allowed          => { hdr => 'Master SSL Allowed',  num => 0, label => 'Master SSL Allowed' },
-   master_ssl_ca_file          => { hdr => 'Master SSL CA File',  num => 0, label => 'Master SSL Cert Auth File' },
-   master_ssl_ca_path          => { hdr => 'Master SSL CA Path',  num => 0, label => 'Master SSL Cert Auth Path' },
-   master_ssl_cert             => { hdr => 'Master SSL Cert',     num => 0, label => 'Master SSL Cert' },
-   master_ssl_cipher           => { hdr => 'Master SSL Cipher',   num => 0, label => 'Master SSL Cipher' },
-   master_ssl_key              => { hdr => 'Master SSL Key',      num => 0, label => 'Master SSL Key' },
-   master_user                 => { hdr => 'Master User',         num => 0, label => 'Master username' },
-   max_txn                     => { hdr => 'MaxTxnTime',          num => 1, label => 'MaxTxn' },
-   merged_recs                 => { hdr => 'Merged Recs',         num => 1, label => 'Merged records' },
-   merges                      => { hdr => 'Merges',              num => 1, label => 'Merges' },
-   mutex_os_waits              => { hdr => 'Waits',               num => 1, label => 'Mutex OS Waits' },
-   mutex_spin_rounds           => { hdr => 'Rounds',              num => 1, label => 'Mutex Spin Rounds' },
-   mutex_spin_waits            => { hdr => 'Spins',               num => 1, label => 'Mutex Spin Waits' },
-   mysql_thread_id             => { hdr => 'ID',                  num => 1, label => 'MySQL connection (thread) ID', },
-   name                        => { hdr => 'Name',                num => 0, label => 'Variable Name' },
-   n_bits                      => { hdr => '# Bits',              num => 1, label => 'Number of bits' },
-   non_hash_searches_s         => { hdr => 'Non-Hash/Sec',        num => 1, label => 'Non-hash searches/sec' },
-   num_deletes                 => { hdr => 'Del',                 num => 1, label => 'Number of deletes' },
-   num_deletes_sec             => { hdr => 'Del/Sec',             num => 1, label => 'Number of deletes' },
-   num_inserts                 => { hdr => 'Ins',                 num => 1, label => 'Number of inserts' },
-   num_inserts_sec             => { hdr => 'Ins/Sec',             num => 1, label => 'Number of inserts' },
-   num_readers                 => { hdr => 'Readers',             num => 1, label => 'Number of readers' },
-   num_reads                   => { hdr => 'Read',                num => 1, label => 'Number of reads' },
-   num_reads_sec               => { hdr => 'Read/Sec',            num => 1, label => 'Number of reads' },
-   num_res_ext                 => { hdr => 'BTree Extents',       num => 1, label => 'Number of extents reserved for B-Tree' },
-   num_rows                    => { hdr => 'Row Count',           num => 1, label => 'Number of rows estimated to examine' },
-   num_times_open              => { hdr => 'In Use',              num => 1, label => '# times table is opened', },
-   num_txns                    => { hdr => 'Txns',                num => 1, label => 'Number of transactions' },
-   num_updates                 => { hdr => 'Upd',                 num => 1, label => 'Number of updates' },
-   num_updates_sec             => { hdr => 'Upd/Sec',             num => 1, label => 'Number of updates' },
-   os_file_reads               => { hdr => 'OS Reads',            num => 1, label => 'OS file reads' },
-   os_file_writes              => { hdr => 'OS Writes',           num => 1, label => 'OS file writes' },
-   os_fsyncs                   => { hdr => 'OS fsyncs',           num => 1, label => 'OS fsyncs' },
-   os_thread_id                => { hdr => 'OS Thread',           num => 1, label => 'The operating system thread ID' },
-   p_aio_writes                => { hdr => 'Async Wrt',           num => 1, label => 'Pending asynchronous I/O writes' },
-   p_buf_pool_flushes          => { hdr => 'Buffer Pool Flushes', num => 1, label => 'Pending buffer pool flushes' },
-   p_ibuf_aio_reads            => { hdr => 'IBuf Async Rds',      num => 1, label => 'Pending insert buffer asynch I/O reads' },
-   p_log_flushes               => { hdr => 'Log Flushes',         num => 1, label => 'Pending log flushes' },
-   p_log_ios                   => { hdr => 'Log I/Os',            num => 1, label => 'Pending log I/O operations' },
-   p_normal_aio_reads          => { hdr => 'Async Rds',           num => 1, label => 'Pending asynchronous I/O reads' },
-   p_preads                    => { hdr => 'preads',              num => 1, label => 'Pending p-reads' },
-   p_pwrites                   => { hdr => 'pwrites',             num => 1, label => 'Pending p-writes' },
-   p_sync_ios                  => { hdr => 'Sync I/Os',           num => 1, label => 'Pending synchronous I/O operations' },
-   page_creates_sec            => { hdr => 'Creates/Sec',         num => 1, label => 'Page creates/sec' },
-   page_no                     => { hdr => 'Page',                num => 1, label => 'Page number' },
-   page_reads_sec              => { hdr => 'Reads/Sec',           num => 1, label => 'Page reads per second' },
-   page_writes_sec             => { hdr => 'Writes/Sec',          num => 1, label => 'Page writes per second' },
-   pages_created               => { hdr => 'Created',             num => 1, label => 'Pages created' },
-   pages_modified              => { hdr => 'Dirty Pages',         num => 1, label => 'Pages modified (dirty)' },
-   pages_read                  => { hdr => 'Reads',               num => 1, label => 'Pages read' },
-   pages_total                 => { hdr => 'Pages',               num => 1, label => 'Pages total' },
-   pages_written               => { hdr => 'Writes',              num => 1, label => 'Pages written' },
-   parent_col                  => { hdr => 'Parent Column',       num => 0, label => 'The referred column in the parent table', },
-   parent_db                   => { hdr => 'Parent DB',           num => 0, label => 'The database of the parent table' },
-   parent_index                => { hdr => 'Parent Index',        num => 0, label => 'The referred index in the parent table' },
-   parent_table                => { hdr => 'Parent Table',        num => 0, label => 'The parent table' },
-   part_id                     => { hdr => 'Part ID',             num => 1, label => 'Sub-part ID of the query' },
-   partitions                  => { hdr => 'Partitions',          num => 0, label => 'Query partitions used' },
-   pct                         => { hdr => 'Pct',                 num => 1, label => 'Percentage' },
-   pending_chkp_writes         => { hdr => 'Chkpt Writes',        num => 1, label => 'Pending log checkpoint writes' },
-   pending_log_writes          => { hdr => 'Log Writes',          num => 1, label => 'Pending log writes' },
-   port                        => { hdr => 'Port',                num => 1, label => 'Client port number', },
-   possible_keys               => { hdr => 'Poss. Keys',          num => 0, label => 'Possible keys' },
-   proc_no                     => { hdr => 'Proc',                num => 1, label => 'Process number' },
-   q_cache_hit                 => { hdr => 'QCacheHit',           num => 1, label => 'Query cache hit ratio', },
-   qps                         => { hdr => 'QPS',                 num => 1, label => 'How many queries/sec', },
-   queries_in_queue            => { hdr => 'Queries Queued',      num => 1, label => 'Queries in queue' },
-   queries_inside              => { hdr => 'Queries Inside',      num => 1, label => 'Queries inside InnoDB' },
-   query_id                    => { hdr => 'Query ID',            num => 1, label => 'Query ID' },
-   query_status                => { hdr => 'Query Status',        num => 0, label => 'The query status' },
-   query_text                  => { hdr => 'Query Text',          num => 0, label => 'The query text' },
-   questions                   => { hdr => 'Questions',           num => 1, label => 'How many queries the server has gotten', },
-   read_master_log_pos         => { hdr => 'Read Master Pos',     num => 1, label => 'Read master log position' },
-   read_views_open             => { hdr => 'Rd Views',            num => 1, label => 'Number of read views open' },
-   reads_pending               => { hdr => 'Pending Reads',       num => 1, label => 'Reads pending' },
-   relay_log_file              => { hdr => 'Relay File',          num => 0, label => 'Relay log file' },
-   relay_log_pos               => { hdr => 'Relay Pos',           num => 1, label => 'Relay log position' },
-   relay_log_size              => { hdr => 'Relay Size',          num => 1, label => 'Relay log size' },
-   relay_master_log_file       => { hdr => 'Relay Master File',   num => 0, label => 'Relay master log file' },
-   replicate_do_db             => { hdr => 'Do DB',               num => 0, label => 'Replicate-do-db setting' },
-   replicate_do_table          => { hdr => 'Do Table',            num => 0, label => 'Replicate-do-table setting' },
-   replicate_ignore_db         => { hdr => 'Ignore DB',           num => 0, label => 'Replicate-ignore-db setting' },
-   replicate_ignore_table      => { hdr => 'Ignore Table',        num => 0, label => 'Replicate-do-table setting' },
-   replicate_wild_do_table     => { hdr => 'Wild Do Table',       num => 0, label => 'Replicate-wild-do-table setting' },
-   replicate_wild_ignore_table => { hdr => 'Wild Ignore Table',   num => 0, label => 'Replicate-wild-ignore-table setting' },
-   request_type                => { hdr => 'Type',                num => 0, label => 'Type of lock the thread waits for' },
-   reservation_count           => { hdr => 'ResCnt',              num => 1, label => 'Reservation Count' },
-   row_locks                   => { hdr => 'RLocks',              num => 1, label => 'Number of row locks' },
-   rw_excl_os_waits            => { hdr => 'RW Waits',            num => 1, label => 'R/W Excl. OS Waits' },
-   rw_excl_spins               => { hdr => 'RW Spins',            num => 1, label => 'R/W Excl. Spins' },
-   rw_shared_os_waits          => { hdr => 'Sh Waits',            num => 1, label => 'R/W Shared OS Waits' },
-   rw_shared_spins             => { hdr => 'Sh Spins',            num => 1, label => 'R/W Shared Spins' },
-   scan_type                   => { hdr => 'Type',                num => 0, label => 'Scan type in chosen' },
-   seg_size                    => { hdr => 'Seg. Size',           num => 1, label => 'Segment size' },
-   select_type                 => { hdr => 'Select Type',         num => 0, label => 'Type of select used' },
-   signal_count                => { hdr => 'Signals',             num => 1, label => 'Signal Count' },
-   size                        => { hdr => 'Size',                num => 1, label => 'Size of the tablespace' },
-   skip_counter                => { hdr => 'Skip Counter',        num => 1, label => 'Skip counter' },
-   slave_catchup_rate          => { hdr => 'Catchup',             num => 1, label => 'How fast the slave is catching up in the binlog' },
-   slave_io_running            => { hdr => 'Slave-IO',            num => 0, label => 'Whether the slave I/O thread is running' },
-   slave_io_state              => { hdr => 'Slave IO State',      num => 0, label => 'Slave I/O thread state' },
-   slave_open_temp_tables      => { hdr => 'Temp',                num => 1, label => 'Slave open temp tables' },
-   slave_sql_running           => { hdr => 'Slave-SQL',           num => 0, label => 'Whether the slave SQL thread is running' },
-   slow                        => { hdr => 'Slow',                num => 1, label => 'How many slow queries', },
-   space_id                    => { hdr => 'Space',               num => 1, label => 'Tablespace ID' },
-   special                     => { hdr => 'Special',             num => 0, label => 'Special/Other info' },
-   state                       => { hdr => 'State',               num => 0, label => 'Connection state', maxw => 18, },
-   tables_in_use               => { hdr => 'Tbl Used',            num => 1, label => 'Number of tables in use' },
-   tables_locked               => { hdr => 'Tbl Lck',             num => 1, label => 'Number of tables locked' },
-   tbl                         => { hdr => 'Table',               num => 0, label => 'Table', },
-   thread                      => { hdr => 'Thread',              num => 1, label => 'Thread number' },
-   thread_decl_inside          => { hdr => 'Thread Inside',       num => 0, label => 'What the thread is declared inside' },
-   thread_purpose              => { hdr => 'Purpose',             num => 0, label => "The thread's purpose" },
-   thread_status               => { hdr => 'Thread Status',       num => 0, label => 'The thread status' },
-   time                        => { hdr => 'Time',                num => 1, label => 'Time since the last event', },
-   time_behind_master          => { hdr => 'TimeLag',             num => 1, label => 'Time slave lags master' },
-   timestring                  => { hdr => 'Timestring',          num => 0, label => 'Time the event occurred' },
-   total                       => { hdr => 'Total',               num => 1, label => 'Total' },
-   total_mem_alloc             => { hdr => 'Memory',              num => 1, label => 'Total memory allocated' },
-   truncates                   => { hdr => 'Trunc',               num => 0, label => 'Whether the deadlock is truncating InnoDB status' },
-   txn_doesnt_see_ge           => { hdr => "Txn Won't See",       num => 0, label => 'Where txn read view is limited' },
-   txn_id                      => { hdr => 'ID',                  num => 0, label => 'Transaction ID' },
-   txn_sees_lt                 => { hdr => 'Txn Sees',            num => 1, label => 'Where txn read view is limited' },
-   txn_status                  => { hdr => 'Txn Status',          num => 0, label => 'Transaction status' },
-   txn_time_remain             => { hdr => 'Remaining',           num => 1, label => 'Time until txn rollback/commit completes' },
-   undo_log_entries            => { hdr => 'Undo',                num => 1, label => 'Number of undo log entries' },
-   undo_for                    => { hdr => 'Undo',                num => 0, label => 'Undo for' },
-   until_condition             => { hdr => 'Until Condition',     num => 0, label => 'Slave until condition' },
-   until_log_file              => { hdr => 'Until Log File',      num => 0, label => 'Slave until log file' },
-   until_log_pos               => { hdr => 'Until Log Pos',       num => 1, label => 'Slave until log position' },
-   used_cells                  => { hdr => 'Cells Used',          num => 1, label => 'Number of cells used' },
-   used_bufs                   => { hdr => 'Used Bufs',           num => 1, label => 'Number of buffer pool pages used' },
-   user                        => { hdr => 'User',                num => 0, label => 'Database username', },
-   value                       => { hdr => 'Value',               num => 1, label => 'Value' },
-   versions                    => { hdr => 'Versions',            num => 1, label => 'Number of InnoDB MVCC versions unpurged' },
-   victim                      => { hdr => 'Victim',              num => 0, label => 'Whether this txn was the deadlock victim' },
-   wait_array_size             => { hdr => 'Wait Array Size',     num => 1, label => 'Wait Array Size' },
-   wait_status                 => { hdr => 'Lock Status',         num => 0, label => 'Status of txn locks' },
-   waited_at_filename          => { hdr => 'File',                num => 0, label => 'Filename at which thread waits' },
-   waited_at_line              => { hdr => 'Line',                num => 1, label => 'Line at which thread waits' },
-   waiters_flag                => { hdr => 'Waiters',             num => 1, label => 'Waiters Flag' },
-   waiting                     => { hdr => 'Waiting',             num => 1, label => 'Whether lock is being waited for' },
-   when                        => { hdr => 'When',                num => 0, label => 'Time scale' },
-   writer_lock_mode            => { hdr => 'Wrtr Lck Mode',       num => 0, label => 'Writer lock mode' },
-   writer_thread               => { hdr => 'Wrtr Thread',         num => 1, label => 'Writer thread ID' },
-   writes_pending              => { hdr => 'Writes',              num => 1, label => 'Number of writes pending' },
-   writes_pending_flush_list   => { hdr => 'Flush List Writes',   num => 1, label => 'Number of flush list writes pending' },
-   writes_pending_lru          => { hdr => 'LRU Writes',          num => 1, label => 'Number of LRU writes pending' },
-   writes_pending_single_page  => { hdr => '1-Page Writes',       num => 1, label => 'Number of 1-page writes pending' },
-);
-
-# Apply a default property or three.  By default, columns are not width-constrained,
-# aligned left, and sorted alphabetically, not numerically.
-foreach my $col ( values %columns ) {
-   map { $col->{$_} ||= 0 } qw(num minw maxw);
-   $col->{just} = $col->{num} ? '' : '-';
-}
-
-# Filters {{{3
-# This hash defines every filter that can be applied to a table.  These
-# become part of tbl_meta as well.  Each filter is just an expression that
-# returns true or false.
-# Properties of each entry:
-#  * func:   the subroutine
-#  * name:   the name, repeated
-#  * user:   whether it's a user-defined filter (saved in config)
-#  * text:   text of the subroutine
-#  * note:   explanation
-my %filters = ();
-
-# These are pre-processed to live in %filters above, by compiling them.
-my %builtin_filters = (
-   hide_self => {
-      text => <<'      END',
-         return ( !$set->{info} || $set->{info} ne 'SHOW FULL PROCESSLIST' )
-             && ( !$set->{query_text}    || $set->{query_text} !~ m/INNODB STATUS$/ );
-      END
-      note => 'Removes the innotop processes from the list',
-      tbls => [qw(innodb_transactions processlist)],
-   },
-   hide_inactive => {
-      text => <<'      END',
-         return ( !defined($set->{txn_status}) || $set->{txn_status} ne 'not started' )
-             && ( !defined($set->{cmd})        || $set->{cmd} !~ m/Sleep|Binlog Dump/ )
-             && ( !defined($set->{info})       || $set->{info} =~ m/\S/               );
-      END
-      note => 'Removes processes which are not doing anything',
-      tbls => [qw(innodb_transactions processlist)],
-   },
-   hide_slave_io => {
-      text => <<'      END',
-         return !$set->{state} || $set->{state} !~ m/^(?:Waiting for master|Has read all relay)/;
-      END
-      note => 'Removes slave I/O threads from the list',
-      tbls => [qw(processlist slave_io_status)],
-   },
-   table_is_open => {
-      text => <<'      END',
-         return $set->{num_times_open} + $set->{is_name_locked};
-      END
-      note => 'Removes tables that are not in use or locked',
-      tbls => [qw(open_tables)],
-   },
-   cxn_is_master => {
-      text => <<'      END',
-         return $set->{master_file} ? 1 : 0;
-      END
-      note => 'Removes servers that are not masters',
-      tbls => [qw(master_status)],
-   },
-   cxn_is_slave => {
-      text => <<'      END',
-         return $set->{master_host} ? 1 : 0;
-      END
-      note => 'Removes servers that are not slaves',
-      tbls => [qw(slave_io_status slave_sql_status)],
-   },
-   thd_is_not_waiting => {
-      text => <<'      END',
-         return $set->{thread_status} !~ m#waiting for i/o request#;
-      END
-      note => 'Removes idle I/O threads',
-      tbls => [qw(io_threads)],
-   },
-);
-foreach my $key ( keys %builtin_filters ) {
-   my ( $sub, $err ) = compile_filter($builtin_filters{$key}->{text});
-   $filters{$key} = {
-      func => $sub,
-      text => $builtin_filters{$key}->{text},
-      user => 0,
-      name => $key, # useful for later
-      note => $builtin_filters{$key}->{note},
-      tbls => $builtin_filters{$key}->{tbls},
-   }
-}
-
-# Variable sets {{{3
-# Sets (arrayrefs) of variables that are used in S mode.  They are read/written to
-# the config file.
-my %var_sets = (
-   general => {
-      text => join(
-         ', ',
-         'set_precision(Questions/Uptime_hires) as QPS',
-         'set_precision(Com_commit/Uptime_hires) as Commit_PS',
-         'set_precision((Com_rollback||0)/(Com_commit||1)) as Rollback_Commit',
-         'set_precision(('
-            . join('+', map { "($_||0)" }
-               qw(Com_delete Com_delete_multi Com_insert Com_insert_select Com_replace
-                  Com_replace_select Com_select Com_update Com_update_multi))
-            . ')/(Com_commit||1)) as Write_Commit',
-         'set_precision((Com_select+(Qcache_hits||0))/(('
-            . join('+', map { "($_||0)" }
-               qw(Com_delete Com_delete_multi Com_insert Com_insert_select Com_replace
-                  Com_replace_select Com_select Com_update Com_update_multi))
-            . ')||1)) as R_W_Ratio',
-         'set_precision(Opened_tables/Uptime_hires) as Opens_PS',
-         'percent($cur->{Open_tables}/($cur->{table_cache})) as Table_Cache_Used',
-         'set_precision(Threads_created/Uptime_hires) as Threads_PS',
-         'percent($cur->{Threads_cached}/($cur->{thread_cache_size}||1)) as Thread_Cache_Used',
-         'percent($cur->{Max_used_connections}/($cur->{max_connections}||1)) as CXN_Used_Ever',
-         'percent($cur->{Threads_connected}/($cur->{max_connections}||1)) as CXN_Used_Now',
-      ),
-   },
-   commands => {
-      text => join(
-         ', ',
-         qw(Uptime Questions Com_delete Com_delete_multi Com_insert
-         Com_insert_select Com_replace Com_replace_select Com_select Com_update
-         Com_update_multi)
-      ),
-   },
-   query_status => {
-      text => join(
-         ',',
-         qw( Uptime Select_full_join Select_full_range_join Select_range
-         Select_range_check Select_scan Slow_queries Sort_merge_passes
-         Sort_range Sort_rows Sort_scan)
-      ),
-   },
-   innodb => {
-      text => join(
-         ',',
-         qw( Uptime Innodb_row_lock_current_waits Innodb_row_lock_time
-         Innodb_row_lock_time_avg Innodb_row_lock_time_max Innodb_row_lock_waits
-         Innodb_rows_deleted Innodb_rows_inserted Innodb_rows_read
-         Innodb_rows_updated)
-      ),
-   },
-   txn => {
-      text => join(
-         ',',
-         qw( Uptime Com_begin Com_commit Com_rollback Com_savepoint
-         Com_xa_commit Com_xa_end Com_xa_prepare Com_xa_recover Com_xa_rollback
-         Com_xa_start)
-      ),
-   },
-   key_cache => {
-      text => join(
-         ',',
-         qw( Uptime Key_blocks_not_flushed Key_blocks_unused Key_blocks_used
-         Key_read_requests Key_reads Key_write_requests Key_writes )
-      ),
-   },
-   query_cache => {
-      text => join(
-         ',',
-         "percent($exprs{QcacheHitRatio}) as Hit_Pct",
-         'set_precision((Qcache_hits||0)/(Qcache_inserts||1)) as Hit_Ins',
-         'set_precision((Qcache_lowmem_prunes||0)/Uptime_hires) as Lowmem_Prunes_sec',
-         'percent(1-((Qcache_free_blocks||0)/(Qcache_total_blocks||1))) as Blocks_used',
-         qw( Qcache_free_blocks Qcache_free_memory Qcache_not_cached Qcache_queries_in_cache)
-      ),
-   },
-   handler => {
-      text => join(
-         ',',
-         qw( Uptime Handler_read_key Handler_read_first Handler_read_next
-         Handler_read_prev Handler_read_rnd Handler_read_rnd_next Handler_delete
-         Handler_update Handler_write)
-      ),
-   },
-   cxns_files_threads => {
-      text => join(
-         ',',
-         qw( Uptime Aborted_clients Aborted_connects Bytes_received Bytes_sent
-         Compression Connections Created_tmp_disk_tables Created_tmp_files
-         Created_tmp_tables Max_used_connections Open_files Open_streams
-         Open_tables Opened_tables Table_locks_immediate Table_locks_waited
-         Threads_cached Threads_connected Threads_created Threads_running)
-      ),
-   },
-   prep_stmt => {
-      text => join(
-         ',',
-         qw( Uptime Com_dealloc_sql Com_execute_sql Com_prepare_sql Com_reset
-         Com_stmt_close Com_stmt_execute Com_stmt_fetch Com_stmt_prepare
-         Com_stmt_reset Com_stmt_send_long_data )
-      ),
-   },
-   innodb_health => {
-      text => join(
-         ',',
-         "$exprs{OldVersions} as OldVersions",
-         qw(IB_sm_mutex_spin_waits IB_sm_mutex_spin_rounds IB_sm_mutex_os_waits),
-         "$exprs{NumTxns} as NumTxns",
-         "$exprs{MaxTxnTime} as MaxTxnTime",
-         qw(IB_ro_queries_inside IB_ro_queries_in_queue),
-         "set_precision($exprs{DirtyBufs} * 100) as dirty_bufs",
-         "set_precision($exprs{BufPoolFill} * 100) as buf_fill",
-         qw(IB_bp_pages_total IB_bp_pages_read IB_bp_pages_written IB_bp_pages_created)
-      ),
-   },
-   innodb_health2 => {
-      text => join(
-         ', ',
-         'percent(1-((Innodb_buffer_pool_pages_free||0)/($cur->{Innodb_buffer_pool_pages_total}||1))) as BP_page_cache_usage',
-         'percent(1-((Innodb_buffer_pool_reads||0)/(Innodb_buffer_pool_read_requests||1))) as BP_cache_hit_ratio',
-         'Innodb_buffer_pool_wait_free',
-         'Innodb_log_waits',
-      ),
-   },
-   slow_queries => {
-      text => join(
-         ', ',
-         'set_precision(Slow_queries/Uptime_hires) as Slow_PS',
-         'set_precision(Select_full_join/Uptime_hires) as Full_Join_PS',
-         'percent(Select_full_join/(Com_select||1)) as Full_Join_Ratio',
-      ),
-   },
-);
-
-# Server sets {{{3
-# Defines sets of servers between which the user can quickly switch.
-my %server_groups;
-
-# Connections {{{3
-# This hash defines server connections.  Each connection is a string that can be passed to
-# the DBI connection.  These are saved in the connections section in the config file.
-my %connections;
-# Defines the parts of connections.
-my @conn_parts = qw(user have_user pass have_pass dsn savepass dl_table);
-
-# Graph widths {{{3
-# This hash defines the max values seen for various status/variable values, for graphing.
-# These are stored in their own section in the config file.  These are just initial values:
-my %mvs = (
-   Com_select   => 50,
-   Com_insert   => 50,
-   Com_update   => 50,
-   Com_delete   => 50,
-   Questions    => 100,
-);
-
-# ###########################################################################
-# Valid Term::ANSIColor color strings.
-# ###########################################################################
-my %ansicolors = map { $_ => 1 }
-   qw( black blink blue bold clear concealed cyan dark green magenta on_black
-       on_blue on_cyan on_green on_magenta on_red on_white on_yellow red reset
-       reverse underline underscore white yellow);
-
-# ###########################################################################
-# Valid comparison operators for color rules
-# ###########################################################################
-my %comp_ops = (
-   '==' => 'Numeric equality',
-   '>'  => 'Numeric greater-than',
-   '<'  => 'Numeric less-than',
-   '>=' => 'Numeric greater-than/equal',
-   '<=' => 'Numeric less-than/equal',
-   '!=' => 'Numeric not-equal',
-   'eq' => 'String equality',
-   'gt' => 'String greater-than',
-   'lt' => 'String less-than',
-   'ge' => 'String greater-than/equal',
-   'le' => 'String less-than/equal',
-   'ne' => 'String not-equal',
-   '=~' => 'Pattern match',
-   '!~' => 'Negated pattern match',
-);
-
-# ###########################################################################
-# Valid aggregate functions.
-# ###########################################################################
-my %agg_funcs = (
-   first => sub {
-      return $_[0]
-   },
-   count => sub {
-      return 0 + @_;
-   },
-   avg   => sub {
-      my @args = grep { defined $_ } @_;
-      return (sum(map { m/([\d\.-]+)/g } @args) || 0) / (scalar(@args) || 1);
-   },
-   sum   => \&sum,
-);
-
-# ###########################################################################
-# Valid functions for transformations.
-# ###########################################################################
-my %trans_funcs = (
-   shorten      => \&shorten,
-   secs_to_time => \&secs_to_time,
-   no_ctrl_char => \&no_ctrl_char,
-   percent      => \&percent,
-   commify      => \&commify,
-   dulint_to_int => \&dulint_to_int,
-   set_precision => \&set_precision,
-);
-
-# Table definitions {{{3
-# This hash defines every table that can get displayed in every mode.  Each
-# table specifies columns and column data sources.  The column is
-# defined by the %columns hash.
-#
-# Example: foo => { src => 'bar' } means the foo column (look at
-# $columns{foo} for its definition) gets its data from the 'bar' element of
-# the current data set, whatever that is.
-#
-# These columns are post-processed after being defined, because they get stuff
-# from %columns.  After all the config is loaded for columns, there's more
-# post-processing too; the subroutines compiled from src get added to
-# the hash elements for extract_values to use.
-# ###########################################################################
-
-my %tbl_meta = (
-   adaptive_hash_index => {
-      capt => 'Adaptive Hash Index',
-      cust => {},
-      cols => {
-         cxn                 => { src => 'cxn' },
-         hash_table_size     => { src => 'IB_ib_hash_table_size', trans => [qw(shorten)], },
-         used_cells          => { src => 'IB_ib_used_cells' },
-         bufs_in_node_heap   => { src => 'IB_ib_bufs_in_node_heap' },
-         hash_searches_s     => { src => 'IB_ib_hash_searches_s' },
-         non_hash_searches_s => { src => 'IB_ib_non_hash_searches_s' },
-      },
-      visible => [ qw(cxn hash_table_size used_cells bufs_in_node_heap hash_searches_s non_hash_searches_s) ],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'ib',
-      group_by => [],
-      aggregate => 0,
-   },
-   buffer_pool => {
-      capt => 'Buffer Pool',
-      cust => {},
-      cols => {
-         cxn                        => { src => 'cxn' },
-         total_mem_alloc            => { src => 'IB_bp_total_mem_alloc', trans => [qw(shorten)], },
-         awe_mem_alloc              => { src => 'IB_bp_awe_mem_alloc', trans => [qw(shorten)], },
-         add_pool_alloc             => { src => 'IB_bp_add_pool_alloc', trans => [qw(shorten)], },
-         buf_pool_size              => { src => 'IB_bp_buf_pool_size', trans => [qw(shorten)], },
-         buf_free                   => { src => 'IB_bp_buf_free' },
-         buf_pool_hit_rate          => { src => 'IB_bp_buf_pool_hit_rate' },
-         buf_pool_reads             => { src => 'IB_bp_buf_pool_reads' },
-         buf_pool_hits              => { src => 'IB_bp_buf_pool_hits' },
-         dict_mem_alloc             => { src => 'IB_bp_dict_mem_alloc' },
-         pages_total                => { src => 'IB_bp_pages_total' },
-         pages_modified             => { src => 'IB_bp_pages_modified' },
-         reads_pending              => { src => 'IB_bp_reads_pending' },
-         writes_pending             => { src => 'IB_bp_writes_pending' },
-         writes_pending_lru         => { src => 'IB_bp_writes_pending_lru' },
-         writes_pending_flush_list  => { src => 'IB_bp_writes_pending_flush_list' },
-         writes_pending_single_page => { src => 'IB_bp_writes_pending_single_page' },
-         page_creates_sec           => { src => 'IB_bp_page_creates_sec' },
-         page_reads_sec             => { src => 'IB_bp_page_reads_sec' },
-         page_writes_sec            => { src => 'IB_bp_page_writes_sec' },
-         pages_created              => { src => 'IB_bp_pages_created' },
-         pages_read                 => { src => 'IB_bp_pages_read' },
-         pages_written              => { src => 'IB_bp_pages_written' },
-      },
-      visible => [ qw(cxn buf_pool_size buf_free pages_total pages_modified buf_pool_hit_rate total_mem_alloc add_pool_alloc)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'bp',
-      group_by => [],
-      aggregate => 0,
-   },
-   # TODO: a new step in set_to_tbl: join result to itself, grouped?
-   # TODO: this would also enable pulling Q and T data together.
-   # TODO: using a SQL-ish language would also allow pivots to be easier -- treat the pivoted data as a view and SELECT from it.
-   cmd_summary => {
-      capt => 'Command Summary',
-      cust => {},
-      cols => {
-         name       => { src => 'name' },
-         total      => { src => 'total' },
-         value      => { src => 'value',                     agg   => 'sum'},
-         pct        => { src => 'value/total',               trans => [qw(percent)] },
-         last_total => { src => 'last_total' },
-         last_value => { src => 'last_value',                agg   => 'sum'},
-         last_pct   => { src => 'last_value/last_total',     trans => [qw(percent)] },
-      },
-      visible   => [qw(name value pct last_value last_pct)],
-      filters   => [qw()],
-      sort_cols => '-value',
-      sort_dir  => '1',
-      innodb    => '',
-      group_by  => [qw(name)],
-      aggregate => 1,
-   },
-   deadlock_locks => {
-      capt => 'Deadlock Locks',
-      cust => {},
-      cols => {
-         cxn              => { src => 'cxn' },
-         mysql_thread_id  => { src => 'mysql_thread_id' },
-         dl_txn_num       => { src => 'dl_txn_num' },
-         lock_type        => { src => 'lock_type' },
-         space_id         => { src => 'space_id' },
-         page_no          => { src => 'page_no' },
-         heap_no          => { src => 'heap_no' },
-         n_bits           => { src => 'n_bits' },
-         index            => { src => 'index' },
-         db               => { src => 'db' },
-         tbl              => { src => 'table' },
-         lock_mode        => { src => 'lock_mode' },
-         special          => { src => 'special' },
-         insert_intention => { src => 'insert_intention' },
-         waiting          => { src => 'waiting' },
-      },
-      visible => [ qw(cxn mysql_thread_id waiting lock_mode db tbl index special insert_intention)],
-      filters => [],
-      sort_cols => 'cxn mysql_thread_id',
-      sort_dir => '1',
-      innodb   => 'dl',
-      group_by => [],
-      aggregate => 0,
-   },
-   deadlock_transactions => {
-      capt => 'Deadlock Transactions',
-      cust => {},
-      cols => {
-         cxn                => { src => 'cxn' },
-         active_secs        => { src => 'active_secs' },
-         dl_txn_num         => { src => 'dl_txn_num' },
-         has_read_view      => { src => 'has_read_view' },
-         heap_size          => { src => 'heap_size' },
-         host_and_domain    => { src => 'hostname' },
-         hostname           => { src => $exprs{Host} },
-         ip                 => { src => 'ip' },
-         lock_structs       => { src => 'lock_structs' },
-         lock_wait_time     => { src => 'lock_wait_time', trans => [ qw(secs_to_time) ] },
-         mysql_thread_id    => { src => 'mysql_thread_id' },
-         os_thread_id       => { src => 'os_thread_id' },
-         proc_no            => { src => 'proc_no' },
-         query_id           => { src => 'query_id' },
-         query_status       => { src => 'query_status' },
-         query_text         => { src => 'query_text', trans => [ qw(no_ctrl_char) ] },
-         row_locks          => { src => 'row_locks' },
-         tables_in_use      => { src => 'tables_in_use' },
-         tables_locked      => { src => 'tables_locked' },
-         thread_decl_inside => { src => 'thread_decl_inside' },
-         thread_status      => { src => 'thread_status' },
-         'time'             => { src => 'active_secs', trans => [ qw(secs_to_time) ] },
-         timestring         => { src => 'timestring' },
-         txn_doesnt_see_ge  => { src => 'txn_doesnt_see_ge' },
-         txn_id             => { src => 'txn_id' },
-         txn_sees_lt        => { src => 'txn_sees_lt' },
-         txn_status         => { src => 'txn_status' },
-         truncates          => { src => 'truncates' },
-         undo_log_entries   => { src => 'undo_log_entries' },
-         user               => { src => 'user' },
-         victim             => { src => 'victim' },
-         wait_status        => { src => 'lock_wait_status' },
-      },
-      visible => [ qw(cxn mysql_thread_id timestring user hostname victim time undo_log_entries lock_structs query_text)],
-      filters => [],
-      sort_cols => 'cxn mysql_thread_id',
-      sort_dir => '1',
-      innodb   => 'dl',
-      group_by => [],
-      aggregate => 0,
-   },
-   explain => {
-      capt => 'EXPLAIN Results',
-      cust => {},
-      cols => {
-         part_id       => { src => 'id' },
-         select_type   => { src => 'select_type' },
-         tbl           => { src => 'table' },
-         partitions    => { src => 'partitions' },
-         scan_type     => { src => 'type' },
-         possible_keys => { src => 'possible_keys' },
-         index         => { src => 'key' },
-         key_len       => { src => 'key_len' },
-         index_ref     => { src => 'ref' },
-         num_rows      => { src => 'rows' },
-         special       => { src => 'extra' },
-      },
-      visible => [ qw(select_type tbl partitions scan_type possible_keys index key_len index_ref num_rows special)],
-      filters => [],
-      sort_cols => '',
-      sort_dir => '1',
-      innodb   => '',
-      group_by => [],
-      aggregate => 0,
-   },
-   file_io_misc => {
-      capt => 'File I/O Misc',
-      cust => {},
-      cols => {
-         cxn            => { src => 'cxn' },
-         io_bytes_s     => { src => 'IB_io_avg_bytes_s' },
-         io_flush_type  => { src => 'IB_io_flush_type' },
-         io_fsyncs_s    => { src => 'IB_io_fsyncs_s' },
-         io_reads_s     => { src => 'IB_io_reads_s' },
-         io_writes_s    => { src => 'IB_io_writes_s' },
-         os_file_reads  => { src => 'IB_io_os_file_reads' },
-         os_file_writes => { src => 'IB_io_os_file_writes' },
-         os_fsyncs      => { src => 'IB_io_os_fsyncs' },
-      },
-      visible => [ qw(cxn os_file_reads os_file_writes os_fsyncs io_reads_s io_writes_s io_bytes_s)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'io',
-      group_by => [],
-      aggregate => 0,
-   },
-   fk_error => {
-      capt => 'Foreign Key Error Info',
-      cust => {},
-      cols => {
-         timestring   => { src => 'IB_fk_timestring' },
-         child_db     => { src => 'IB_fk_child_db' },
-         child_table  => { src => 'IB_fk_child_table' },
-         child_index  => { src => 'IB_fk_child_index' },
-         fk_name      => { src => 'IB_fk_fk_name' },
-         parent_db    => { src => 'IB_fk_parent_db' },
-         parent_table => { src => 'IB_fk_parent_table' },
-         parent_col   => { src => 'IB_fk_parent_col' },
-         parent_index => { src => 'IB_fk_parent_index' },
-         attempted_op => { src => 'IB_fk_attempted_op' },
-      },
-      visible => [ qw(timestring child_db child_table child_index parent_db parent_table parent_col parent_index fk_name attempted_op)],
-      filters => [],
-      sort_cols => '',
-      sort_dir => '1',
-      innodb   => 'fk',
-      group_by => [],
-      aggregate => 0,
-   },
-   insert_buffers => {
-      capt => 'Insert Buffers',
-      cust => {},
-      cols => {
-         cxn           => { src => 'cxn' },
-         inserts       => { src => 'IB_ib_inserts' },
-         merged_recs   => { src => 'IB_ib_merged_recs' },
-         merges        => { src => 'IB_ib_merges' },
-         size          => { src => 'IB_ib_size' },
-         free_list_len => { src => 'IB_ib_free_list_len' },
-         seg_size      => { src => 'IB_ib_seg_size' },
-      },
-      visible => [ qw(cxn inserts merged_recs merges size free_list_len seg_size)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'ib',
-      group_by => [],
-      aggregate => 0,
-   },
-   innodb_locks  => {
-      capt => 'InnoDB Locks',
-      cust => {},
-      cols => {
-         cxn              => { src => 'cxn' },
-         db               => { src => 'db' },
-         index            => { src => 'index' },
-         insert_intention => { src => 'insert_intention' },
-         lock_mode        => { src => 'lock_mode' },
-         lock_type        => { src => 'lock_type' },
-         lock_wait_time   => { src => 'lock_wait_time', trans => [ qw(secs_to_time) ] },
-         mysql_thread_id  => { src => 'mysql_thread_id' },
-         n_bits           => { src => 'n_bits' },
-         page_no          => { src => 'page_no' },
-         space_id         => { src => 'space_id' },
-         special          => { src => 'special' },
-         tbl              => { src => 'table' },
-         'time'           => { src => 'active_secs', hdr => 'Active', trans => [ qw(secs_to_time) ] },
-         txn_id           => { src => 'txn_id' },
-         waiting          => { src => 'waiting' },
-      },
-      visible => [ qw(cxn mysql_thread_id lock_type waiting lock_wait_time time lock_mode db tbl index insert_intention special)],
-      filters => [],
-      sort_cols => 'cxn -lock_wait_time',
-      sort_dir => '1',
-      innodb   => 'tx',
-      colors   => [
-         { col => 'lock_wait_time', op => '>',  arg => 60, color => 'red' },
-         { col => 'lock_wait_time', op => '>',  arg => 30, color => 'yellow' },
-         { col => 'lock_wait_time', op => '>',  arg => 10, color => 'green' },
-      ],
-      group_by => [],
-      aggregate => 0,
-   },
-   innodb_transactions => {
-      capt => 'InnoDB Transactions',
-      cust => {},
-      cols => {
-         cxn                => { src => 'cxn' },
-         active_secs        => { src => 'active_secs' },
-         has_read_view      => { src => 'has_read_view' },
-         heap_size          => { src => 'heap_size' },
-         hostname           => { src => $exprs{Host} },
-         ip                 => { src => 'ip' },
-         wait_status        => { src => 'lock_wait_status' },
-         lock_wait_time     => { src => 'lock_wait_time',      trans => [ qw(secs_to_time) ] },
-         lock_structs       => { src => 'lock_structs' },
-         mysql_thread_id    => { src => 'mysql_thread_id' },
-         os_thread_id       => { src => 'os_thread_id' },
-         proc_no            => { src => 'proc_no' },
-         query_id           => { src => 'query_id' },
-         query_status       => { src => 'query_status' },
-         query_text         => { src => 'query_text',          trans => [ qw(no_ctrl_char) ] },
-         txn_time_remain    => { src => $exprs{TxnTimeRemain}, trans => [ qw(secs_to_time) ] },
-         row_locks          => { src => 'row_locks' },
-         tables_in_use      => { src => 'tables_in_use' },
-         tables_locked      => { src => 'tables_locked' },
-         thread_decl_inside => { src => 'thread_decl_inside' },
-         thread_status      => { src => 'thread_status' },
-         'time'             => { src => 'active_secs',         trans => [ qw(secs_to_time) ], agg => 'sum' },
-         txn_doesnt_see_ge  => { src => 'txn_doesnt_see_ge' },
-         txn_id             => { src => 'txn_id' },
-         txn_sees_lt        => { src => 'txn_sees_lt' },
-         txn_status         => { src => 'txn_status',          minw => 10, maxw => 10 },
-         undo_log_entries   => { src => 'undo_log_entries' },
-         user               => { src => 'user',                maxw => 10 },
-         cnt                => { src => 'mysql_thread_id',     minw => 0 },
-      },
-      visible => [ qw(cxn cnt mysql_thread_id user hostname txn_status time undo_log_entries query_text)],
-      filters => [ qw( hide_self hide_inactive ) ],
-      sort_cols => '-active_secs txn_status cxn mysql_thread_id',
-      sort_dir => '1',
-      innodb   => 'tx',
-      hide_caption => 1,
-      colors   => [
-         { col => 'wait_status', op => 'eq', arg => 'LOCK WAIT',   color => 'black on_red' },
-         { col => 'time',        op => '>',  arg => 600,           color => 'red' },
-         { col => 'time',        op => '>',  arg => 300,           color => 'yellow' },
-         { col => 'time',        op => '>',  arg => 60,            color => 'green' },
-         { col => 'time',        op => '>',  arg => 30,            color => 'cyan' },
-         { col => 'txn_status',  op => 'eq', arg => 'not started', color => 'white' },
-      ],
-      group_by => [ qw(cxn txn_status) ],
-      aggregate => 0,
-   },
-   io_threads => {
-      capt => 'I/O Threads',
-      cust => {},
-      cols => {
-         cxn            => { src => 'cxn' },
-         thread         => { src => 'thread' },
-         thread_purpose => { src => 'purpose' },
-         event_set      => { src => 'event_set' },
-         thread_status  => { src => 'state' },
-      },
-      visible => [ qw(cxn thread thread_purpose thread_status)],
-      filters => [ qw() ],
-      sort_cols => 'cxn thread',
-      sort_dir => '1',
-      innodb   => 'io',
-      group_by => [],
-      aggregate => 0,
-   },
-   log_statistics => {
-      capt => 'Log Statistics',
-      cust => {},
-      cols => {
-         cxn                 => { src => 'cxn' },
-         last_chkp           => { src => 'IB_lg_last_chkp' },
-         log_flushed_to      => { src => 'IB_lg_log_flushed_to' },
-         log_ios_done        => { src => 'IB_lg_log_ios_done' },
-         log_ios_s           => { src => 'IB_lg_log_ios_s' },
-         log_seq_no          => { src => 'IB_lg_log_seq_no' },
-         pending_chkp_writes => { src => 'IB_lg_pending_chkp_writes' },
-         pending_log_writes  => { src => 'IB_lg_pending_log_writes' },
-      },
-      visible => [ qw(cxn log_seq_no log_flushed_to last_chkp log_ios_done log_ios_s)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'lg',
-      group_by => [],
-      aggregate => 0,
-   },
-   master_status => {
-      capt => 'Master Status',
-      cust => {},
-      cols => {
-         cxn                         => { src => 'cxn' },
-         binlog_do_db                => { src => 'binlog_do_db' },
-         binlog_ignore_db            => { src => 'binlog_ignore_db' },
-         master_file                 => { src => 'file' },
-         master_pos                  => { src => 'position' },
-         binlog_cache_overflow       => { src => '(Binlog_cache_disk_use||0)/(Binlog_cache_use||1)', trans => [ qw(percent) ] },
-      },
-      visible => [ qw(cxn master_file master_pos binlog_cache_overflow)],
-      filters => [ qw(cxn_is_master) ],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => '',
-      group_by => [],
-      aggregate => 0,
-   },
-   pending_io => {
-      capt => 'Pending I/O',
-      cust => {},
-      cols => {
-         cxn                => { src => 'cxn' },
-         p_normal_aio_reads => { src => 'IB_io_pending_normal_aio_reads' },
-         p_aio_writes       => { src => 'IB_io_pending_aio_writes' },
-         p_ibuf_aio_reads   => { src => 'IB_io_pending_ibuf_aio_reads' },
-         p_sync_ios         => { src => 'IB_io_pending_sync_ios' },
-         p_buf_pool_flushes => { src => 'IB_io_pending_buffer_pool_flushes' },
-         p_log_flushes      => { src => 'IB_io_pending_log_flushes' },
-         p_log_ios          => { src => 'IB_io_pending_log_ios' },
-         p_preads           => { src => 'IB_io_pending_preads' },
-         p_pwrites          => { src => 'IB_io_pending_pwrites' },
-      },
-      visible => [ qw(cxn p_normal_aio_reads p_aio_writes p_ibuf_aio_reads p_sync_ios p_log_flushes p_log_ios)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'io',
-      group_by => [],
-      aggregate => 0,
-   },
-   open_tables => {
-      capt => 'Open Tables',
-      cust => {},
-      cols => {
-         cxn            => { src => 'cxn' },
-         db             => { src => 'database' },
-         tbl            => { src => 'table' },
-         num_times_open => { src => 'in_use' },
-         is_name_locked => { src => 'name_locked' },
-      },
-      visible => [ qw(cxn db tbl num_times_open is_name_locked)],
-      filters => [ qw(table_is_open) ],
-      sort_cols => '-num_times_open cxn db tbl',
-      sort_dir => '1',
-      innodb   => '',
-      group_by => [],
-      aggregate => 0,
-   },
-   page_statistics => {
-      capt => 'Page Statistics',
-      cust => {},
-      cols => {
-         cxn              => { src => 'cxn' },
-         pages_read       => { src => 'IB_bp_pages_read' },
-         pages_written    => { src => 'IB_bp_pages_written' },
-         pages_created    => { src => 'IB_bp_pages_created' },
-         page_reads_sec   => { src => 'IB_bp_page_reads_sec' },
-         page_writes_sec  => { src => 'IB_bp_page_writes_sec' },
-         page_creates_sec => { src => 'IB_bp_page_creates_sec' },
-      },
-      visible => [ qw(cxn pages_read pages_written pages_created page_reads_sec page_writes_sec page_creates_sec)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'bp',
-      group_by => [],
-      aggregate => 0,
-   },
-   processlist => {
-      capt => 'MySQL Process List',
-      cust => {},
-      cols => {
-         cxn             => { src => 'cxn',        minw => 6,  maxw => 10 },
-         mysql_thread_id => { src => 'id',         minw => 6,  maxw => 0 },
-         user            => { src => 'user',       minw => 5,  maxw => 8 },
-         hostname        => { src => $exprs{Host}, minw => 13, maxw => 8, },
-         port            => { src => $exprs{Port}, minw => 0,  maxw => 0, },
-         host_and_port   => { src => 'host',       minw => 0,  maxw => 0 },
-         db              => { src => 'db',         minw => 6,  maxw => 12 },
-         cmd             => { src => 'command',    minw => 5,  maxw => 0 },
-         time            => { src => 'time',       minw => 5,  maxw => 0, trans => [ qw(secs_to_time) ], agg => 'sum' },
-         state           => { src => 'state',      minw => 0,  maxw => 0 },
-         info            => { src => 'info',       minw => 0,  maxw => 0, trans => [ qw(no_ctrl_char) ] },
-         cnt             => { src => 'id',         minw => 0,  maxw => 0 },
-      },
-      visible => [ qw(cxn cmd cnt mysql_thread_id user hostname db time info)],
-      filters => [ qw(hide_self hide_inactive hide_slave_io) ],
-      sort_cols => '-time cxn hostname mysql_thread_id',
-      sort_dir => '1',
-      innodb   => '',
-      hide_caption => 1,
-      colors   => [
-         { col => 'state',       op => 'eq', arg => 'Locked',      color => 'black on_red' },
-         { col => 'cmd',         op => 'eq', arg => 'Sleep',       color => 'white' },
-         { col => 'user',        op => 'eq', arg => 'system user', color => 'white' },
-         { col => 'cmd',         op => 'eq', arg => 'Connect',     color => 'white' },
-         { col => 'cmd',         op => 'eq', arg => 'Binlog Dump', color => 'white' },
-         { col => 'time',        op => '>',  arg => 600,           color => 'red' },
-         { col => 'time',        op => '>',  arg => 120,           color => 'yellow' },
-         { col => 'time',        op => '>',  arg => 60,            color => 'green' },
-         { col => 'time',        op => '>',  arg => 30,            color => 'cyan' },
-      ],
-      group_by => [qw(cxn cmd)],
-      aggregate => 0,
-   },
-
-   # TODO: some more columns:
-   # kb_used=hdr='BufUsed' minw='0' num='0' src='percent(1 - ((Key_blocks_unused * key_cache_block_size) / (key_buffer_size||1)))' dec='0' trans='' tbl='q_header' just='-' user='1' maxw='0' label='User-defined'
-   # retries=hdr='Retries' minw='0' num='0' src='Slave_retried_transactions' dec='0' trans='' tbl='slave_sql_status' just='-' user='1' maxw='0' label='User-defined'
-   # thd=hdr='Thd' minw='0' num='0' src='Threads_connected' dec='0' trans='' tbl='slave_sql_status' just='-' user='1' maxw='0' label='User-defined'
-
-   q_header => {
-      capt => 'Q-mode Header',
-      cust => {},
-      cols => {
-         cxn            => { src => 'cxn' },
-         questions      => { src => 'Questions' },
-         qps            => { src => 'Questions/Uptime_hires',               dec => 1, trans => [qw(shorten)] },
-         load           => { src => $exprs{ServerLoad},                     dec => 1, trans => [qw(shorten)] },
-         slow           => { src => 'Slow_queries',                         dec => 1, trans => [qw(shorten)] },
-         q_cache_hit    => { src => $exprs{QcacheHitRatio},                 dec => 1, trans => [qw(percent)] },
-         key_buffer_hit => { src => '1-(Key_reads/(Key_read_requests||1))', dec => 1, trans => [qw(percent)] },
-         bps_in         => { src => 'Bytes_received/Uptime_hires',          dec => 1, trans => [qw(shorten)] },
-         bps_out        => { src => 'Bytes_sent/Uptime_hires',              dec => 1, trans => [qw(shorten)] },
-         when           => { src => 'when' },
-      },
-      visible => [ qw(cxn when load qps slow q_cache_hit key_buffer_hit bps_in bps_out)],
-      filters => [],
-      sort_cols => 'when cxn',
-      sort_dir => '1',
-      innodb   => '',
-      hide_caption => 1,
-      group_by => [],
-      aggregate => 0,
-   },
-   row_operations => {
-      capt => 'InnoDB Row Operations',
-      cust => {},
-      cols => {
-         cxn         => { src => 'cxn' },
-         num_inserts => { src => 'IB_ro_num_rows_ins' },
-         num_updates => { src => 'IB_ro_num_rows_upd' },
-         num_reads   => { src => 'IB_ro_num_rows_read' },
-         num_deletes => { src => 'IB_ro_num_rows_del' },
-         num_inserts_sec => { src => 'IB_ro_ins_sec' },
-         num_updates_sec => { src => 'IB_ro_upd_sec' },
-         num_reads_sec   => { src => 'IB_ro_read_sec' },
-         num_deletes_sec => { src => 'IB_ro_del_sec' },
-      },
-      visible => [ qw(cxn num_inserts num_updates num_reads num_deletes num_inserts_sec
-                       num_updates_sec num_reads_sec num_deletes_sec)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'ro',
-      group_by => [],
-      aggregate => 0,
-   },
-   row_operation_misc => {
-      capt => 'Row Operation Misc',
-      cust => {},
-      cols => {
-         cxn                 => { src => 'cxn' },
-         queries_in_queue    => { src => 'IB_ro_queries_in_queue' },
-         queries_inside      => { src => 'IB_ro_queries_inside' },
-         read_views_open     => { src => 'IB_ro_read_views_open' },
-         main_thread_id      => { src => 'IB_ro_main_thread_id' },
-         main_thread_proc_no => { src => 'IB_ro_main_thread_proc_no' },
-         main_thread_state   => { src => 'IB_ro_main_thread_state' },
-         num_res_ext         => { src => 'IB_ro_n_reserved_extents' },
-      },
-      visible => [ qw(cxn queries_in_queue queries_inside read_views_open main_thread_state)],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'ro',
-      group_by => [],
-      aggregate => 0,
-   },
-   semaphores => {
-      capt => 'InnoDB Semaphores',
-      cust => {},
-      cols => {
-         cxn                => { src => 'cxn' },
-         mutex_os_waits     => { src => 'IB_sm_mutex_os_waits' },
-         mutex_spin_rounds  => { src => 'IB_sm_mutex_spin_rounds' },
-         mutex_spin_waits   => { src => 'IB_sm_mutex_spin_waits' },
-         reservation_count  => { src => 'IB_sm_reservation_count' },
-         rw_excl_os_waits   => { src => 'IB_sm_rw_excl_os_waits' },
-         rw_excl_spins      => { src => 'IB_sm_rw_excl_spins' },
-         rw_shared_os_waits => { src => 'IB_sm_rw_shared_os_waits' },
-         rw_shared_spins    => { src => 'IB_sm_rw_shared_spins' },
-         signal_count       => { src => 'IB_sm_signal_count' },
-         wait_array_size    => { src => 'IB_sm_wait_array_size' },
-      },
-      visible => [ qw(cxn mutex_os_waits mutex_spin_waits mutex_spin_rounds
-         rw_excl_os_waits rw_excl_spins rw_shared_os_waits rw_shared_spins
-         signal_count reservation_count )],
-      filters => [],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => 'sm',
-      group_by => [],
-      aggregate => 0,
-   },
-   slave_io_status => {
-      capt => 'Slave I/O Status',
-      cust => {},
-      cols => {
-         cxn                         => { src => 'cxn' },
-         connect_retry               => { src => 'connect_retry' },
-         master_host                 => { src => 'master_host', hdr => 'Master'},
-         master_log_file             => { src => 'master_log_file', hdr => 'File' },
-         master_port                 => { src => 'master_port' },
-         master_ssl_allowed          => { src => 'master_ssl_allowed' },
-         master_ssl_ca_file          => { src => 'master_ssl_ca_file' },
-         master_ssl_ca_path          => { src => 'master_ssl_ca_path' },
-         master_ssl_cert             => { src => 'master_ssl_cert' },
-         master_ssl_cipher           => { src => 'master_ssl_cipher' },
-         master_ssl_key              => { src => 'master_ssl_key' },
-         master_user                 => { src => 'master_user' },
-         read_master_log_pos         => { src => 'read_master_log_pos', hdr => 'Pos' },
-         relay_log_size              => { src => 'relay_log_space', trans => [qw(shorten)] },
-         slave_io_running            => { src => 'slave_io_running', hdr => 'On?' },
-         slave_io_state              => { src => 'slave_io_state', hdr => 'State' },
-      },
-      visible => [ qw(cxn master_host slave_io_running master_log_file relay_log_size read_master_log_pos slave_io_state)],
-      filters => [ qw( cxn_is_slave ) ],
-      sort_cols => 'slave_io_running cxn',
-      colors   => [
-         { col => 'slave_io_running',  op => 'ne', arg => 'Yes', color => 'black on_red' },
-      ],
-      sort_dir => '1',
-      innodb   => '',
-      group_by => [],
-      aggregate => 0,
-   },
-   slave_sql_status => {
-      capt => 'Slave SQL Status',
-      cust => {},
-      cols => {
-         cxn                         => { src => 'cxn' },
-         exec_master_log_pos         => { src => 'exec_master_log_pos', hdr => 'Master Pos' },
-         last_errno                  => { src => 'last_errno' },
-         last_error                  => { src => 'last_error' },
-         master_host                 => { src => 'master_host', hdr => 'Master' },
-         relay_log_file              => { src => 'relay_log_file' },
-         relay_log_pos               => { src => 'relay_log_pos' },
-         relay_log_size              => { src => 'relay_log_space', trans => [qw(shorten)] },
-         relay_master_log_file       => { src => 'relay_master_log_file', hdr => 'Master File' },
-         replicate_do_db             => { src => 'replicate_do_db' },
-         replicate_do_table          => { src => 'replicate_do_table' },
-         replicate_ignore_db         => { src => 'replicate_ignore_db' },
-         replicate_ignore_table      => { src => 'replicate_ignore_table' },
-         replicate_wild_do_table     => { src => 'replicate_wild_do_table' },
-         replicate_wild_ignore_table => { src => 'replicate_wild_ignore_table' },
-         skip_counter                => { src => 'skip_counter' },
-         slave_sql_running           => { src => 'slave_sql_running', hdr => 'On?' },
-         until_condition             => { src => 'until_condition' },
-         until_log_file              => { src => 'until_log_file' },
-         until_log_pos               => { src => 'until_log_pos' },
-         time_behind_master          => { src => 'seconds_behind_master', trans => [ qw(secs_to_time) ] },
-         bytes_behind_master         => { src => 'master_log_file && master_log_file eq relay_master_log_file ? read_master_log_pos - exec_master_log_pos : 0', trans => [qw(shorten)] },
-         slave_catchup_rate          => { src => $exprs{SlaveCatchupRate}, trans => [ qw(set_precision) ] },
-         slave_open_temp_tables      => { src => 'Slave_open_temp_tables' },
-      },
-      visible => [ qw(cxn master_host slave_sql_running time_behind_master slave_catchup_rate slave_open_temp_tables relay_log_pos last_error)],
-      filters => [ qw( cxn_is_slave ) ],
-      sort_cols => 'slave_sql_running cxn',
-      sort_dir => '1',
-      innodb   => '',
-      colors   => [
-         { col => 'slave_sql_running',  op => 'ne', arg => 'Yes', color => 'black on_red' },
-         { col => 'time_behind_master', op => '>',  arg => 600,   color => 'red' },
-         { col => 'time_behind_master', op => '>',  arg => 60,    color => 'yellow' },
-         { col => 'time_behind_master', op => '==', arg => 0,     color => 'white' },
-      ],
-      group_by => [],
-      aggregate => 0,
-   },
-   t_header => {
-      capt => 'T-Mode Header',
-      cust => {},
-      cols => {
-         cxn                         => { src => 'cxn' },
-         dirty_bufs                  => { src => $exprs{DirtyBufs},           trans => [qw(percent)] },
-         history_list_len            => { src => 'IB_tx_history_list_len' },
-         lock_structs                => { src => 'IB_tx_num_lock_structs' },
-         num_txns                    => { src => $exprs{NumTxns} },
-         max_txn                     => { src => $exprs{MaxTxnTime},          trans => [qw(secs_to_time)] },
-         undo_for                    => { src => 'IB_tx_purge_undo_for' },
-         used_bufs                   => { src => $exprs{BufPoolFill},         trans => [qw(percent)]},
-         versions                    => { src => $exprs{OldVersions} },
-      },
-      visible => [ qw(cxn history_list_len versions undo_for dirty_bufs used_bufs num_txns max_txn lock_structs)],
-      filters => [ ],
-      sort_cols => 'cxn',
-      sort_dir => '1',
-      innodb   => '',
-      colors   => [],
-      hide_caption => 1,
-      group_by => [],
-      aggregate => 0,
-   },
-   var_status => {
-      capt      => 'Variables & Status',
-      cust      => {},
-      cols      => {}, # Generated from current varset
-      visible   => [], # Generated from current varset
-      filters   => [],
-      sort_cols => '',
-      sort_dir  => 1,
-      innodb    => '',
-      temp      => 1, # Do not persist to config file.
-      hide_caption  => 1,
-      pivot     => 0,
-      group_by => [],
-      aggregate => 0,
-   },
-   wait_array => {
-      capt => 'InnoDB Wait Array',
-      cust => {},
-      cols => {
-         cxn                => { src => 'cxn' },
-         thread             => { src => 'thread' },
-         waited_at_filename => { src => 'waited_at_filename' },
-         waited_at_line     => { src => 'waited_at_line' },
-         'time'             => { src => 'waited_secs', trans => [ qw(secs_to_time) ] },
-         request_type       => { src => 'request_type' },
-         lock_mem_addr      => { src => 'lock_mem_addr' },
-         lock_cfile_name    => { src => 'lock_cfile_name' },
-         lock_cline         => { src => 'lock_cline' },
-         writer_thread      => { src => 'writer_thread' },
-         writer_lock_mode   => { src => 'writer_lock_mode' },
-         num_readers        => { src => 'num_readers' },
-         lock_var           => { src => 'lock_var' },
-         waiters_flag       => { src => 'waiters_flag' },
-         last_s_file_name   => { src => 'last_s_file_name' },
-         last_s_line        => { src => 'last_s_line' },
-         last_x_file_name   => { src => 'last_x_file_name' },
-         last_x_line        => { src => 'last_x_line' },
-         cell_waiting       => { src => 'cell_waiting' },
-         cell_event_set     => { src => 'cell_event_set' },
-      },
-      visible => [ qw(cxn thread time waited_at_filename waited_at_line request_type num_readers lock_var waiters_flag cell_waiting cell_event_set)],
-      filters => [],
-      sort_cols => 'cxn -time',
-      sort_dir => '1',
-      innodb   => 'sm',
-      group_by => [],
-      aggregate => 0,
-   },
-);
-
-# Initialize %tbl_meta from %columns and do some checks.
-foreach my $table_name ( keys %tbl_meta ) {
-   my $table = $tbl_meta{$table_name};
-   my $cols  = $table->{cols};
-
-   foreach my $col_name ( keys %$cols ) {
-      my $col_def = $table->{cols}->{$col_name};
-      die "I can't find a column named '$col_name' for '$table_name'" unless $columns{$col_name};
-      $columns{$col_name}->{referenced} = 1;
-
-      foreach my $prop ( keys %col_props ) {
-         # Each column gets non-existing values set from %columns or defaults from %col_props.
-         if ( !$col_def->{$prop} ) {
-            $col_def->{$prop}
-               = defined($columns{$col_name}->{$prop})
-               ? $columns{$col_name}->{$prop}
-               : $col_props{$prop};
-         }
-      }
-
-      # Ensure transformations and aggregate functions are valid
-      die "Unknown aggregate function '$col_def->{agg}' "
-         . "for column '$col_name' in table '$table_name'"
-         unless exists $agg_funcs{$col_def->{agg}};
-      foreach my $trans ( @{$col_def->{trans}} ) {
-         die "Unknown transformation '$trans' "
-            . "for column '$col_name' in table '$table_name'"
-            unless exists $trans_funcs{$trans};
-      }
-   }
-
-   # Ensure each column in visible and group_by exists in cols
-   foreach my $place ( qw(visible group_by) ) {
-      foreach my $col_name ( @{$table->{$place}} ) {
-         if ( !exists $cols->{$col_name} ) {
-            die "Column '$col_name' is listed in '$place' for '$table_name', but doesn't exist";
-         }
-      }
-   }
-
-   # Compile sort and color subroutines
-   $table->{sort_func}  = make_sort_func($table);
-   $table->{color_func} = make_color_func($table);
-}
-
-# This is for code cleanup:
-{
-   my @unused_cols = grep { !$columns{$_}->{referenced} } sort keys %columns;
-   if ( @unused_cols ) {
-      die "The following columns are not used: "
-         . join(' ', @unused_cols);
-   }
-}
-
-# ###########################################################################
-# Operating modes {{{3
-# ###########################################################################
-my %modes = (
-   B => {
-      hdr               => 'InnoDB Buffers',
-      cust              => {},
-      note              => 'Shows buffer info from InnoDB',
-      action_for        => {
-         i => {
-            action => sub { toggle_config('status_inc') },
-            label  => 'Toggle incremental status display',
-         },
-      },
-      display_sub       => \&display_B,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(buffer_pool page_statistics insert_buffers adaptive_hash_index)],
-      visible_tables    => [qw(buffer_pool page_statistics insert_buffers adaptive_hash_index)],
-   },
-   C => {
-      hdr               => 'Command Summary',
-      cust              => {},
-      note              => 'Shows relative magnitude of variables',
-      action_for        => {
-         s => {
-            action => sub { get_config_interactive('cmd_filter') },
-            label  => 'Choose variable prefix',
-         },
-      },
-      display_sub       => \&display_C,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(cmd_summary)],
-      visible_tables    => [qw(cmd_summary)],
-   },
-   D => {
-      hdr               => 'InnoDB Deadlocks',
-      cust              => {},
-      note              => 'View InnoDB deadlock information',
-      action_for        => {
-         c => {
-            action => sub { edit_table('deadlock_transactions') },
-            label  => 'Choose visible columns',
-         },
-         w => {
-            action => \&create_deadlock,
-            label  => 'Wipe deadlock status info by creating a deadlock',
-         },
-      },
-      display_sub       => \&display_D,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(deadlock_transactions deadlock_locks)],
-      visible_tables    => [qw(deadlock_transactions deadlock_locks)],
-   },
-   F => {
-      hdr               => 'InnoDB FK Err',
-      cust              => {},
-      note              => 'View the latest InnoDB foreign key error',
-      action_for        => {},
-      display_sub       => \&display_F,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 1,
-      tables            => [qw(fk_error)],
-      visible_tables    => [qw(fk_error)],
-   },
-   I => {
-      hdr               => 'InnoDB I/O Info',
-      cust              => {},
-      note              => 'Shows I/O info (i/o, log...) from InnoDB',
-      action_for        => {
-         i => {
-            action => sub { toggle_config('status_inc') },
-            label  => 'Toggle incremental status display',
-         },
-      },
-      display_sub       => \&display_I,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(io_threads pending_io file_io_misc log_statistics)],
-      visible_tables    => [qw(io_threads pending_io file_io_misc log_statistics)],
-   },
-   L => {
-      hdr             => 'Locks',
-      cust            => {},
-      note            => 'Shows transaction locks',
-      action_for      => {
-         a => {
-            action => sub { send_cmd_to_servers('CREATE TABLE IF NOT EXISTS test.innodb_lock_monitor(a int) ENGINE=InnoDB', 0, '', []); },
-            label  => 'Start the InnoDB Lock Monitor',
-         },
-         o => {
-            action => sub { send_cmd_to_servers('DROP TABLE IF EXISTS test.innodb_lock_monitor', 0, '', []); },
-            label  => 'Stop the InnoDB Lock Monitor',
-         },
-      },
-      display_sub     => \&display_L,
-      connections     => [],
-      server_group    => '',
-      one_connection  => 0,
-      tables            => [qw(innodb_locks)],
-      visible_tables    => [qw(innodb_locks)],
-   },
-   M => {
-      hdr               => 'Replication Status',
-      cust              => {},
-      note              => 'Shows replication (master and slave) status',
-      action_for        => {
-         a => {
-            action => sub { send_cmd_to_servers('START SLAVE', 0, 'START SLAVE SQL_THREAD UNTIL MASTER_LOG_FILE = ?, MASTER_LOG_POS = ?', []); },
-            label  => 'Start slave(s)',
-         },
-         i => {
-            action => sub { toggle_config('status_inc') },
-            label  => 'Toggle incremental status display',
-         },
-         o => {
-            action => sub { send_cmd_to_servers('STOP SLAVE', 0, '', []); },
-            label  => 'Stop slave(s)',
-         },
-         b => {
-            action => sub { purge_master_logs() },
-            label  => 'Purge unused master logs',
-         },
-      },
-      display_sub       => \&display_M,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(slave_sql_status slave_io_status master_status)],
-      visible_tables    => [qw(slave_sql_status slave_io_status master_status)],
-   },
-   O => {
-      hdr               => 'Open Tables',
-      cust              => {},
-      note              => 'Shows open tables in MySQL',
-      action_for        => {
-         r => {
-            action => sub { reverse_sort('open_tables'); },
-            label  => 'Reverse sort order',
-         },
-         s => {
-            action => sub { choose_sort_cols('open_tables'); },
-            label => "Choose sort column",
-         },
-      },
-      display_sub       => \&display_O,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(open_tables)],
-      visible_tables    => [qw(open_tables)],
-   },
-   Q => {
-      hdr        => 'Query List',
-      cust       => {},
-      note       => 'Shows queries from SHOW FULL PROCESSLIST',
-      action_for => {
-         a => {
-            action => sub { toggle_filter('processlist', 'hide_self') },
-            label  => 'Toggle the innotop process',
-         },
-         c => {
-            action => sub { edit_table('processlist') },
-            label  => 'Choose visible columns',
-         },
-         e => {
-            action => sub { analyze_query('e'); },
-            label  => "Explain a thread's query",
-         },
-         f => {
-            action => sub { analyze_query('f'); },
-            label  => "Show a thread's full query",
-         },
-         h => {
-            action => sub { toggle_visible_table('Q', 'q_header') },
-            label  => 'Toggle the header on and off',
-         },
-         i => {
-            action => sub { toggle_filter('processlist', 'hide_inactive') },
-            label  => 'Toggle idle processes',
-         },
-         k => {
-            action => sub { kill_query('CONNECTION') },
-            label => "Kill a query's connection",
-         },
-         r => {
-            action => sub { reverse_sort('processlist'); },
-            label  => 'Reverse sort order',
-         },
-         s => {
-            action => sub { choose_sort_cols('processlist'); },
-            label => "Change the display's sort column",
-         },
-         x => {
-            action => sub { kill_query('QUERY') },
-            label => "Kill a query",
-         },
-      },
-      display_sub       => \&display_Q,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(q_header processlist)],
-      visible_tables    => [qw(q_header processlist)],
-   },
-   R => {
-      hdr               => 'InnoDB Row Ops',
-      cust              => {},
-      note              => 'Shows InnoDB row operation and semaphore info',
-      action_for        => {
-         i => {
-            action => sub { toggle_config('status_inc') },
-            label  => 'Toggle incremental status display',
-         },
-      },
-      display_sub       => \&display_R,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(row_operations row_operation_misc semaphores wait_array)],
-      visible_tables    => [qw(row_operations row_operation_misc semaphores wait_array)],
-   },
-   S => {
-      hdr               => 'Variables & Status',
-      cust              => {},
-      note              => 'Shows query load statistics a la vmstat',
-      action_for        => {
-         '>' => {
-            action => sub { switch_var_set('S_set', 1) },
-            label  => 'Switch to next variable set',
-         },
-         '<' => {
-            action => sub { switch_var_set('S_set', -1) },
-            label  => 'Switch to prev variable set',
-         },
-         c => {
-            action => sub {
-               choose_var_set('S_set');
-               start_S_mode();
-            },
-            label => "Choose which set to display",
-         },
-         e => {
-            action => \&edit_current_var_set,
-            label  => 'Edit the current set of variables',
-         },
-         i => {
-            action => sub { $clear_screen_sub->(); toggle_config('status_inc') },
-            label  => 'Toggle incremental status display',
-         },
-         '-' => {
-            action => sub { set_display_precision(-1) },
-            label  => 'Decrease fractional display precision',
-         },
-         '+' => {
-            action => sub { set_display_precision(1) },
-            label  => 'Increase fractional display precision',
-         },
-         g => {
-            action => sub { set_s_mode('g') },
-            label  => 'Switch to graph (tload) view',
-         },
-         s => {
-            action => sub { set_s_mode('s') },
-            label  => 'Switch to standard (vmstat) view',
-         },
-         v => {
-            action => sub { set_s_mode('v') },
-            label  => 'Switch to pivoted view',
-         },
-      },
-      display_sub       => \&display_S,
-      no_clear_screen   => 1,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(var_status)],
-      visible_tables    => [qw(var_status)],
-   },
-   T => {
-      hdr        => 'InnoDB Txns',
-      cust       => {},
-      note       => 'Shows InnoDB transactions in top-like format',
-      action_for => {
-         a => {
-            action => sub { toggle_filter('innodb_transactions', 'hide_self') },
-            label  => 'Toggle the innotop process',
-         },
-         c => {
-            action => sub { edit_table('innodb_transactions') },
-            label  => 'Choose visible columns',
-         },
-         e => {
-            action => sub { analyze_query('e'); },
-            label  => "Explain a thread's query",
-         },
-         f => {
-            action => sub { analyze_query('f'); },
-            label  => "Show a thread's full query",
-         },
-         h => {
-            action => sub { toggle_visible_table('T', 't_header') },
-            label  => 'Toggle the header on and off',
-         },
-         i => {
-            action => sub { toggle_filter('innodb_transactions', 'hide_inactive') },
-            label  => 'Toggle inactive transactions',
-         },
-         k => {
-            action => sub { kill_query('CONNECTION') },
-            label  => "Kill a transaction's connection",
-         },
-         r => {
-            action => sub { reverse_sort('innodb_transactions'); },
-            label  => 'Reverse sort order',
-         },
-         s => {
-            action => sub { choose_sort_cols('innodb_transactions'); },
-            label  => "Change the display's sort column",
-         },
-         x => {
-            action => sub { kill_query('QUERY') },
-            label  => "Kill a query",
-         },
-      },
-      display_sub       => \&display_T,
-      connections       => [],
-      server_group      => '',
-      one_connection    => 0,
-      tables            => [qw(t_header innodb_transactions)],
-      visible_tables    => [qw(t_header innodb_transactions)],
-   },
-);
-
-# ###########################################################################
-# Global key mappings {{{3
-# Keyed on a single character, which is read from the keyboard.  Uppercase
-# letters switch modes.  Lowercase letters access commands when in a mode.
-# These can be overridden by action_for in %modes.
-# ###########################################################################
-my %action_for = (
-   '$' => {
-      action => \&edit_configuration,
-      label  => 'Edit configuration settings',
-   },
-   '?' => {
-      action => \&display_help,
-      label  => 'Show help',
-   },
-   '!' => {
-      action => \&display_license,
-      label  => 'Show license and warranty',
-   },
-   '^' => {
-      action => \&edit_table,
-      label  => "Edit the displayed table(s)",
-   },
-   '#' => {
-      action => \&choose_server_groups,
-      label  => 'Select/create server groups',
-   },
-   '@' => {
-      action => \&choose_servers,
-      label  => 'Select/create server connections',
-   },
-   '/' => {
-      action => \&add_quick_filter,
-      label  => 'Quickly filter what you see',
-   },
-   '\\' => {
-      action => \&clear_quick_filters,
-      label  => 'Clear quick-filters',
-   },
-   '%' => {
-      action => \&choose_filters,
-      label  => 'Choose and edit table filters',
-   },
-   "\t" => {
-      action => \&next_server_group,
-      label  => 'Switch to the next server group',
-      key    => 'TAB',
-   },
-   '=' => {
-      action => \&toggle_aggregate,
-      label  => 'Toggle aggregation',
-   },
-   # TODO: can these be auto-generated from %modes?
-   B => {
-      action => sub { switch_mode('B') },
-      label  => '',
-   },
-   C => {
-      action => sub { switch_mode('C') },
-      label  => '',
-   },
-   D => {
-      action => sub { switch_mode('D') },
-      label  => '',
-   },
-   F => {
-      action => sub { switch_mode('F') },
-      label  => '',
-   },
-   I => {
-      action => sub { switch_mode('I') },
-      label  => '',
-   },
-   L => {
-      action => sub { switch_mode('L') },
-      label  => '',
-   },
-   M => {
-      action => sub { switch_mode('M') },
-      label  => '',
-   },
-   O => {
-      action => sub { switch_mode('O') },
-      label  => '',
-   },
-   Q => {
-      action => sub { switch_mode('Q') },
-      label  => '',
-   },
-   R => {
-      action => sub { switch_mode('R') },
-      label  => '',
-   },
-   S => {
-      action => \&start_S_mode,
-      label  => '',
-   },
-   T => {
-      action => sub { switch_mode('T') },
-      label  => '',
-   },
-   d => {
-      action => sub { get_config_interactive('interval') },
-      label  => 'Change refresh interval',
-   },
-   n => { action => \&next_server,       label => 'Switch to the next connection' },
-   p => { action => \&pause,             label => 'Pause innotop', },
-   q => { action => \&finish,            label => 'Quit innotop', },
-);
-
-# ###########################################################################
-# Sleep times after certain statements {{{3
-# ###########################################################################
-my %stmt_sleep_time_for = ();
-
-# ###########################################################################
-# Config editor key mappings {{{3
-# ###########################################################################
-my %cfg_editor_action = (
-   c => {
-      note => 'Edit columns, etc in the displayed table(s)',
-      func => \&edit_table,
-   },
-   g => {
-      note => 'Edit general configuration',
-      func => \&edit_configuration_variables,
-   },
-   k => {
-      note => 'Edit row-coloring rules',
-      func => \&edit_color_rules,
-   },
-   p => {
-      note => 'Manage plugins',
-      func => \&edit_plugins,
-   },
-   s => {
-      note => 'Edit server groups',
-      func => \&edit_server_groups,
-   },
-   S => {
-      note => 'Edit SQL statement sleep delays',
-      func => \&edit_stmt_sleep_times,
-   },
-   t => {
-      note => 'Choose which table(s) to display in this mode',
-      func => \&choose_mode_tables,
-   },
-);
-
-# ###########################################################################
-# Color editor key mappings {{{3
-# ###########################################################################
-my %color_editor_action = (
-   n => {
-      note => 'Create a new color rule',
-      func => sub {
-         my ( $tbl, $idx ) = @_;
-         my $meta = $tbl_meta{$tbl};
-
-         $clear_screen_sub->();
-         my $col;
-         do {
-            $col = prompt_list(
-               'Choose the target column for the rule',
-               '',
-               sub { return keys %{$meta->{cols}} },
-               { map { $_ => $meta->{cols}->{$_}->{label} } keys %{$meta->{cols}} });
-         } while ( !$col );
-         ( $col ) = grep { $_ } split(/\W+/, $col);
-         return $idx unless $col && exists $meta->{cols}->{$col};
-
-         $clear_screen_sub->();
-         my $op;
-         do {
-            $op = prompt_list(
-               'Choose the comparison operator for the rule',
-               '',
-               sub { return keys %comp_ops },
-               { map { $_ => $comp_ops{$_} } keys %comp_ops } );
-         } until ( $op );
-         $op =~ s/\s+//g;
-         return $idx unless $op && exists $comp_ops{$op};
-
-         my $arg;
-         do {
-            $arg = prompt('Specify an argument for the comparison');
-         } until defined $arg;
-
-         my $color;
-         do {
-            $color = prompt_list(
-               'Choose the color(s) the row should be when the rule matches',
-               '',
-               sub { return keys %ansicolors },
-               { map { $_ => $_ } keys %ansicolors } );
-         } until defined $color;
-         $color = join(' ', unique(grep { exists $ansicolors{$_} } split(/\W+/, $color)));
-         return $idx unless $color;
-
-         push @{$tbl_meta{$tbl}->{colors}}, {
-            col   => $col,
-            op    => $op,
-            arg   => $arg,
-            color => $color
-         };
-         $tbl_meta{$tbl}->{cust}->{colors} = 1;
-
-         return $idx;
-      },
-   },
-   d => {
-      note => 'Remove the selected rule',
-      func => sub {
-         my ( $tbl, $idx ) = @_;
-         my @rules = @{ $tbl_meta{$tbl}->{colors} };
-         return 0 unless @rules > 0 && $idx < @rules && $idx >= 0;
-         splice(@{$tbl_meta{$tbl}->{colors}}, $idx, 1);
-         $tbl_meta{$tbl}->{cust}->{colors} = 1;
-         return $idx == @rules ? $#rules : $idx;
-      },
-   },
-   j => {
-      note => 'Move highlight down one',
-      func => sub {
-         my ( $tbl, $idx ) = @_;
-         my $num_rules = scalar @{$tbl_meta{$tbl}->{colors}};
-         return ($idx + 1) % $num_rules;
-      },
-   },
-   k => {
-      note => 'Move highlight up one',
-      func => sub {
-         my ( $tbl, $idx ) = @_;
-         my $num_rules = scalar @{$tbl_meta{$tbl}->{colors}};
-         return ($idx - 1) % $num_rules;
-      },
-   },
-   '+' => {
-      note => 'Move selected rule up one',
-      func => sub {
-         my ( $tbl, $idx ) = @_;
-         my $meta = $tbl_meta{$tbl};
-         my $dest = $idx == 0 ? scalar(@{$meta->{colors}} - 1) : $idx - 1;
-         my $temp = $meta->{colors}->[$idx];
-         $meta->{colors}->[$idx]  = $meta->{colors}->[$dest];
-         $meta->{colors}->[$dest] = $temp;
-         $meta->{cust}->{colors} = 1;
-         return $dest;
-      },
-   },
-   '-' => {
-      note => 'Move selected rule down one',
-      func => sub {
-         my ( $tbl, $idx ) = @_;
-         my $meta = $tbl_meta{$tbl};
-         my $dest = $idx == scalar(@{$meta->{colors}} - 1) ? 0 : $idx + 1;
-         my $temp = $meta->{colors}->[$idx];
-         $meta->{colors}->[$idx]  = $meta->{colors}->[$dest];
-         $meta->{colors}->[$dest] = $temp;
-         $meta->{cust}->{colors} = 1;
-         return $dest;
-      },
-   },
-);
-
-# ###########################################################################
-# Plugin editor key mappings {{{3
-# ###########################################################################
-my %plugin_editor_action = (
-   '*' => {
-      note => 'Toggle selected plugin active/inactive',
-      func => sub {
-         my ( $plugins, $idx ) = @_;
-         my $plugin = $plugins->[$idx];
-         $plugin->{active} = $plugin->{active} ? 0 : 1;
-         return $idx;
-      },
-   },
-   j => {
-      note => 'Move highlight down one',
-      func => sub {
-         my ( $plugins, $idx ) = @_;
-         return ($idx + 1) % scalar(@$plugins);
-      },
-   },
-   k => {
-      note => 'Move highlight up one',
-      func => sub {
-         my ( $plugins, $idx ) = @_;
-         return $idx == 0 ? @$plugins - 1 : $idx - 1;
-      },
-   },
-);
-
-# ###########################################################################
-# Table editor key mappings {{{3
-# ###########################################################################
-my %tbl_editor_action = (
-   a => {
-      note => 'Add a column to the table',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         my @visible_cols = @{ $tbl_meta{$tbl}->{visible} };
-         my %all_cols     = %{ $tbl_meta{$tbl}->{cols} };
-         delete @all_cols{@visible_cols};
-         my $choice = prompt_list(
-            'Choose a column',
-            '',
-            sub { return keys %all_cols; },
-            { map { $_ => $all_cols{$_}->{label} || $all_cols{$_}->{hdr} } keys %all_cols });
-         if ( $all_cols{$choice} ) {
-            push @{$tbl_meta{$tbl}->{visible}}, $choice;
-            $tbl_meta{$tbl}->{cust}->{visible} = 1;
-            return $choice;
-         }
-         return $col;
-      },
-   },
-   n => {
-      note => 'Create a new column and add it to the table',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-
-         $clear_screen_sub->();
-         print word_wrap("Choose a name for the column.  This name is not displayed, and is used only "
-               . "for internal reference.  It can contain only lowercase letters, numbers, "
-               . "and underscores.");
-         print "\n\n";
-         do {
-            $col = prompt("Enter column name");
-            $col = '' if $col =~ m/[^a-z0-9_]/;
-         } while ( !$col );
-
-         $clear_screen_sub->();
-         my $hdr;
-         do {
-            $hdr = prompt("Enter column header");
-         } while ( !$hdr );
-
-         $clear_screen_sub->();
-         print "Choose a source for the column's data\n\n";
-         my ( $src, $sub, $err );
-         do {
-            if ( $err ) {
-               print "Error: $err\n\n";
-            }
-            $src = prompt("Enter column source");
-            if ( $src ) {
-               ( $sub, $err ) = compile_expr($src);
-            }
-         } until ( !$err);
-
-         # TODO: this duplicates %col_props.
-         $tbl_meta{$tbl}->{cols}->{$col} = {
-            hdr   => $hdr,
-            src   => $src,
-            just  => '-',
-            num   => 0,
-            label => 'User-defined',
-            user  => 1,
-            tbl   => $tbl,
-            minw  => 0,
-            maxw  => 0,
-            trans => [],
-            func  => $sub,
-            dec   => 0,
-            agg   => 0,
-            aggonly => 0,
-         };
-
-         $tbl_meta{$tbl}->{visible} = [ unique(@{$tbl_meta{$tbl}->{visible}}, $col) ];
-         $tbl_meta{$tbl}->{cust}->{visible} = 1;
-         return $col;
-      },
-   },
-   d => {
-      note => 'Remove selected column',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         my @visible_cols = @{ $tbl_meta{$tbl}->{visible} };
-         my $idx          = 0;
-         return $col unless @visible_cols > 1;
-         while ( $visible_cols[$idx] ne $col ) {
-            $idx++;
-         }
-         $tbl_meta{$tbl}->{visible} = [ grep { $_ ne $col } @visible_cols ];
-         $tbl_meta{$tbl}->{cust}->{visible} = 1;
-         return $idx == $#visible_cols ? $visible_cols[$idx - 1] : $visible_cols[$idx + 1];
-      },
-   },
-   e => {
-      note => 'Edit selected column',
-      func => sub {
-         # TODO: make this editor hotkey-driven and give readline support.
-         my ( $tbl, $col ) = @_;
-         $clear_screen_sub->();
-         my $meta = $tbl_meta{$tbl}->{cols}->{$col};
-         my @prop = qw(hdr label src just num minw maxw trans agg); # TODO redundant
-
-         my $answer;
-         do {
-            # Do what the user asked...
-            if ( $answer && grep { $_ eq $answer } @prop ) {
-               # Some properties are arrays, others scalars.
-               my $ini = ref $col_props{$answer} ? join(' ', @{$meta->{$answer}}) : $meta->{$answer};
-               my $val = prompt("New value for $answer", undef, $ini);
-               $val = [ split(' ', $val) ] if ref($col_props{$answer});
-               if ( $answer eq 'trans' ) {
-                  $val = [ unique(grep{ exists $trans_funcs{$_} } @$val) ];
-               }
-               @{$meta}{$answer, 'user', 'tbl' } = ( $val, 1, $tbl );
-            }
-
-            my @display_lines = (
-               '',
-               "You are editing column $tbl.$col.\n",
-            );
-
-            push @display_lines, create_table2(
-               \@prop,
-               { map { $_ => $_ } @prop },
-               { map { $_ => ref $meta->{$_} eq 'ARRAY' ? join(' ', @{$meta->{$_}})
-                           : ref $meta->{$_}            ? '[expression code]'
-                           :                              $meta->{$_}
-                     } @prop
-               },
-               { sep => '  ' });
-            draw_screen(\@display_lines, { raw => 1 });
-            print "\n\n"; # One to add space, one to clear readline artifacts
-            $answer = prompt('Edit what? (q to quit)');
-         } while ( $answer ne 'q' );
-
-         return $col;
-      },
-   },
-   j => {
-      note => 'Move highlight down one',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         my @visible_cols = @{ $tbl_meta{$tbl}->{visible} };
-         my $idx          = 0;
-         while ( $visible_cols[$idx] ne $col ) {
-            $idx++;
-         }
-         return $visible_cols[ ($idx + 1) % @visible_cols ];
-      },
-   },
-   k => {
-      note => 'Move highlight up one',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         my @visible_cols = @{ $tbl_meta{$tbl}->{visible} };
-         my $idx          = 0;
-         while ( $visible_cols[$idx] ne $col ) {
-            $idx++;
-         }
-         return $visible_cols[ $idx - 1 ];
-      },
-   },
-   '+' => {
-      note => 'Move selected column up one',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         my $meta         = $tbl_meta{$tbl};
-         my @visible_cols = @{$meta->{visible}};
-         my $idx          = 0;
-         while ( $visible_cols[$idx] ne $col ) {
-            $idx++;
-         }
-         if ( $idx ) {
-            $visible_cols[$idx]     = $visible_cols[$idx - 1];
-            $visible_cols[$idx - 1] = $col;
-            $meta->{visible}        = \@visible_cols;
-         }
-         else {
-            shift @{$meta->{visible}};
-            push @{$meta->{visible}}, $col;
-         }
-         $meta->{cust}->{visible} = 1;
-         return $col;
-      },
-   },
-   '-' => {
-      note => 'Move selected column down one',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         my $meta         = $tbl_meta{$tbl};
-         my @visible_cols = @{$meta->{visible}};
-         my $idx          = 0;
-         while ( $visible_cols[$idx] ne $col ) {
-            $idx++;
-         }
-         if ( $idx == $#visible_cols ) {
-            unshift @{$meta->{visible}}, $col;
-            pop @{$meta->{visible}};
-         }
-         else {
-            $visible_cols[$idx]     = $visible_cols[$idx + 1];
-            $visible_cols[$idx + 1] = $col;
-            $meta->{visible}        = \@visible_cols;
-         }
-         $meta->{cust}->{visible} = 1;
-         return $col;
-      },
-   },
-   f => {
-      note => 'Choose filters',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         choose_filters($tbl);
-         return $col;
-      },
-   },
-   o => {
-      note => 'Edit color rules',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         edit_color_rules($tbl);
-         return $col;
-      },
-   },
-   s => {
-      note => 'Choose sort columns',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         choose_sort_cols($tbl);
-         return $col;
-      },
-   },
-   g => {
-      note => 'Choose group-by (aggregate) columns',
-      func => sub {
-         my ( $tbl, $col ) = @_;
-         choose_group_cols($tbl);
-         return $col;
-      },
-   },
-);
-
-# ###########################################################################
-# Global variables and environment {{{2
-# ###########################################################################
-
-my @this_term_size; # w_chars, h_chars, w_pix, h_pix
-my @last_term_size; # w_chars, h_chars, w_pix, h_pix
-my $char;
-my $windows       = $OSNAME =~ m/MSWin/;
-my $have_color    = 0;
-my $MAX_ULONG     = 4294967295; # 2^32-1
-my $num_regex     = qr/^[+-]?(?=\d|\.)\d*(?:\.\d+)?(?:E[+-]?\d+|)$/i;
-my $int_regex     = qr/^\d+$/;
-my $bool_regex    = qr/^[01]$/;
-my $term          = undef;
-my $file          = undef; # File to watch for InnoDB monitor output
-my $file_mtime    = undef; # Status of watched file
-my $file_data     = undef; # Last chunk of text read from file
-my $innodb_parser = InnoDBParser->new;
-
-my $nonfatal_errs = join('|',
-   'Access denied for user',
-   'Unknown MySQL server host',
-   'Unknown database',
-   'Can\'t connect to local MySQL server through socket',
-   'Can\'t connect to MySQL server on',
-   'MySQL server has gone away',
-   'Cannot call SHOW INNODB STATUS',
-   'Access denied',
-   'AutoCommit',
-);
-
-if ( !$opts{n} ) {
-   require Term::ReadLine;
-   $term = Term::ReadLine->new('innotop');
-}
-
-# Stores status, variables, innodb status, master/slave status etc.
-# Keyed on connection name.  Each entry is a hashref of current and past data sets,
-# keyed on clock tick.
-my %vars;
-my %info_gotten = (); # Which things have been retrieved for the current clock tick.
-
-# Stores info on currently displayed queries: cxn, connection ID, query text.
-my @current_queries;
-
-my $lines_printed       = 0;
-my $clock               = 0;   # Incremented with every wake-sleep cycle
-my $clearing_deadlocks  = 0;
-
-# Find the home directory; it's different on different OSes.
-my $homepath = $ENV{HOME} || $ENV{HOMEPATH} || $ENV{USERPROFILE} || '.';
-
-# If terminal coloring is available, use it.  The only function I want from
-# the module is the colored() function.
-eval {
-   if ( !$opts{n} ) {
-      if ( $windows ) {
-         require Win32::Console::ANSI;
-      }
-      require Term::ANSIColor;
-      import Term::ANSIColor qw(colored);
-      $have_color = 1;
-   }
-};
-if ( $EVAL_ERROR || $opts{n} ) {
-   # If there was an error, manufacture my own colored() function that does no
-   # coloring.
-   *colored = sub { pop @_; @_; };
-}
-
-if ( $opts{n} ) {
-   $clear_screen_sub = sub {};
-}
-elsif ( $windows ) {
-   $clear_screen_sub = sub { $lines_printed = 0; system("cls") };
-}
-else {
-   my $clear = `clear`;
-   $clear_screen_sub = sub { $lines_printed = 0; print $clear };
-}
-
-# ###########################################################################
-# Config storage. {{{2
-# ###########################################################################
-my %config = (
-   color => {
-      val  => $have_color,
-      note => 'Whether to use terminal coloring',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   cmd_filter => {
-      val  => 'Com_',
-      note => 'Prefix for values in C mode',
-      conf => [qw(C)],
-   },
-   plugin_dir => {
-      val  => "$homepath/.innotop/plugins",
-      note => 'Directory where plugins can be found',
-      conf => 'ALL',
-   },
-   show_percent => {
-      val  => 1,
-      note => 'Show the % symbol after percentages',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   skip_innodb => {
-      val  => 0,
-      note => 'Disable SHOW INNODB STATUS',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   S_func => {
-      val  => 's',
-      note => 'What to display in S mode: graph, status, pivoted status',
-      conf => [qw(S)],
-      pat  => qr/^[gsv]$/,
-   },
-   cxn_timeout => {
-      val  => 28800,
-      note => 'Connection timeout for keeping unused connections alive',
-      conf => 'ALL',
-      pat  => $int_regex,
-   },
-   graph_char => {
-      val  => '*',
-      note => 'Character for drawing graphs',
-      conf => [ qw(S) ],
-      pat  => qr/^.$/,
-   },
-   show_cxn_errors_in_tbl => {
-      val  => 1,
-      note => 'Whether to display connection errors as rows in the table',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   hide_hdr => {
-      val  => 0,
-      note => 'Whether to show column headers',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   show_cxn_errors => {
-      val  => 1,
-      note => 'Whether to print connection errors to STDOUT',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   readonly => {
-      val  => 0,
-      note => 'Whether the config file is read-only',
-      conf => [ qw() ],
-      pat  => $bool_regex,
-   },
-   global => {
-      val  => 1,
-      note => 'Whether to show GLOBAL variables and status',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   header_highlight => {
-      val  => 'bold',
-      note => 'How to highlight table column headers',
-      conf => 'ALL',
-      pat  => qr/^(?:bold|underline)$/,
-   },
-   display_table_captions => {
-      val  => 1,
-      note => 'Whether to put captions on tables',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   charset => {
-      val  => 'ascii',
-      note => 'What type of characters should be displayed in queries (ascii, unicode, none)',
-      conf => 'ALL',
-      pat  => qr/^(?:ascii|unicode|none)$/,
-   },
-   auto_wipe_dl => {
-      val  => 0,
-      note => 'Whether to auto-wipe InnoDB deadlocks',
-      conf => 'ALL',
-      pat  => $bool_regex,
-   },
-   max_height => {
-      val  => 30,
-      note => '[Win32] Max window height',
-      conf => 'ALL',
-   },
-   debug => {
-      val  => 0,
-      pat  => $bool_regex,
-      note => 'Debug mode (more verbose errors, uses more memory)',
-      conf => 'ALL',
-   },
-   num_digits => {
-      val  => 2,
-      pat  => $int_regex,
-      note => 'How many digits to show in fractional numbers and percents',
-      conf => 'ALL',
-   },
-   debugfile => {
-      val  => "$homepath/.innotop/core_dump",
-      note => 'A debug file in case you are interested in error output',
-   },
-   show_statusbar => {
-      val  => 1,
-      pat  => $bool_regex,
-      note => 'Whether to show the status bar in the display',
-      conf => 'ALL',
-   },
-   mode => {
-      val  => "T",
-      note => "Which mode to start in",
-      cmdline => 1,
-   },
-   status_inc => {
-      val  => 0,
-      note => 'Whether to show raw or incremental values for status variables',
-      pat  => $bool_regex,
-   },
-   interval => {
-      val  => 10,
-      pat  => qr/^(?:(?:\d*?[1-9]\d*(?:\.\d*)?)|(?:\d*\.\d*?[1-9]\d*))$/,
-      note => "The interval at which the display will be refreshed.  Fractional values allowed.",
-   },
-   num_status_sets => {
-      val  => 9,
-      pat  => $int_regex,
-      note => 'How many sets of STATUS and VARIABLES values to show',
-      conf => [ qw(S) ],
-   },
-   S_set => {
-      val  => 'general',
-      pat  => qr/^\w+$/,
-      note => 'Which set of variables to display in S (Variables & Status) mode',
-      conf => [ qw(S) ],
-   },
-);
-
-# ###########################################################################
-# Config file sections {{{2
-# The configuration file is broken up into sections like a .ini file.  This
-# variable defines those sections and the subroutines responsible for reading
-# and writing them.
-# ###########################################################################
-my %config_file_sections = (
-   plugins => {
-      reader => \&load_config_plugins,
-      writer => \&save_config_plugins,
-   },
-   group_by => {
-      reader => \&load_config_group_by,
-      writer => \&save_config_group_by,
-   },
-   filters => {
-      reader => \&load_config_filters,
-      writer => \&save_config_filters,
-   },
-   active_filters => {
-      reader => \&load_config_active_filters,
-      writer => \&save_config_active_filters,
-   },
-   visible_tables => {
-      reader => \&load_config_visible_tables,
-      writer => \&save_config_visible_tables,
-   },
-   sort_cols => {
-      reader => \&load_config_sort_cols,
-      writer => \&save_config_sort_cols,
-   },
-   active_columns => {
-      reader => \&load_config_active_columns,
-      writer => \&save_config_active_columns,
-   },
-   tbl_meta => {
-      reader => \&load_config_tbl_meta,
-      writer => \&save_config_tbl_meta,
-   },
-   general => {
-      reader => \&load_config_config,
-      writer => \&save_config_config,
-   },
-   connections => {
-      reader => \&load_config_connections,
-      writer => \&save_config_connections,
-   },
-   active_connections => {
-      reader => \&load_config_active_connections,
-      writer => \&save_config_active_connections,
-   },
-   server_groups => {
-      reader => \&load_config_server_groups,
-      writer => \&save_config_server_groups,
-   },
-   active_server_groups => {
-      reader => \&load_config_active_server_groups,
-      writer => \&save_config_active_server_groups,
-   },
-   max_values_seen => {
-      reader => \&load_config_mvs,
-      writer => \&save_config_mvs,
-   },
-   varsets => {
-      reader => \&load_config_varsets,
-      writer => \&save_config_varsets,
-   },
-   colors => {
-      reader => \&load_config_colors,
-      writer => \&save_config_colors,
-   },
-   stmt_sleep_times => {
-      reader => \&load_config_stmt_sleep_times,
-      writer => \&save_config_stmt_sleep_times,
-   },
-);
-
-# Config file sections have some dependencies, so they have to be read/written in order.
-my @ordered_config_file_sections = qw(general plugins filters active_filters tbl_meta
-   connections active_connections server_groups active_server_groups max_values_seen
-   active_columns sort_cols visible_tables varsets colors stmt_sleep_times
-   group_by);
-
-# All events for which plugins may register themselves.  Entries are arrayrefs.
-my %event_listener_for = map { $_ => [] }
-   qw(
-      extract_values
-      set_to_tbl_pre_filter set_to_tbl_pre_sort set_to_tbl_pre_group
-      set_to_tbl_pre_colorize set_to_tbl_pre_transform set_to_tbl_pre_pivot
-      set_to_tbl_pre_create set_to_tbl_post_create
-      draw_screen
-   );
-
-# All variables to which plugins have access.
-my %pluggable_vars = (
-   action_for    => \%action_for,
-   agg_funcs     => \%agg_funcs,
-   config        => \%config,
-   connections   => \%connections,
-   dbhs          => \%dbhs,
-   filters       => \%filters,
-   modes         => \%modes,
-   server_groups => \%server_groups,
-   tbl_meta      => \%tbl_meta,
-   trans_funcs   => \%trans_funcs,
-   var_sets      => \%var_sets,
-);
-
-# ###########################################################################
-# Contains logic to generate prepared statements for a given function for a
-# given DB connection.  Returns a $sth.
-# ###########################################################################
-my %stmt_maker_for = (
-   INNODB_STATUS => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare(version_ge( $dbh, '5.0.0' )
-             ? 'SHOW ENGINE INNODB STATUS'
-             : 'SHOW INNODB STATUS');
-   },
-   SHOW_VARIABLES => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare($config{global}->{val} && version_ge( $dbh, '4.0.3' )
-             ? 'SHOW GLOBAL VARIABLES'
-             : 'SHOW VARIABLES');
-   },
-   SHOW_STATUS => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare($config{global}->{val} && version_ge( $dbh, '5.0.2' )
-             ? 'SHOW GLOBAL STATUS'
-             : 'SHOW STATUS');
-   },
-   KILL_QUERY => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare(version_ge( $dbh, '5.0.0' )
-             ? 'KILL QUERY ?'
-             : 'KILL ?');
-   },
-   SHOW_MASTER_LOGS => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare('SHOW MASTER LOGS');
-   },
-   SHOW_MASTER_STATUS => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare('SHOW MASTER STATUS');
-   },
-   SHOW_SLAVE_STATUS => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare('SHOW SLAVE STATUS');
-   },
-   KILL_CONNECTION => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare(version_ge( $dbh, '5.0.0' )
-             ? 'KILL CONNECTION ?'
-             : 'KILL ?');
-   },
-   OPEN_TABLES => sub {
-      my ( $dbh ) = @_;
-      return version_ge($dbh, '4.0.0')
-         ? $dbh->prepare('SHOW OPEN TABLES')
-         : undef;
-   },
-   PROCESSLIST => sub {
-      my ( $dbh ) = @_;
-      return $dbh->prepare('SHOW FULL PROCESSLIST');
-   },
-);
-
-# Plugins!
-my %plugins = (
-);
-
-# ###########################################################################
-# Run the program {{{1
-# ###########################################################################
-
-# This config variable is only useful for MS Windows because its terminal
-# can't tell how tall it is.
-if ( !$windows ) {
-   delete $config{max_height};
-}
-
-# Try to lower my priority.
-eval { setpriority(0, 0, getpriority(0, 0) + 10); };
-
-# Print stuff to the screen immediately, don't wait for a newline.
-$OUTPUT_AUTOFLUSH = 1;
-
-# Clear the screen and load the configuration.
-$clear_screen_sub->();
-load_config();
-post_process_tbl_meta();
-
-# Make sure no changes are written to config file in non-interactive mode.
-if ( $opts{n} ) {
-   $config{readonly}->{val} = 1;
-}
-
-eval {
-
-   # Open the file for InnoDB status
-   if ( @ARGV ) {
-      my $filename = shift @ARGV;
-      open $file, "<", $filename
-         or die "Cannot open '$filename': $OS_ERROR";
-   }
-
-   # In certain modes we might have to collect data for two cycles
-   # before printing anything out, so we need to bump up the count one.
-   if ( $opts{n} && $opts{count} && $config{status_inc}->{val}
-      && $config{mode}->{val} =~ m/[S]/ )
-   {
-      $opts{count}++;
-   }
-
-   while (++$clock) {
-
-      my $mode = $config{mode}->{val} || 'T';
-      if ( !$modes{$mode} ) {
-         die "Mode '$mode' doesn't exist; try one of these:\n"
-            . join("\n", map { "  $_ $modes{$_}->{hdr}" }  sort keys %modes)
-            . "\n";
-      }
-
-      if ( !$opts{n} ) {
-         @last_term_size = @this_term_size;
-         @this_term_size = Term::ReadKey::GetTerminalSize(\*STDOUT);
-         if ( $windows ) {
-            $this_term_size[0]--;
-            $this_term_size[1]
-               = min($this_term_size[1], $config{max_height}->{val});
-         }
-         die("Can't read terminal size") unless @this_term_size;
-      }
-
-      # If there's no connection to a database server, we need to fix that...
-      if ( !%connections ) {
-         print "You have not defined any database connections.\n\n";
-         add_new_dsn();
-      }
-
-      # See whether there are any connections defined for this mode.  If there's only one
-      # connection total, assume the user wants to just use innotop for a single server
-      # and don't ask which server to connect to.  Also, if we're monitoring from a file,
-      # we just use the first connection.
-      if ( !get_connections() ) {
-         if ( $file || 1 == scalar keys %connections ) {
-            $modes{$config{mode}->{val}}->{connections} = [ keys %connections ];
-         }
-         else {
-            choose_connections();
-         }
-      }
-
-      # Term::ReadLine might have re-set $OUTPUT_AUTOFLUSH.
-      $OUTPUT_AUTOFLUSH = 1;
-
-      # Prune old data
-      my $sets = $config{num_status_sets}->{val};
-      foreach my $store ( values %vars ) {
-         delete @{$store}{ grep { $_ < $clock - $sets } keys %$store };
-      }
-      %info_gotten = ();
-
-      # Call the subroutine to display this mode.
-      $modes{$mode}->{display_sub}->();
-
-      # It may be time to quit now.
-      if ( $opts{count} && $clock >= $opts{count} ) {
-         finish();
-      }
-
-      # Wait for a bit.
-      if ( $opts{n} ) {
-         sleep($config{interval}->{val});
-      }
-      else {
-         ReadMode('cbreak');
-         $char = ReadKey($config{interval}->{val});
-         ReadMode('normal');
-      }
-
-      # Handle whatever action the key indicates.
-      do_key_action();
-
-   }
-};
-if ( $EVAL_ERROR ) {
-   core_dump( $EVAL_ERROR );
-}
-finish();
-
-# Subroutines {{{1
-# Mode functions{{{2
-# switch_mode {{{3
-sub switch_mode {
-   my $mode = shift;
-   $config{mode}->{val} = $mode;
-}
-
-# Prompting functions {{{2
-# prompt_list {{{3
-# Prompts the user for a value, given a question, initial value,
-# a completion function and a hashref of hints.
-sub prompt_list {
-   die "Can't call in non-interactive mode" if $opts{n};
-   my ( $question, $init, $completion, $hints ) = @_;
-   if ( $hints ) {
-      # Figure out how wide the table will be
-      my $max_name = max(map { length($_) } keys %$hints );
-      $max_name ||= 0;
-      $max_name +=  3;
-      my @meta_rows = create_table2(
-               [ sort keys %$hints ],
-               { map { $_ => $_ } keys %$hints },
-               { map { $_ => trunc($hints->{$_}, $this_term_size[0] - $max_name) } keys %$hints },
-               { sep => '  ' });
-      if (@meta_rows > 10) {
-         # Try to split and stack the meta rows next to each other
-         my $split = int(@meta_rows / 2);
-         @meta_rows = stack_next(
-            [@meta_rows[0..$split - 1]],
-            [@meta_rows[$split..$#meta_rows]],
-            { pad => ' | '},
-         );
-      }
-      print join( "\n",
-         '',
-         map { ref $_ ? colored(@$_) : $_ } create_caption('Choose from', @meta_rows), ''),
-         "\n";
-   }
-   $term->Attribs->{completion_function} = $completion;
-   my $answer = $term->readline("$question: ", $init);
-   $OUTPUT_AUTOFLUSH = 1;
-   $answer = '' if !defined($answer);
-   $answer =~ s/\s+$//;
-   return $answer;
-}
-
-# prompt {{{3
-# Prints out a prompt and reads from the keyboard, then validates with the
-# validation regex until the input is correct.
-sub prompt {
-   die "Can't call in non-interactive mode" if $opts{n};
-   my ( $prompt, $regex, $init, $completion ) = @_;
-   my $response;
-   my $success = 0;
-   do {
-      if ( $completion ) {
-         $term->Attribs->{completion_function} = $completion;
-      }
-      $response = $term->readline("$prompt: ", $init);
-      if ( $regex && $response !~ m/$regex/ ) {
-         print "Invalid response.\n\n";
-      }
-      else {
-         $success = 1;
-      }
-   } while ( !$success );
-   $OUTPUT_AUTOFLUSH = 1;
-   $response =~ s/\s+$//;
-   return $response;
-}
-
-# prompt_noecho {{{3
-# Unfortunately, suppressing echo with Term::ReadLine isn't reliable; the user might not
-# have that library, or it might not support that feature.
-sub prompt_noecho {
-   my ( $prompt ) = @_;
-   print colored("$prompt: ", 'underline');
-   my $response;
-   ReadMode('noecho');
-   $response = <STDIN>;
-   chomp($response);
-   ReadMode('normal');
-   return $response;
-}
-
-# do_key_action {{{3
-# Depending on whether a key was read, do something.  Keys have certain
-# actions defined in lookup tables.  Each mode may have its own lookup table,
-# which trumps the global table -- so keys can be context-sensitive.  The key
-# may be read and written in a subroutine, so it's a global.
-sub do_key_action {
-   if ( defined $char ) {
-      my $mode = $config{mode}->{val};
-      my $action
-         = defined($modes{$mode}->{action_for}->{$char})
-         ? $modes{$mode}->{action_for}->{$char}->{action}
-         : defined($action_for{$char})
-         ? $action_for{$char}->{action}
-         : sub{};
-      $action->();
-   }
-}
-
-# pause {{{3
-sub pause {
-   die "Can't call in non-interactive mode" if $opts{n};
-   my $msg = shift;
-   print defined($msg) ? "\n$msg" : "\nPress any key to continue";
-   ReadMode('cbreak');
-   my $char = ReadKey(0);
-   ReadMode('normal');
-   return $char;
-}
-
-# reverse_sort {{{3
-sub reverse_sort {
-   my $tbl = shift;
-   $tbl_meta{$tbl}->{sort_dir} *= -1;
-}
-
-# select_cxn {{{3
-# Selects connection(s).  If the mode (or argument list) has only one, returns
-# it without prompt.
-sub select_cxn {
-   my ( $prompt, @cxns ) = @_;
-   if ( !@cxns ) {
-      @cxns = get_connections();
-   }
-   if ( @cxns == 1 ) {
-      return $cxns[0];
-   }
-   my $choices = prompt_list(
-         $prompt,
-         $cxns[0],
-         sub{ return @cxns },
-         { map { $_ => $connections{$_}->{dsn} } @cxns });
-   my @result = unique(grep { my $a = $_; grep { $_ eq $a } @cxns } split(/\s+/, $choices));
-   return @result;
-}
-
-# kill_query {{{3
-# Kills a connection, or on new versions, optionally a query but not connection.
-sub kill_query {
-   my ( $q_or_c ) = @_;
-
-   my $info = choose_thread(
-      sub { 1 },
-      'Select a thread to kill the ' . $q_or_c,
-   );
-   return unless $info;
-   return unless pause("Kill $info->{id}?") =~ m/y/i;
-
-   eval {
-      do_stmt($info->{cxn}, $q_or_c eq 'QUERY' ? 'KILL_QUERY' : 'KILL_CONNECTION', $info->{id} );
-   };
-
-   if ( $EVAL_ERROR ) {
-      print "\nError: $EVAL_ERROR";
-      pause();
-   }
-}
-
-# set_display_precision {{{3
-sub set_display_precision {
-   my $dir = shift;
-   $config{num_digits}->{val} = min(9, max(0, $config{num_digits}->{val} + $dir));
-}
-
-sub toggle_visible_table {
-   my ( $mode, $table ) = @_;
-   my $visible = $modes{$mode}->{visible_tables};
-   if ( grep { $_ eq $table } @$visible ) {
-      $modes{$mode}->{visible_tables} = [ grep { $_ ne $table } @$visible ];
-   }
-   else {
-      unshift @$visible, $table;
-   }
-   $modes{$mode}->{cust}->{visible_tables} = 1;
-}
-
-# toggle_filter{{{3
-sub toggle_filter {
-   my ( $tbl, $filter ) = @_;
-   my $filters = $tbl_meta{$tbl}->{filters};
-   if ( grep { $_ eq $filter } @$filters ) {
-      $tbl_meta{$tbl}->{filters} = [ grep { $_ ne $filter } @$filters ];
-   }
-   else {
-      push @$filters, $filter;
-   }
-   $tbl_meta{$tbl}->{cust}->{filters} = 1;
-}
-
-# toggle_config {{{3
-sub toggle_config {
-   my ( $key ) = @_;
-   $config{$key}->{val} ^= 1;
-}
-
-# create_deadlock {{{3
-sub create_deadlock {
-   $clear_screen_sub->();
-
-   print "This function will deliberately cause a small deadlock, "
-      . "clearing deadlock information from the InnoDB monitor.\n\n";
-
-   my $answer = prompt("Are you sure you want to proceed?  Say 'y' if you do");
-   return 0 unless $answer eq 'y';
-
-   my ( $cxn ) = select_cxn('Clear on which server? ');
-   return unless $cxn && exists($connections{$cxn});
-
-   clear_deadlock($cxn);
-}
-
-# deadlock_thread {{{3
-sub deadlock_thread {
-   my ( $id, $tbl, $cxn ) = @_;
-
-   eval {
-      my $dbh = get_new_db_connection($cxn, 1);
-      my @stmts = (
-         "set transaction isolation level serializable",
-         (version_ge($dbh, '4.0.11') ? "start transaction" : 'begin'),
-         "select * from $tbl where a = $id",
-         "update $tbl set a = $id where a <> $id",
-      );
-
-      foreach my $stmt (@stmts[0..2]) {
-         $dbh->do($stmt);
-      }
-      sleep(1 + $id);
-      $dbh->do($stmts[-1]);
-   };
-   if ( $EVAL_ERROR ) {
-      if ( $EVAL_ERROR !~ m/Deadlock found/ ) {
-         die $EVAL_ERROR;
-      }
-   }
-   exit(0);
-}
-
-# Purges unused binlogs on the master, up to but not including the latest log.
-# TODO: guess which connections are slaves of a given master.
-sub purge_master_logs {
-   my @cxns = get_connections();
-
-   get_master_slave_status(@cxns);
-
-   # Toss out the rows that don't have master/slave status...
-   my @vars =
-      grep { $_ && ($_->{file} || $_->{master_host}) }
-      map  { $vars{$_}->{$clock} } @cxns;
-   @cxns = map { $_->{cxn} } @vars;
-
-   # Figure out which master to purge ons.
-   my @masters = map { $_->{cxn} } grep { $_->{file} } @vars;
-   my ( $master ) = select_cxn('Which master?', @masters );
-   return unless $master;
-   my ($master_status) = grep { $_->{cxn} eq $master } @vars;
-
-   # Figure out the result order (not lexical order) of master logs.
-   my @master_logs = get_master_logs($master);
-   my $i = 0;
-   my %master_logs = map { $_->{log_name} => $i++ } @master_logs;
-
-   # Ask which slave(s) are reading from this master.
-   my @slave_status = grep { $_->{master_host} } @vars;
-   my @slaves = map { $_->{cxn} } @slave_status;
-   @slaves = select_cxn("Which slaves are reading from $master?", @slaves);
-   @slave_status = grep { my $item = $_; grep { $item->{cxn} eq $_ } @slaves } @slave_status;
-   return unless @slave_status;
-
-   # Find the minimum binary log in use.
-   my $min_log = min(map { $master_logs{$_->{master_log_file}} } @slave_status);
-   my $log_name = $master_logs[$min_log]->{log_name};
-
-   my $stmt = "PURGE MASTER LOGS TO '$log_name'";
-   send_cmd_to_servers($stmt, 0, 'PURGE {MASTER | BINARY} LOGS {TO "log_name" | BEFORE "date"}', [$master]);
-}
-
-sub send_cmd_to_servers {
-   my ( $cmd, $all, $hint, $cxns ) = @_;
-   if ( $all ) {
-      @$cxns = get_connections();
-   }
-   elsif ( !@$cxns ) {
-      @$cxns = select_cxn('Which servers?', @$cxns);
-   }
-   if ( $hint ) {
-      print "\nHint: $hint\n";
-   }
-   $cmd = prompt('Command to send', undef, $cmd);
-   foreach my $cxn ( @$cxns ) {
-      eval {
-         my $sth = do_query($cxn, $cmd);
-      };
-      if ( $EVAL_ERROR ) {
-         print "Error from $cxn: $EVAL_ERROR\n";
-      }
-      else {
-         print "Success on $cxn\n";
-      }
-   }
-   pause();
-}
-
-# Display functions {{{2
-
-sub set_s_mode {
-   my ( $func ) = @_;
-   $clear_screen_sub->();
-   $config{S_func}->{val} = $func;
-}
-
-# start_S_mode {{{3
-sub start_S_mode {
-   $clear_screen_sub->();
-   switch_mode('S');
-}
-
-# display_B {{{3
-sub display_B {
-   my @display_lines;
-   my @cxns = get_connections();
-   get_innodb_status(\@cxns);
-
-   my @buffer_pool;
-   my @page_statistics;
-   my @insert_buffers;
-   my @adaptive_hash_index;
-   my %rows_for = (
-      buffer_pool         => \@buffer_pool,
-      page_statistics     => \@page_statistics,
-      insert_buffers      => \@insert_buffers,
-      adaptive_hash_index => \@adaptive_hash_index,
-   );
-
-   my @visible = get_visible_tables();
-   my %wanted  = map { $_ => 1 } @visible;
-
-   foreach my $cxn ( @cxns ) {
-      my $set = $vars{$cxn}->{$clock};
-      my $pre = $vars{$cxn}->{$clock-1} || $set;
-
-      if ( $set->{IB_bp_complete} ) {
-         if ( $wanted{buffer_pool} ) {
-            push @buffer_pool, extract_values($set, $set, $pre, 'buffer_pool');
-         }
-         if ( $wanted{page_statistics} ) {
-            push @page_statistics, extract_values($set, $set, $pre, 'page_statistics');
-         }
-      }
-      if ( $set->{IB_ib_complete} ) {
-         if ( $wanted{insert_buffers} ) {
-            push @insert_buffers, extract_values(
-               $config{status_inc}->{val} ? inc(0, $cxn) : $set, $set, $pre,
-               'insert_buffers');
-         }
-         if ( $wanted{adaptive_hash_index} ) {
-            push @adaptive_hash_index, extract_values($set, $set, $pre, 'adaptive_hash_index');
-         }
-      }
-   }
-
-   my $first_table = 0;
-   foreach my $tbl ( @visible ) {
-      push @display_lines, '', set_to_tbl($rows_for{$tbl}, $tbl);
-      push @display_lines, get_cxn_errors(@cxns)
-         if ( $config{debug}->{val} || !$first_table++ );
-   }
-
-   draw_screen(\@display_lines);
-}
-
-# display_C {{{3
-sub display_C {
-   my @display_lines;
-   my @cxns = get_connections();
-   get_status_info(@cxns);
-
-   my @cmd_summary;
-   my %rows_for = (
-      cmd_summary => \@cmd_summary,
-   );
-
-   my @visible = get_visible_tables();
-   my %wanted  = map { $_ => 1 } @visible;
-
-   # For now, I'm manually pulling these variables out and pivoting.  Eventually a SQL-ish
-   # dialect should let me join a table to a grouped and pivoted table and do this more easily.
-   # TODO: make it so.
-   my $prefix = qr/^$config{cmd_filter}->{val}/; # TODO: this is a total hack
-   my @values;
-   my ($total, $last_total) = (0, 0);
-   foreach my $cxn ( @cxns ) {
-      my $set = $vars{$cxn}->{$clock};
-      my $pre = $vars{$cxn}->{$clock-1} || $set;
-      foreach my $key ( keys %$set ) {
-         next unless $key =~ m/$prefix/i;
-         my $val = $set->{$key};
-         next unless defined $val && $val =~ m/^\d+$/;
-         my $last_val = $val - ($pre->{$key} || 0);
-         $total      += $val;
-         $last_total += $last_val;
-         push @values, {
-            name       => $key,
-            value      => $val,
-            last_value => $last_val,
-         };
-      }
-   }
-
-   # Add aggregation and turn into a real set TODO: total hack
-   if ( $wanted{cmd_summary} ) {
-      foreach my $value ( @values ) {
-         @{$value}{qw(total last_total)} = ($total, $last_total);
-         push @cmd_summary, extract_values($value, $value, $value, 'cmd_summary');
-      }
-   }
-
-   my $first_table = 0;
-   foreach my $tbl ( @visible ) {
-      push @display_lines, '', set_to_tbl($rows_for{$tbl}, $tbl);
-      push @display_lines, get_cxn_errors(@cxns)
-         if ( $config{debug}->{val} || !$first_table++ );
-   }
-
-   draw_screen(\@display_lines);
-}
-
-# display_D {{{3
-sub display_D {
-   my @display_lines;
-   my @cxns = get_connections();
-   get_innodb_status(\@cxns);
-
-   my @deadlock_transactions;
-   my @deadlock_locks;
-   my %rows_for = (
-      deadlock_transactions => \@deadlock_transactions,
-      deadlock_locks        => \@deadlock_locks,
-   );
-
-   my @visible = get_visible_tables();
-   my %wanted  = map { $_ => 1 } @visible;
-
-   foreach my $cxn ( @cxns ) {
-      my $innodb_status = $vars{$cxn}->{$clock};
-      my $prev_status   = $vars{$cxn}->{$clock-1} || $innodb_status;
-
-      if ( $innodb_status->{IB_dl_timestring} ) {
-
-         my $victim = $innodb_status->{IB_dl_rolled_back} || 0;
-
-         if ( %wanted ) {
-            foreach my $txn_id ( keys %{$innodb_status->{IB_dl_txns}} ) {
-               my $txn = $innodb_status->{IB_dl_txns}->{$txn_id};
-               my $pre = $prev_status->{IB_dl_txns}->{$txn_id} || $txn;
-
-               if ( $wanted{deadlock_transactions} ) {
-                  my $hash = extract_values($txn->{tx}, $txn->{tx}, $pre->{tx}, 'deadlock_transactions');
-                  $hash->{cxn}        = $cxn;
-                  $hash->{dl_txn_num} = $txn_id;
-                  $hash->{victim}     = $txn_id == $victim ? 'Yes' : 'No';
-                  $hash->{timestring} = $innodb_status->{IB_dl_timestring};
-                  $hash->{truncates}  = $innodb_status->{IB_dl_complete} ? 'No' : 'Yes';
-                  push @deadlock_transactions, $hash;
-               }
-
-               if ( $wanted{deadlock_locks} ) {
-                  foreach my $lock ( @{$txn->{locks}} ) {
-                     my $hash = extract_values($lock, $lock, $lock, 'deadlock_locks');
-                     $hash->{dl_txn_num}      = $txn_id;
-                     $hash->{cxn}             = $cxn;
-                     $hash->{mysql_thread_id} = $txn->{tx}->{mysql_thread_id};
-                     push @deadlock_locks, $hash;
-                  }
-               }
-
-            }
-         }
-      }
-   }
-
-   my $first_table = 0;
-   foreach my $tbl ( @visible ) {
-      push @display_lines, '', set_to_tbl($rows_for{$tbl}, $tbl);
-      push @display_lines, get_cxn_errors(@cxns)
-         if ( $config{debug}->{val} || !$first_table++ );
-   }
-
-   draw_screen(\@display_lines);
-}
-
-# display_F {{{3
-sub display_F {
-   my @display_lines;
-   my ( $cxn ) = get_connections();
-   get_innodb_status([$cxn]);
-   my $innodb_status = $vars{$cxn}->{$clock};
-
-   if ( $innodb_status->{IB_fk_timestring} ) {
-
-      push @display_lines, 'Reason: ' . $innodb_status->{IB_fk_reason};
-
-      # Display FK errors caused by invalid DML.
-      if ( $innodb_status->{IB_fk_txn} ) {
-         my $txn = $innodb_status->{IB_fk_txn};
-         push @display_lines,
-            '',
-            "User $txn->{user} from $txn->{hostname}, thread $txn->{mysql_thread_id} was executing:",
-            '', no_ctrl_char($txn->{query_text});
-      }
-
-      my @fk_table = create_table2(
-         $tbl_meta{fk_error}->{visible},
-         meta_to_hdr('fk_error'),
-         extract_values($innodb_status, $innodb_status, $innodb_status, 'fk_error'),
-         { just => '-', sep => '  '});
-      push @display_lines, '', @fk_table;
-
-   }
-   else {
-      push @display_lines, '', 'No foreign key error data.';
-   }
-   draw_screen(\@display_lines, { raw => 1 } );
-}
-
-# display_I {{{3
-sub display_I {
-   my @display_lines;
-   my @cxns = get_connections();
-   get_innodb_status(\@cxns);
-
-   my @io_threads;
-   my @pending_io;
-   my @file_io_misc;
-   my @log_statistics;
-   my %rows_for = (
-      io_threads     => \@io_threads,
-      pending_io     => \@pending_io,
-      file_io_misc   => \@file_io_misc,
-      log_statistics => \@log_statistics,
-   );
-
-   my @visible = get_visible_tables();
-   my %wanted  = map { $_ => 1 } @visible;
-
-   foreach my $cxn ( @cxns ) {
-      my $set = $vars{$cxn}->{$clock};
-      my $pre = $vars{$cxn}->{$clock-1} || $set;
-
-      if ( $set->{IB_io_complete} ) {
-         if ( $wanted{io_threads} ) {
-            my $cur_threads = $set->{IB_io_threads};
-            my $pre_threads = $pre->{IB_io_threads} || $cur_threads;
-            foreach my $key ( sort keys %$cur_threads ) {
-               my $cur_thd = $cur_threads->{$key};
-               my $pre_thd = $pre_threads->{$key} || $cur_thd;
-               my $hash = extract_values($cur_thd, $cur_thd, $pre_thd, 'io_threads');
-               $hash->{cxn} = $cxn;
-               push @io_threads, $hash;
-            }
-         }
-         if ( $wanted{pending_io} ) {
-            push @pending_io, extract_values($set, $set, $pre, 'pending_io');
-         }
-         if ( $wanted{file_io_misc} ) {
-            push @file_io_misc, extract_values(
-               $config{status_inc}->{val} ? inc(0, $cxn) : $set,
-               $set, $pre, 'file_io_misc');
-         }
-      }
-      if ( $set->{IB_lg_complete} && $wanted{log_statistics} ) {
-         push @log_statistics, extract_values($set, $set, $pre, 'log_statistics');
-      }
-   }
-
-   my $first_table = 0;
-   foreach my $tbl ( @visible ) {
-      push @display_lines, '', set_to_tbl($rows_for{$tbl}, $tbl);
-      push @display_lines, get_cxn_errors(@cxns)
-         if ( $config{debug}->{val} || !$first_table++ );
-   }
-
-   draw_screen(\@display_lines);
-}
-
-# display_L {{{3
-sub display_L {
-   my @display_lines;
-   my @cxns = get_connections();
-   get_innodb_status(\@cxns);
-
-   my @innodb_locks;
-   my %rows_for = (
-      innodb_locks => \@innodb_locks,
-   );
-
-   my @visible = get_visible_tables();
-   my %wanted  = map { $_ => 1 } @visible;
-
-   # Get info on locks
-   foreach my $cxn ( @cxns ) {
-      my $set = $vars{$cxn}->{$clock} or next;
-      my $pre = $vars{$cxn}->{$clock-1} || $set;
-
-      if ( $wanted{innodb_locks} && defined $set->{IB_tx_transactions} && @{$set->{IB_tx_transactions}} ) {
-
-         my $cur_txns = $set->{IB_tx_transactions};
-         my $pre_txns = $pre->{IB_tx_transactions} || $cur_txns;
-         my %cur_txns = map { $_->{mysql_thread_id} => $_ } @$cur_txns;
-         my %pre_txns = map { $_->{mysql_thread_id} => $_ } @$pre_txns;
-         foreach my $txn ( @$cur_txns ) {
-            foreach my $lock ( @{$txn->{locks}} ) {
-               my %hash = map { $_ => $txn->{$_} } qw(txn_id mysql_thread_id lock_wait_time active_secs);
-               map { $hash{$_} = $lock->{$_} } qw(lock_type space_id page_no n_bits index db table txn_id lock_mode special insert_intention waiting);
-               $hash{cxn} = $cxn;
-               push @innodb_locks, extract_values(\%hash, \%hash, \%hash, 'innodb_locks');
-            }
-         }
-      }
-   }
-
-   my $first_table = 0;
-   foreach my $tbl ( @visible ) {
-      push @display_lines, '', set_to_tbl($rows_for{$tbl}, $tbl);
-      push @display_lines, get_cxn_errors(@cxns)
-         if ( $config{debug}->{val} || !$first_table++ );
-   }
-
-   draw_screen(\@display_lines);
-}
-
-# display_M {{{3
-sub display_M {
-   my @display_lines;
-   my @cxns = get_connections();
-   get_master_slave_status(@cxns);
-   get_status_info(@cxns);
-
-   my @slave_sql_status;
-   my @slave_io_status;
-   my @master_status;
-   my %rows_for = (
-      slave_sql_status => \@slave_sql_status,
-      slave_io_status  => \@slave_io_status,
-      master_status    => \@master_status,
-   );
-
-   my @visible = get_visible_tables();