Commit 13ec2ecc authored by Otto Kekäläinen's avatar Otto Kekäläinen Committed by Vicențiu-Marian Ciorbaru

Deb: Rename mysqlreport to mariadb-report, fix regression in 9e1b3af4

This was partially already done in 9e1b3af4
as the symlink mysqlreport pointed to mariadb-report. There just was no
script with that name, so this rename complements it and now both
mariadb-report and mysqlreport work again.
parent 7fe2dddb
#!/usr/bin/perl -w #!/usr/bin/perl -w
# mysqlreport v4.0 Oct 23 2015 # mariadb-report v4.0 Oct 23 2015
# renamed to from mysqlreport in 2020
# http://hackmysql.com/mysqlreport # http://hackmysql.com/mysqlreport
# mysqlreport makes an easy-to-read report of important MySQL/MariaDB status values. # mariadb-report makes an easy-to-read report of important MySQL/MariaDB status values.
# Copyright 2006-2008 Daniel Nichter # Copyright 2006-2008 Daniel Nichter
# Copyright 2012-2015 Jean Weisbuch # Copyright 2012-2015 Jean Weisbuch
# #
...@@ -76,7 +77,7 @@ get_user_mycnf() unless $op{'no-mycnf'}; ...@@ -76,7 +77,7 @@ get_user_mycnf() unless $op{'no-mycnf'};
# Command line options override ~/.my.cnf # Command line options override ~/.my.cnf
$mycnf{'host'} = $op{'host'} if have_op 'host'; $mycnf{'host'} = $op{'host'} if have_op 'host';
$mycnf{'port'} = $op{'port'} if have_op 'port'; $mycnf{'port'} = $op{'port'} if have_op 'port';
$mycnf{'socket'} = $op{'socket'} if have_op 'socket'; $mycnf{'socket'} = $op{'socket'} if have_op 'socket';
$mycnf{'user'} = $op{'user'} if have_op 'user'; $mycnf{'user'} = $op{'user'} if have_op 'user';
$mycnf{'user'} ||= $ENV{'USER'}; $mycnf{'user'} ||= $ENV{'USER'};
...@@ -115,8 +116,8 @@ if($op{'detach'}) ...@@ -115,8 +116,8 @@ if($op{'detach'})
if(fork()) if(fork())
{ {
print "mysqlreport has forked and detached.\n"; print "mariadb-report has forked and detached.\n";
print "While running detached, mysqlreport writes reports to '$tmpfile'.\n"; print "While running detached, mariadb-report writes reports to '$tmpfile'.\n";
exit; exit;
} }
...@@ -147,8 +148,8 @@ my $use_thread_pool = 0; ...@@ -147,8 +148,8 @@ my $use_thread_pool = 0;
if(defined $op{'r'}) if(defined $op{'r'})
{ {
if($relative_live) if($relative_live)
{ {
print STDERR "mysqlreport is writing relative reports to '$tmpfile'.\n" unless $op{'detach'}; print STDERR "mariadb-report is writing relative reports to '$tmpfile'.\n" unless $op{'detach'};
get_MySQL_version(); get_MySQL_version();
collect_reports(); collect_reports();
} }
...@@ -189,8 +190,8 @@ exit; ...@@ -189,8 +190,8 @@ exit;
sub show_help_and_exit sub show_help_and_exit
{ {
print <<"HELP"; print <<"HELP";
mysqlreport v4.0 Oct 23 2015 mariadb-report v4.0 Oct 23 2015
mysqlreport makes an easy-to-read report of important MySQL/MariaDB status values. mariadb-report makes an easy-to-read report of important MySQL/MariaDB status values.
Command line options (abbreviations work): Command line options (abbreviations work):
--user USER Connect to MySQL as USER --user USER Connect to MySQL as USER
...@@ -496,7 +497,7 @@ sub read_infile ...@@ -496,7 +497,7 @@ sub read_infile
$vars{'table_cache'} = 64 if !exists $vars{'table_cache'}; $vars{'table_cache'} = 64 if !exists $vars{'table_cache'};
$vars{'max_connections'} = 100 if !exists $vars{'max_connections'}; $vars{'max_connections'} = 100 if !exists $vars{'max_connections'};
$vars{'key_buffer_size'} = 8388600 if !exists $vars{'key_buffer_size'}; # 8M $vars{'key_buffer_size'} = 8388600 if !exists $vars{'key_buffer_size'}; # 8M
$vars{'thread_cache_size'} = 0 if !exists $vars{'thread_cache_size'}; $vars{'thread_cache_size'} = 0 if !exists $vars{'thread_cache_size'};
$vars{'tmp_table_size'} = 0 if !exists $vars{'tmp_table_size'}; $vars{'tmp_table_size'} = 0 if !exists $vars{'tmp_table_size'};
$vars{'long_query_time'} = '?' if !exists $vars{'long_query_time'}; $vars{'long_query_time'} = '?' if !exists $vars{'long_query_time'};
$vars{'log_slow_queries'} = '?' if !exists $vars{'log_slow_queries'}; $vars{'log_slow_queries'} = '?' if !exists $vars{'log_slow_queries'};
...@@ -512,7 +513,7 @@ sub read_infile ...@@ -512,7 +513,7 @@ sub read_infile
{ {
last if !defined $_; last if !defined $_;
next if /^\+/; # skip divider lines next if /^\+/; # skip divider lines
next if /^$/; # skip blank lines next if /^$/; # skip blank lines
next until /(Aborted_clients|back_log|=)/; next until /(Aborted_clients|back_log|=)/;
...@@ -886,8 +887,8 @@ sub write_report ...@@ -886,8 +887,8 @@ sub write_report
write_DMS(); write_DMS();
write_Com(); write_Com();
write_Rows(); write_Rows();
$~ = 'SAS', write; $~ = 'SAS', write;
write_qcache(); write_qcache();
$~ = 'REPORT_END', write; $~ = 'REPORT_END', write;
$~ = 'THREADS', write; $~ = 'THREADS', write;
if($use_thread_pool) if($use_thread_pool)
...@@ -923,10 +924,10 @@ sub sec_to_dhms # Seconds to days+hours:minutes:seconds ...@@ -923,10 +924,10 @@ sub sec_to_dhms # Seconds to days+hours:minutes:seconds
$h = int $s / 3600; $h = int $s / 3600;
$s -= $h * 3600; $s -= $h * 3600;
} }
$m = int $s / 60; $m = int $s / 60;
$s -= $m * 60; $s -= $m * 60;
return "$d+$h:$m:$s"; return "$d+$h:$m:$s";
} }
...@@ -956,14 +957,14 @@ sub make_short ...@@ -956,14 +957,14 @@ sub make_short
# #
# The format_u_time sub simply beautifies long_query_time. # The format_u_time sub simply beautifies long_query_time.
sub format_u_time # format microsecond () time value sub format_u_time # format microsecond (µ) time value
{ {
# 0.000000 - 0.000999 = 0 - 999 # 0.000000 - 0.000999 = 0 - 999 µ
# 0.001000 - 0.999999 = 1 ms - 999.999 ms # 0.001000 - 0.999999 = 1 ms - 999.999 ms
# 1.000000 - n.nnnnnn = 1 s - n.nnnnn s # 1.000000 - n.nnnnnn = 1 s - n.nnnnn s
my $t = shift; my $t = shift;
my $f; # formatted time my $f; # formatted µ time
my $u = chr(($WIN ? 230 : 181)); my $u = chr(($WIN ? 230 : 181));
$t = 0 if $t < 0; $t = 0 if $t < 0;
...@@ -1011,7 +1012,7 @@ sub email_report # Email given report to $op{'email'} ...@@ -1011,7 +1012,7 @@ sub email_report # Email given report to $op{'email'}
my $report = shift; my $report = shift;
open SENDMAIL, "|/usr/sbin/sendmail -t"; open SENDMAIL, "|/usr/sbin/sendmail -t";
print SENDMAIL "From: mysqlreport\n"; print SENDMAIL "From: mariadb-report\n";
print SENDMAIL "To: $op{email}\n"; print SENDMAIL "To: $op{email}\n";
print SENDMAIL "Subject: $dbms status report on " . ($mycnf{'host'} || 'localhost') . "\n\n"; print SENDMAIL "Subject: $dbms status report on " . ($mycnf{'host'} || 'localhost') . "\n\n";
print SENDMAIL `cat $report`; print SENDMAIL `cat $report`;
...@@ -1170,7 +1171,7 @@ sub write_Binlog ...@@ -1170,7 +1171,7 @@ sub write_Binlog
print "write_Binlog\n" if $op{debug}; print "write_Binlog\n" if $op{debug};
return if $binlog_cache_ratio == 0 && $binlog_stmt_cache_ratio == 0; return if $binlog_cache_ratio == 0 && $binlog_stmt_cache_ratio == 0;
$~ = 'BINLOG'; $~ = 'BINLOG';
write; write;
} }
...@@ -1319,7 +1320,7 @@ $stat_name, make_short($stat_val), t($stat_val), $stat_label, perc($stat_val, $q ...@@ -1319,7 +1320,7 @@ $stat_name, make_short($stat_val), t($stat_val), $stat_label, perc($stat_val, $q
. .
format SLOW_DMS = format SLOW_DMS =
Slow @<<<<<<< @>>>>>> @>>>>>/s @>>>>> %DMS: @>>>>> Log: @>> Slow @<<<<<<< @>>>>>> @>>>>>/s @>>>>> %DMS: @>>>>> Log: @>>
$slow_query_t, make_short($stats{'Slow_queries'}), t($stats{'Slow_queries'}), perc($stats{'Slow_queries'}, $questions), perc($stats{'Slow_queries'}, $dms), $vars{'log_slow_queries'} $slow_query_t, make_short($stats{'Slow_queries'}), t($stats{'Slow_queries'}), perc($stats{'Slow_queries'}, $questions), perc($stats{'Slow_queries'}, $dms), $vars{'log_slow_queries'}
DMS @>>>>>>>> @>>>>>/s @>>>>> DMS @>>>>>>>> @>>>>>/s @>>>>>
make_short($dms), t($dms), perc($dms, $questions) make_short($dms), t($dms), perc($dms, $questions)
......
...@@ -411,7 +411,7 @@ Description: MariaDB database client binaries ...@@ -411,7 +411,7 @@ Description: MariaDB database client binaries
ease of use. ease of use.
. .
This package includes the client binaries and the additional tools This package includes the client binaries and the additional tools
innotop and mysqlreport. innotop and mariadb-report (mysqlreport).
Package: mariadb-server-core-10.5 Package: mariadb-server-core-10.5
Architecture: any Architecture: any
......
debian/additions/innotop/innotop usr/bin/ debian/additions/innotop/innotop usr/bin/
debian/additions/mysqlreport usr/bin/ debian/additions/mariadb-report usr/bin/
usr/bin/mariadb-access usr/bin/mariadb-access
usr/bin/mariadb-admin usr/bin/mariadb-admin
usr/bin/mariadb-conv usr/bin/mariadb-conv
......
...@@ -24,3 +24,4 @@ usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mariadbcheck.1.gz ...@@ -24,3 +24,4 @@ usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mariadbcheck.1.gz
usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mysqlanalyze.1.gz usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mysqlanalyze.1.gz
usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mysqloptimize.1.gz usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mysqloptimize.1.gz
usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mysqlrepair.1.gz usr/share/man/man1/mariadb-check.1.gz usr/share/man/man1/mysqlrepair.1.gz
usr/share/man/man1/mariadb-report.1.gz usr/share/man/man1/mysqlreport.1.gz
debian/additions/innotop/innotop.1 debian/additions/innotop/innotop.1
debian/additions/mysqlreport.1 debian/additions/mariadb-report.1
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment