percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-24 21:35:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

added new hook before_die (#509)

Browse Source 
* added new hook before_die

before die, the script calls this hook in oder to execute extra user's 
operations

* PR-509 -  added new hook before_die

- Added test cases

---------

Co-authored-by: Sveta Smirnova <sveta.smirnova@percona.com>
This commit is contained in:
Ilaria Migliozzi
2023-11-06 16:22:14 +01:00
committed by GitHub
parent a15207e6cd
commit 8e4824813f
6 changed files with 222 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
t/pt-online-schema-change/samples/plugins/before_die_after_nibble.pm Normal file
View File

@@ -0,0 +1,32 @@
package pt_online_schema_change_plugin;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
sub new {
my ($class, %args) = @_;
my $self = { %args };
return bless $self, $class;
}
sub before_die {
my ($self, %args) = @_;
print "PLUGIN before_die\n";
print "Exit status: $args{exit_status}\n";
}
sub on_copy_rows_after_nibble {
my ($self, %args) = @_;
my $tbl = $args{tbl};
print "PLUGIN on_copy_rows_after_nibble\n";
if ($tbl->{row_cnt} > 1000) {
my $dbh = $self->{aux_cxn}->dbh;
# Run invalid query to get error
$dbh->do("SELECT * FRO " . $tbl->{name});
}
}
1;