mirror of
https://github.com/MariaDB/server.git
synced 2025-01-17 04:22:27 +01:00
967c14c04e
Cherry-pick the commits the mysql and some changes.
WL#4618 RBR: extended table metadata in the binary log
This patch extends Table Map Event. It appends some new fields for
more metadata. The new metadata includes:
- Signedness of Numberic Columns
- Character Set of Character Columns and Binary Columns
- Column Name
- String Value of SET Columns
- String Value of ENUM Columns
- Primary Key
- Character Set of SET Columns and ENUM Columns
- Geometry Type
Some of them are optional, the patch introduces a GLOBAL system
variable to control it. It is binlog_row_metadata.
- Scope: GLOBAL
- Dynamic: Yes
- Type: ENUM
- Values: {NO_LOG, MINIMAL, FULL}
- Default: NO_LOG
Only Signedness, character set and geometry type are logged if it is MINIMAL.
Otherwise all of them are logged.
Also add a binlog_type_info() to field, So that we can have extract
relevant binlog info from field.
104 lines
3.6 KiB
PHP
104 lines
3.6 KiB
PHP
# Purpose:
|
|
# Simple search with Perl for a pattern in some file.
|
|
#
|
|
# The advantages compared to thinkable auxiliary constructs using the
|
|
# mysqltest language and SQL are:
|
|
# 1. We do not need a running MySQL server.
|
|
# 2. SQL causes "noise" during debugging and increases the size of logs.
|
|
# Perl code does not disturb at all.
|
|
#
|
|
# The environment variables SEARCH_FILE and SEARCH_PATTERN must be set
|
|
# before sourcing this routine.
|
|
# SEARCH_TYPE can also be set to either NULL(default) or _gm_
|
|
# NULL is equivalent of using m/SEARCH_PATTERN/gs
|
|
# _gm_ is equivalent of using m/SEARCH_RANGE/gm
|
|
#
|
|
# Optionally, SEARCH_RANGE can be set to the max number of bytes of the file
|
|
# to search. If negative, it will search that many bytes at the end of the
|
|
# file. By default the search happens from the last CURRENT_TEST:
|
|
# marker till the end of file (appropriate for searching error logs).
|
|
#
|
|
# Optionally, SEARCH_ABORT can be set to "FOUND" or "NOT FOUND" and this
|
|
# will abort if the search result doesn't match the requested one.
|
|
#
|
|
# Optionally, SEARCH_OUTPUT can be set to control the format of output.
|
|
# Supported formats:
|
|
# - (default) : "FOUND n /pattern/ in FILE " or "NOT FOUND ..."
|
|
# - "matches" : Each match is printed, on a separate line
|
|
#
|
|
# In case of
|
|
# - SEARCH_FILE and/or SEARCH_PATTERN is not set
|
|
# - SEARCH_FILE cannot be opened
|
|
# the test will abort immediate.
|
|
#
|
|
# Typical use case (check invalid server startup options):
|
|
# let $error_log= $MYSQLTEST_VARDIR/log/my_restart.err;
|
|
# --error 0,1
|
|
# --remove_file $error_log
|
|
# let SEARCH_FILE= $error_log;
|
|
# # Stop the server
|
|
# let $restart_file= $MYSQLTEST_VARDIR/tmp/mysqld.1.expect;
|
|
# --exec echo "wait" > $restart_file
|
|
# --shutdown_server 10
|
|
# --source include/wait_until_disconnected.inc
|
|
#
|
|
# --error 1
|
|
# --exec $MYSQLD_CMD <whatever wrong setting> > $error_log 2>&1
|
|
# # The server restart aborts
|
|
# let SEARCH_PATTERN= \[ERROR\] Aborting;
|
|
# --source include/search_pattern_in_file.inc
|
|
#
|
|
# Created: 2011-11-11 mleich
|
|
#
|
|
|
|
perl;
|
|
use strict;
|
|
die "SEARCH_FILE not set" unless $ENV{SEARCH_FILE};
|
|
my @search_files= glob($ENV{SEARCH_FILE});
|
|
my $search_pattern= $ENV{SEARCH_PATTERN} or die "SEARCH_PATTERN not set";
|
|
my $search_range= $ENV{SEARCH_RANGE};
|
|
my $content;
|
|
foreach my $search_file (@search_files) {
|
|
open(FILE, '<', $search_file) || die("Can't open file $search_file: $!");
|
|
my $file_content;
|
|
if ($search_range > 0) {
|
|
read(FILE, $file_content, $search_range, 0);
|
|
} elsif ($search_range < 0) {
|
|
my $size= -s $search_file;
|
|
$search_range = -$size if $size > -$search_range;
|
|
seek(FILE, $search_range, 2);
|
|
read(FILE, $file_content, -$search_range, 0);
|
|
} else {
|
|
while(<FILE>) { # error log
|
|
if (/^CURRENT_TEST:/) {
|
|
$content='';
|
|
} else {
|
|
$content.=$_;
|
|
}
|
|
}
|
|
}
|
|
close(FILE);
|
|
$content.= $file_content;
|
|
}
|
|
my @matches;
|
|
if (not defined($ENV{SEARCH_TYPE}))
|
|
{
|
|
@matches=($content =~ /$search_pattern/gs);
|
|
}
|
|
elsif($ENV{SEARCH_TYPE} == "_gm_")
|
|
{
|
|
@matches=($content =~ /$search_pattern/gm);
|
|
}
|
|
my $res=@matches ? "FOUND " . scalar(@matches) : "NOT FOUND";
|
|
$ENV{SEARCH_FILE} =~ s{^.*?([^/\\]+)$}{$1};
|
|
|
|
if ($ENV{SEARCH_OUTPUT} eq "matches") {
|
|
foreach (@matches) {
|
|
print $_ . "\n";
|
|
}
|
|
} else {
|
|
print "$res /$search_pattern/ in $ENV{SEARCH_FILE}\n";
|
|
}
|
|
die "$ENV{SEARCH_ABORT}\n"
|
|
if $ENV{SEARCH_ABORT} && $res =~ /^$ENV{SEARCH_ABORT}/;
|
|
EOF
|