hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding stop option into mysql_tables

Browse source
This commit is contained in:
Jean-Marie Renouard 2023-04-25 23:43:23 +02:00
parent de3903a43f
commit b218cdf05f
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mysqltuner.pl
View file

@ -111,7 +111,7 @@ my %opt = (
"defaults-extra-file" => '', "defaults-extra-file" => '',
"protocol" => '', "protocol" => '',
"dumpdir" => '', "dumpdir" => '',
"stop-after-dumping" => 0, "stop" => 0,
); );
# Gather the options from the command line # Gather the options from the command line
@ -144,7 +144,7 @@ GetOptions(
'idxstat', 'noidxstat', 'idxstat', 'noidxstat',
'server-log=s', 'protocol=s', 'server-log=s', 'protocol=s',
'defaults-extra-file=s', 'dumpdir=s', 'defaults-extra-file=s', 'dumpdir=s',
'stop-after-dumping' 'stop'
) )
or pod2usage( or pod2usage(
-exitval => 1, -exitval => 1,
@ -3972,7 +3972,7 @@ sub mysqsl_pfs {
); );
} }
} }
exit 0 if ( $opt{stop-after-dumping} == 1 ); exit 0 if ( $opt{stop} == 1 );
# Top user per connection # Top user per connection
subheaderprint "Performance schema: Top 5 user per connection"; subheaderprint "Performance schema: Top 5 user per connection";
@ -6508,6 +6508,7 @@ sub mysql_tables {
"select * from information_schema.$info_s_table" "select * from information_schema.$info_s_table"
); );
} }
exit 0 if ( $opt{stop} == 1 );
} }
foreach ( select_user_dbs() ) { foreach ( select_user_dbs() ) {
my $dbname = $_; my $dbname = $_;