percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-12-24 02:01:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #315 from percona/release-3.0.8

Browse Source 
Release 3.0.8
This commit is contained in:
EvgeniyPatlan
2018-03-16 15:30:32 +02:00
committed by GitHub
parent 7f9cbd7f67 283ac9a6bf
commit cb88cbb7d8
45 changed files with 8212 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

@@ -20,4 +20,4 @@ vendor/
src/go/*.bak
config/deb/control.bak
config/rpm/percona-toolkit.spec.bak
config/sphinx-build/percona-theme/*

4
Changelog
View File

@@ -1,5 +1,9 @@
Changelog for Percona Toolkit
v3.0.8 released 2018-03-13
* Feature PT-1500 : add --secure-slowlog option to pt-query digest
v3.0.7 released 2018-03-01
* Fixed Bug PT-244 : pt-online-schema-change --data-dir option broken for partitioned table

2
Makefile.PL
View File

@@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'percona-toolkit',
VERSION => '3.0.7',
VERSION => '3.0.8',
EXE_FILES => [ <bin/*> ],
MAN1PODS => {
'docs/percona-toolkit.pod' => 'blib/man1/percona-toolkit.1p',

2
bin/pt-align
View File

@@ -1359,6 +1359,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-align 3.0.7
pt-align 3.0.8
=cut

4
bin/pt-archiver
View File

@@ -45,7 +45,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -8579,6 +8579,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-archiver 3.0.7
pt-archiver 3.0.8
=cut

4
bin/pt-config-diff
View File

@@ -43,7 +43,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -5884,6 +5884,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-config-diff 3.0.7
pt-config-diff 3.0.8
=cut

4
bin/pt-deadlock-logger
View File

@@ -42,7 +42,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -5674,6 +5674,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-deadlock-logger 3.0.7
pt-deadlock-logger 3.0.8
=cut

4
bin/pt-diskstats
View File

@@ -38,7 +38,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -5668,6 +5668,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-diskstats 3.0.7
pt-diskstats 3.0.8
=cut

4
bin/pt-duplicate-key-checker
View File

@@ -39,7 +39,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -5737,6 +5737,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-duplicate-key-checker 3.0.7
pt-duplicate-key-checker 3.0.8
=cut

2
bin/pt-fifo-split
View File

@@ -1648,6 +1648,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-fifo-split 3.0.7
pt-fifo-split 3.0.8
=cut

4
bin/pt-find
View File

@@ -35,7 +35,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -5098,6 +5098,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-find 3.0.7
pt-find 3.0.8
=cut

2
bin/pt-fingerprint
View File

@@ -2239,6 +2239,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-fingerprint 3.0.7
pt-fingerprint 3.0.8
=cut

4
bin/pt-fk-error-logger
View File

@@ -37,7 +37,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -4660,6 +4660,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-fk-error-logger 3.0.7
pt-fk-error-logger 3.0.8
=cut

4
bin/pt-heartbeat
View File

@@ -44,7 +44,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -7301,6 +7301,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-heartbeat 3.0.7
pt-heartbeat 3.0.8
=cut

4
bin/pt-index-usage
View File

@@ -45,7 +45,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -7667,6 +7667,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-index-usage 3.0.7
pt-index-usage 3.0.8
=cut

2
bin/pt-ioprofile
View File

@@ -1127,7 +1127,7 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-ioprofile 3.0.7
pt-ioprofile 3.0.8
=cut

8
bin/pt-kill
View File

@@ -47,7 +47,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -8304,9 +8304,7 @@ See also L<"--wait-before-kill"> and L<"--wait-after-kill">.
=item --kill-busy-commands
type: string
default: Query
type: string; default: Query
group: Actions
@@ -8497,6 +8495,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-kill 3.0.7
pt-kill 3.0.8
=cut

2
bin/pt-mext
View File

@@ -804,7 +804,7 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-mext 3.0.7
pt-mext 3.0.8
=cut

2
bin/pt-mysql-summary
View File

@@ -3195,7 +3195,7 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-mysql-summary 3.0.7
pt-mysql-summary 3.0.8
=cut

4
bin/pt-online-schema-change
View File

@@ -56,7 +56,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -13038,6 +13038,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-online-schema-change 3.0.7
pt-online-schema-change 3.0.8
=cut

2
bin/pt-pmp
View File

@@ -897,7 +897,7 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-pmp 3.0.7
pt-pmp 3.0.8
=cut

31
bin/pt-query-digest
View File

@@ -64,7 +64,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -5246,7 +5246,7 @@ sub new {
}
sub write {
my ( $self, $fh, $event ) = @_;
my ( $self, $fh, $event, $field ) = @_;
if ( $event->{ts} ) {
print $fh "# Time: $event->{ts}\n";
}
@@ -5292,7 +5292,11 @@ sub write {
if ( $event->{arg} =~ m/^administrator command/ ) {
print $fh '# ';
}
print $fh $event->{arg}, ";\n";
if ($field && $event->{$field}) {
print $fh $event->{$field}, ";\n";
} else {
print $fh $event->{arg}, ";\n";
}
return;
}
@@ -6728,6 +6732,7 @@ sub BUILDARGS {
shorten => 1024,
report_all => $o->get('report-all'),
report_histogram => $o->get('report-histogram'),
output => $o->got('output') ? $o->get('output') : '',
},
num_format => '# %1$-'.$label_width.'s %2$3s %3$7s %4$7s %5$7s %6$7s %7$7s %8$7s %9$7s',
bool_format => '# %1$-'.$label_width.'s %2$3d%% yes, %3$3d%% no',
@@ -6928,7 +6933,7 @@ sub query_report_values {
my $rank = $top_event->[2];
my $stats = $ea->results->{classes}->{$item};
my $sample = $ea->results->{samples}->{$item};
my $samp_query = $sample->{arg} || '';
my $samp_query = ($self->{options}->{output} eq 'secure-slowlog') ? $sample->{fingerprint} || '' : $sample->{arg} || '';
my %item_vals = (
item => $item,
@@ -14223,13 +14228,14 @@ sub main {
if ( $o->get('output') =~ /slowlog/i ) {
my $w = new SlowLogWriter();
my $field = $o->get('output') eq 'secure-slowlog' ? 'fingerprint' : '';
$pipeline->add(
name => '--output slowlog',
process => sub {
my ( $args ) = @_;
my $event = $args->{event};
PTDEBUG && _d('callback: --output slowlog');
$w->write(*STDOUT, $event);
$w->write(*STDOUT, $event, $field);
return $args;
},
);
@@ -15980,12 +15986,13 @@ type: string; default: report
How to format and print the query analysis results. Accepted values are:
VALUE FORMAT
======= ==============================
report Standard query analysis report
slowlog MySQL slow log
json JSON, on array per query class
json-anon JSON without example queries
VALUE FORMAT
======= ==============================
report Standard query analysis report
slowlog MySQL slow log
json JSON, on array per query class
json-anon JSON without example queries
secure-slowlog JSON without example queries
The entire C<report> output can be disabled by specifying C<--no-report>
(see L<"--[no]report">), and its sections can be disabled or rearranged
@@ -16871,6 +16878,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-query-digest 3.0.7
pt-query-digest 3.0.8
=cut

2
bin/pt-show-grants
View File

@@ -2524,6 +2524,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-show-grants 3.0.7
pt-show-grants 3.0.8
=cut

2
bin/pt-sift
View File

@@ -1245,7 +1245,7 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-sift 3.0.7
pt-sift 3.0.8
=cut

4
bin/pt-slave-delay
View File

@@ -40,7 +40,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -4960,6 +4960,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-slave-delay 3.0.7
pt-slave-delay 3.0.8
=cut

2
bin/pt-slave-find
View File

@@ -4482,6 +4482,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-slave-find 3.0.7
pt-slave-find 3.0.8
=cut

4
bin/pt-slave-restart
View File

@@ -41,7 +41,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -6112,6 +6112,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-slave-restart 3.0.7
pt-slave-restart 3.0.8
=cut

2
bin/pt-stalk
View File

@@ -2376,7 +2376,7 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-stalk 3.0.7
pt-stalk 3.0.8
=cut

2
bin/pt-summary
View File

@@ -2723,7 +2723,7 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-summary 3.0.7
pt-summary 3.0.8
=cut

4
bin/pt-table-checksum
View File

@@ -58,7 +58,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -13948,6 +13948,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-table-checksum 3.0.7
pt-table-checksum 3.0.8
=cut

4
bin/pt-table-sync
View File

@@ -55,7 +55,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -13043,6 +13043,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-table-sync 3.0.7
pt-table-sync 3.0.8
=cut

2
bin/pt-table-usage
View File

@@ -8487,6 +8487,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-table-usage 3.0.7
pt-table-usage 3.0.8
=cut

4
bin/pt-upgrade
View File

@@ -61,7 +61,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -11414,6 +11414,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-upgrade 3.0.7
pt-upgrade 3.0.8
=cut

4
bin/pt-variable-advisor
View File

@@ -44,7 +44,7 @@ BEGIN {
{
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';
@@ -6229,6 +6229,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-variable-advisor 3.0.7
pt-variable-advisor 3.0.8
=cut

2
bin/pt-visual-explain
View File

@@ -3281,6 +3281,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
pt-visual-explain 3.0.7
pt-visual-explain 3.0.8
=cut

5
config/deb/changelog
View File

@@ -1,3 +1,8 @@
percona-toolkit (3.0.8-1) unstable; urgency=low
-- Percona Toolkit Developers <toolkit-dev@percona.com> Tue, 13 Mar 2018 13:58:27 +0000
percona-toolkit (3.0.7-1) unstable; urgency=low

2
config/deb/postinst
View File

@@ -2,7 +2,7 @@
if [ ! -e /etc/percona-toolkit/.percona.toolkit.uuid ]; then
mkdir -p /etc/percona-toolkit
if [ -e /sys/class/dmi/id/product_uuid ]; then
if [ -r /sys/class/dmi/id/product_uuid ]; then
cat /sys/class/dmi/id/product_uuid > /etc/percona-toolkit/.percona.toolkit.uuid
else
perl -e 'printf+($}="%04x")."$}-$}-$}-$}-".$}x3,map rand 65537,0..7;' > /etc/percona-toolkit/.percona.toolkit.uuid

2
config/rpm/percona-toolkit.spec
View File

@@ -45,7 +45,7 @@ chmod -R u+w $RPM_BUILD_ROOT/*
%post
if [ ! -e /etc/percona-toolkit/.percona.toolkit.uuid ]; then
mkdir -p /etc/percona-toolkit
if [ -e /sys/class/dmi/id/product_uuid ]; then
if [ -r /sys/class/dmi/id/product_uuid ]; then
cat /sys/class/dmi/id/product_uuid > /etc/percona-toolkit/.percona.toolkit.uuid
else
perl -e 'printf+($}="%04x")."$}-$}-$}-$}-".$}x3,map rand 65537,0..7;' > /etc/percona-toolkit/.percona.toolkit.uuid

2
config/sphinx-build/conf.py
View File

@@ -50,7 +50,7 @@ copyright = u'2017, Percona LLC and/or its affiliates'
# The short X.Y version.
version = '3.0'
# The full version, including alpha/beta/rc tags.
release = '3.0.7'
release = '3.0.8'
# The language for content autogenerated by Sphinx. Refer to documentation
# for a list of supported languages.

2
docs/percona-toolkit.pod
View File

@@ -560,6 +560,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
=head1 VERSION
Percona Toolkit v3.0.7 released 2018-03-01
Percona Toolkit v3.0.8 released 2018-03-13
=cut

8118
docs/release_notes.rst
View File

File diff suppressed because it is too large Load Diff

2
lib/Percona/Toolkit.pm
View File

@@ -18,7 +18,7 @@
# ###########################################################################
package Percona::Toolkit;
our $VERSION = '3.0.7';
our $VERSION = '3.0.8';
use strict;
use warnings FATAL => 'all';

3
lib/QueryReportFormatter.pm
View File

@@ -122,6 +122,7 @@ sub BUILDARGS {
shorten => 1024,
report_all => $o->get('report-all'),
report_histogram => $o->get('report-histogram'),
output => $o->got('output') ? $o->get('output') : '',
},
num_format => '# %1$-'.$label_width.'s %2$3s %3$7s %4$7s %5$7s %6$7s %7$7s %8$7s %9$7s',
bool_format => '# %1$-'.$label_width.'s %2$3d%% yes, %3$3d%% no',
@@ -358,7 +359,7 @@ sub query_report_values {
my $rank = $top_event->[2];
my $stats = $ea->results->{classes}->{$item};
my $sample = $ea->results->{samples}->{$item};
my $samp_query = $sample->{arg} || '';
my $samp_query = ($self->{options}->{output} eq 'secure-slowlog') ? $sample->{fingerprint} || '' : $sample->{arg} || '';
my %item_vals = (
item => $item,

9
lib/SlowLogWriter.pm
View File

@@ -34,7 +34,7 @@ sub new {
# Print out in slow-log format.
sub write {
my ( $self, $fh, $event ) = @_;
my ( $self, $fh, $event, $field ) = @_;
if ( $event->{ts} ) {
print $fh "# Time: $event->{ts}\n";
}
@@ -85,7 +85,12 @@ sub write {
if ( $event->{arg} =~ m/^administrator command/ ) {
print $fh '# ';
}
print $fh $event->{arg}, ";\n";
if ($field && $event->{$field}) {
print $fh $event->{$field}, ";\n";
} else {
print $fh $event->{arg}, ";\n";
}
return;
}

2
src/go/Makefile
View File

@@ -1,6 +1,6 @@
GO := go
pkgs = $(shell find . -type d -name "pt-mongodb*" -exec basename {} \;)
VERSION="3.0.7"
VERSION="3.0.8"
BUILD=$(shell date +%FT%T%z)
GOVERSION=$(shell go version | cut --delimiter=" " -f3)
GOUTILSDIR ?= $(GOPATH)/bin