@@ -1175,6 +1175,7 @@ sub get_all_vars {
1175
1175
$result {' Storage Engines' }{$engine } = $2 ;
1176
1176
}
1177
1177
}
1178
+
1178
1179
# debugprint Dumper(@mysqlenginelist);
1179
1180
1180
1181
my @mysqlslave ;
@@ -1457,7 +1458,8 @@ sub get_opened_ports {
1457
1458
$v ;
1458
1459
} @opened_ports ;
1459
1460
@opened_ports = sort { $a <=> $b } grep { !/^$/ } @opened_ports ;
1460
- # debugprint Dumper \@opened_ports;
1461
+
1462
+ # debugprint Dumper \@opened_ports;
1461
1463
$result {' Network' }{' TCP Opened' } = \@opened_ports ;
1462
1464
return @opened_ports ;
1463
1465
}
@@ -1864,6 +1866,7 @@ sub security_recommendations {
1864
1866
# Looking for Anonymous users
1865
1867
my @mysqlstatlist = select_array
1866
1868
" SELECT CONCAT(QUOTE(user), '\@ ', QUOTE(host)) FROM mysql.user WHERE TRIM(USER) = '' OR USER IS NULL" ;
1869
+
1867
1870
# debugprint Dumper \@mysqlstatlist;
1868
1871
1869
1872
# exit 0;
@@ -2363,6 +2366,7 @@ sub check_storage_engines {
2363
2366
# Parse through the table list to generate storage engine counts/statistics
2364
2367
$fragtables = 0;
2365
2368
foreach my $tbl (@tblist ) {
2369
+
2366
2370
# debugprint "Data dump " . Dumper(@$tbl);
2367
2371
my ( $engine , $size , $datafree ) = @$tbl ;
2368
2372
next if $engine eq ' NULL' or not defined ($engine );
@@ -5363,6 +5367,7 @@ sub get_wsrep_options {
5363
5367
push @galera_options , ' wsrep_slave_threads = ' . $wsrep_slave_threads ;
5364
5368
@galera_options = remove_cr @galera_options ;
5365
5369
@galera_options = remove_empty @galera_options ;
5370
+
5366
5371
# debugprint Dumper( \@galera_options );
5367
5372
return @galera_options ;
5368
5373
}
@@ -5695,6 +5700,7 @@ sub mariadb_galera {
5695
5700
debugprint " WSREP: $key = $mystat {$key }" ;
5696
5701
}
5697
5702
}
5703
+
5698
5704
# debugprint Dumper get_wsrep_options();
5699
5705
}
5700
5706
@@ -6464,6 +6470,7 @@ sub file2string {
6464
6470
}
6465
6471
6466
6472
sub dump_result {
6473
+
6467
6474
# debugprint Dumper( \%result ) if ( $opt{'debug'} );
6468
6475
debugprint " HTML REPORT: $opt {'reportfile'}" ;
6469
6476
0 commit comments