FM / bin

/usr/bin

Name	Size	Mode	Actions
aclocal	36376	0755	edit dl rm
aclocal-1.16	36376	0755	edit dl rm
addr2line	28408	0755	edit dl rm
agentxtrap	27960	0755	edit dl rm
animate	15456	0755	edit dl rm
ar	57328	0755	edit dl rm
arch	32224	0755	edit dl rm
arpaname	15472	0755	edit dl rm
as	727360	0755	edit dl rm
aspell	154744	0755	edit dl rm
at	6009	0755	edit dl rm
atq	6011	0755	edit dl rm
atrm	6013	0755	edit dl rm
autoconf	14771	0755	edit dl rm
autoheader	8534	0755	edit dl rm
autom4te	32181	0755	edit dl rm
automake	257981	0755	edit dl rm
automake-1.16	257981	0755	edit dl rm
autoreconf	21066	0755	edit dl rm
autoscan	17124	0755	edit dl rm
autoupdate	33872	0755	edit dl rm
awk	714928	0755	edit dl rm
b2sum	52832	0755	edit dl rm
base32	36344	0755	edit dl rm
base64	36344	0755	edit dl rm
basename	32240	0755	edit dl rm
basenc	48976	0755	edit dl rm
bash	1389024	0755	edit dl rm
bashbug-64	7079	0755	edit dl rm
batch	140	0755	edit dl rm
bison	506632	0755	edit dl rm
bunzip2	40392	0755	edit dl rm
bzcat	40392	0755	edit dl rm
bzcmp	2144	0755	edit dl rm
bzdiff	2144	0755	edit dl rm
bzgrep	2058	0755	edit dl rm
bzip2	40392	0755	edit dl rm
bzip2recover	15592	0755	edit dl rm
bzless	1263	0755	edit dl rm
bzmore	1263	0755	edit dl rm
c++	1097224	0755	edit dl rm
c++filt	27840	0755	edit dl rm
c89	228	0755	edit dl rm
c99	219	0755	edit dl rm
cagefs_enter.proxied	6029	0755	edit dl rm
cal	53064	0755	edit dl rm
captoinfo	89896	0755	edit dl rm
cat	36312	0755	edit dl rm
catchsegv	3289	0755	edit dl rm
cc	1093128	0755	edit dl rm
chcon	61488	0755	edit dl rm
chgrp	57320	0755	edit dl rm
chmod	57304	0755	edit dl rm
chown	61432	0755	edit dl rm
chrt	27960	0755	edit dl rm
cksum	32136	0755	edit dl rm
cldetect	11222	0755	edit dl rm
clear	15512	0755	edit dl rm
cloudlinux-awp-user	1818	0755	edit dl rm
clwpos-user	1818	0755	edit dl rm
cmp	41096	0755	edit dl rm
col	23792	0755	edit dl rm
colcrt	15552	0755	edit dl rm
colrm	15528	0755	edit dl rm
column	36184	0755	edit dl rm
comm	36408	0755	edit dl rm
compare	15456	0755	edit dl rm
composite	15456	0755	edit dl rm
conjure	15464	0755	edit dl rm
convert	15464	0755	edit dl rm
cp	144400	0755	edit dl rm
cpan	8571	0755	edit dl rm
cpp	1097224	0755	edit dl rm
crontab	5826	0755	edit dl rm
crontab.cagefs	41440	0755	edit dl rm
csplit	111272	0755	edit dl rm
curl	254456	0755	edit dl rm
cut	44656	0755	edit dl rm
cyrusbdb2current	1651824	0755	edit dl rm
date	106336	0755	edit dl rm
dbiprof	6206	0755	edit dl rm
dd	69576	0755	edit dl rm
delv	45544	0755	edit dl rm
df	82464	0755	edit dl rm
diff	199368	0755	edit dl rm
diff3	53560	0755	edit dl rm
dig	139872	0755	edit dl rm
dir	140752	0755	edit dl rm
dircolors	40568	0755	edit dl rm
dirname	27952	0755	edit dl rm
display	15456	0755	edit dl rm
dnstap-read	23744	0755	edit dl rm
du	152848	0755	edit dl rm
echo	27944	0755	edit dl rm
ed	53768	0755	edit dl rm
egrep	32	0755	edit dl rm
enc2xs	41663	0755	edit dl rm
enchant	24296	0755	edit dl rm
enchant-lsmod	16184	0755	edit dl rm
env	45088	0755	edit dl rm
eps2eps	643	0755	edit dl rm
eqn	194064	0755	edit dl rm
ex	1452256	0755	edit dl rm
expand	40488	0755	edit dl rm
expr	111040	0755	edit dl rm
factor	73592	0755	edit dl rm
false	27936	0755	edit dl rm
fc-cache	139	0755	edit dl rm
fc-cache-64	23728	0755	edit dl rm
fc-cat	19616	0755	edit dl rm
fc-conflist	15496	0755	edit dl rm
fc-list	15496	0755	edit dl rm
fc-match	15496	0755	edit dl rm
fc-pattern	15504	0755	edit dl rm
fc-query	15496	0755	edit dl rm
fc-scan	15504	0755	edit dl rm
fc-validate	15504	0755	edit dl rm
fgrep	32	0755	edit dl rm
file	28288	0755	edit dl rm
find	291792	0755	edit dl rm
flex	422544	0755	edit dl rm
flex++	422544	0755	edit dl rm
flock	23928	0755	edit dl rm
fmt	40528	0755	edit dl rm
fold	40456	0755	edit dl rm
free	23920	0755	edit dl rm
freetype-config	4423	0755	edit dl rm
funzip	32000	0755	edit dl rm
g++	1097224	0755	edit dl rm
gawk	714928	0755	edit dl rm
gcc	1093128	0755	edit dl rm
gcc-ar	28336	0755	edit dl rm
gcc-nm	28312	0755	edit dl rm
gcc-ranlib	28336	0755	edit dl rm
gcov	488576	0755	edit dl rm
gcov-dump	298768	0755	edit dl rm
gcov-tool	328160	0755	edit dl rm
gencat	28104	0755	edit dl rm
geoiplookup	16248	0755	edit dl rm
geoiplookup6	16200	0755	edit dl rm
geqn	194064	0755	edit dl rm
GET	16200	0755	edit dl rm
getconf	36080	0755	edit dl rm
getent	36720	0755	edit dl rm
getopt	23824	0755	edit dl rm
ghostscript	15488	0755	edit dl rm
git	4397352	0755	edit dl rm
git-receive-pack	4397352	0755	edit dl rm
git-shell	826960	0755	edit dl rm
git-upload-archive	4397352	0755	edit dl rm
git-upload-pack	4397352	0755	edit dl rm
gm	16048	0755	edit dl rm
gmake	255792	0755	edit dl rm
gneqn	916	0755	edit dl rm
gnroff	3285	0755	edit dl rm
gpg	1123624	0755	edit dl rm
gpg-agent	350488	0755	edit dl rm
gpg-error	36968	0755	edit dl rm
gpgsplit	28160	0755	edit dl rm
gpgv	302520	0755	edit dl rm
gpic	206560	0755	edit dl rm
gprof	103920	0755	edit dl rm
grep	158200	0755	edit dl rm
groff	99088	0755	edit dl rm
grops	171272	0755	edit dl rm
grotty	125128	0755	edit dl rm
groups	36328	0755	edit dl rm
gs	15488	0755	edit dl rm
gsnd	281	0755	edit dl rm
gsoelim	-	0	edit dl rm
gtar	534824	0755	edit dl rm
gtbl	134000	0755	edit dl rm
gtroff	749640	0755	edit dl rm
gunzip	2350	0755	edit dl rm
gzexe	6484	0755	edit dl rm
gzip	91088	0755	edit dl rm
h2ph	29382	0755	edit dl rm
h2xs	60931	0755	edit dl rm
head	40560	0755	edit dl rm
hexdump	52640	0755	edit dl rm
host	111176	0755	edit dl rm
hostid	32224	0755	edit dl rm
hostname	24408	0755	edit dl rm
hunspell	105136	0755	edit dl rm
iconv	65624	0755	edit dl rm
icu-config	205	0755	edit dl rm
icu-config-64	22189	0755	edit dl rm
icuinfo	15864	0755	edit dl rm
id	40472	0755	edit dl rm
identify	15464	0755	edit dl rm
idn	36664	0755	edit dl rm
ifnames	4128	0755	edit dl rm
import	15456	0755	edit dl rm
infocmp	65208	0755	edit dl rm
infotocap	89896	0755	edit dl rm
install	152656	0755	edit dl rm
instmodsh	4194	0755	edit dl rm
ionice	15576	0755	edit dl rm
ipcrm	19688	0755	edit dl rm
ipcs	40280	0755	edit dl rm
isosize	15512	0755	edit dl rm
ispell	992	0755	edit dl rm
join	52928	0755	edit dl rm
kill	32032	0755	edit dl rm
ld	1791600	0755	edit dl rm
ld.bfd	1791600	0755	edit dl rm
ldd	5446	0755	edit dl rm
less	202440	0755	edit dl rm
lessecho	15536	0755	edit dl rm
lesskey	25200	0755	edit dl rm
lesspipe.sh	3580	0755	edit dl rm
lex	422544	0755	edit dl rm
libnetcfg	15775	0755	edit dl rm
libtool	367802	0755	edit dl rm
libtoolize	129200	0755	edit dl rm
link	32232	0755	edit dl rm
ln	57288	0755	edit dl rm
locale	60496	0755	edit dl rm
localedef	321584	0755	edit dl rm
logger	36840	0755	edit dl rm
login	44504	0755	edit dl rm
logname	32224	0755	edit dl rm
look	19632	0755	edit dl rm
ls	140744	0755	edit dl rm
lto-dump	27882568	0755	edit dl rm
m4	246168	0755	edit dl rm
Mail	-	0	edit dl rm
mail	-	0	edit dl rm
mailx	-	0	edit dl rm
make	255792	0755	edit dl rm
make-dummy-cert	614	0755	edit dl rm
mariadb	5246200	0755	edit dl rm
mariadb-access	111961	0755	edit dl rm
mariadb-admin	5013392	0755	edit dl rm
mariadb-binlog	5303232	0755	edit dl rm
mariadb-check	5010424	0755	edit dl rm
mariadb-conv	4731024	0755	edit dl rm
mariadb-convert-table-format	4220	0755	edit dl rm
mariadb-dump	5107000	0755	edit dl rm
mariadb-dumpslow	8242	0755	edit dl rm
mariadb-embedded	24373096	0755	edit dl rm
mariadb-find-rows	3290	0755	edit dl rm
mariadb-hotcopy	35359	0755	edit dl rm
mariadb-import	5005256	0755	edit dl rm
mariadb-plugin	4705784	0755	edit dl rm
mariadb-secure-installation	13803	0755	edit dl rm
mariadb-setpermission	17977	0755	edit dl rm
mariadb-show	5003656	0755	edit dl rm
mariadb-slap	5023200	0755	edit dl rm
mariadb-tzinfo-to-sql	4709208	0755	edit dl rm
mariadb-waitpid	4696504	0755	edit dl rm
mcookie	27960	0755	edit dl rm
md5sum	40392	0755	edit dl rm
mesg	15504	0755	edit dl rm
mkdir	69760	0755	edit dl rm
mkfifo	40592	0755	edit dl rm
mknod	44728	0755	edit dl rm
mktemp	40568	0755	edit dl rm
mogrify	15464	0755	edit dl rm
montage	15464	0755	edit dl rm
more	44464	0755	edit dl rm
msql2mysql	1450	0755	edit dl rm
mv	144328	0755	edit dl rm
mysql	5246200	0755	edit dl rm
mysqlaccess	111961	0755	edit dl rm
mysqladmin	5013392	0755	edit dl rm
mysqlbinlog	5303232	0755	edit dl rm
mysqlcheck	5010424	0755	edit dl rm
mysqldump	5107000	0755	edit dl rm
mysqlimport	5005256	0755	edit dl rm
mysqlshow	5003656	0755	edit dl rm
mysql_config	4608	0755	edit dl rm
mysql_find_rows	3290	0755	edit dl rm
mysql_waitpid	4696504	0755	edit dl rm
mytop	73757	0755	edit dl rm
my_print_defaults	4697008	0755	edit dl rm
namei	23784	0755	edit dl rm
nano	354504	0755	edit dl rm
neqn	916	0755	edit dl rm
net-snmp-create-v3-user	3371	0755	edit dl rm
nice	36336	0755	edit dl rm
nl	102920	0755	edit dl rm
nm	45792	0755	edit dl rm
nohup	36248	0755	edit dl rm
nproc	36352	0755	edit dl rm
nroff	3285	0755	edit dl rm
nslookup	115224	0755	edit dl rm
nsupdate	73528	0755	edit dl rm
numfmt	56968	0755	edit dl rm
objcopy	189816	0755	edit dl rm
objdump	423000	0755	edit dl rm
od	65408	0755	edit dl rm
openssl	1122472	0755	edit dl rm
pango-list	19568	0755	edit dl rm
pango-segmentation	19584	0755	edit dl rm
pango-view	61616	0755	edit dl rm
passwd	6017	0755	edit dl rm
paste	36240	0755	edit dl rm
patch	199696	0755	edit dl rm
pathchk	36328	0755	edit dl rm
pdf2dsc	701	0755	edit dl rm
pdf2ps	913	0755	edit dl rm
perl	15488	0755	edit dl rm
perl5.32.1	15488	0755	edit dl rm
perlbug	44863	0755	edit dl rm
perldoc	118	0755	edit dl rm
perlivp	10813	0755	edit dl rm
perlml	14840	0755	edit dl rm
perlthanks	44863	0755	edit dl rm
pgrep	32176	0755	edit dl rm
php	937	0755	edit dl rm
pic	206560	0755	edit dl rm
piconv	8271	0755	edit dl rm
ping	91472	0755	edit dl rm
pinky	36264	0755	edit dl rm
pkg-config	335	0755	edit dl rm
pkill	32176	0755	edit dl rm
pl2pm	4533	0755	edit dl rm
pmap	36240	0755	edit dl rm
pod2html	4134	0755	edit dl rm
pod2man	15034	0755	edit dl rm
pod2text	10803	0755	edit dl rm
pod2usage	4107	0755	edit dl rm
podchecker	3658	0755	edit dl rm
post-grohtml	204552	0755	edit dl rm
pr	73832	0755	edit dl rm
pre-grohtml	95152	0755	edit dl rm
precat	5660	0755	edit dl rm
preunzip	5660	0755	edit dl rm
prezip	5660	0755	edit dl rm
prezip-bin	16064	0755	edit dl rm
printenv	32040	0755	edit dl rm
printf	52816	0755	edit dl rm
prove	13562	0755	edit dl rm
ps	144536	0755	edit dl rm
ps2ascii	635	0755	edit dl rm
ps2epsi	1268	0755	edit dl rm
ps2pdf	276	0755	edit dl rm
ps2pdf12	219	0755	edit dl rm
ps2pdf13	219	0755	edit dl rm
ps2pdf14	219	0755	edit dl rm
ps2pdfwr	1082	0755	edit dl rm
ps2ps	651	0755	edit dl rm
ps2ps2	673	0755	edit dl rm
ptx	131912	0755	edit dl rm
pwd	36376	0755	edit dl rm
pwdx	15648	0755	edit dl rm
pydoc	78	0755	edit dl rm
pydoc3	78	0755	edit dl rm
pydoc3.9	78	0755	edit dl rm
ranlib	57336	0755	edit dl rm
readelf	683296	0755	edit dl rm
readlink	40456	0755	edit dl rm
realpath	40536	0755	edit dl rm
recode	32696	0755	edit dl rm
red	92	0755	edit dl rm
rename	23784	0755	edit dl rm
renew-dummy-cert	729	0755	edit dl rm
renice	15528	0755	edit dl rm
replace	4679032	0755	edit dl rm
reset	27992	0755	edit dl rm
rev	15520	0755	edit dl rm
rm	61432	0755	edit dl rm
rmdir	44464	0755	edit dl rm
rnano	354504	0755	edit dl rm
run-with-aspell	89	0755	edit dl rm
runcon	36312	0755	edit dl rm
rvi	1452256	0755	edit dl rm
rview	1452256	0755	edit dl rm
scalar	876968	0755	edit dl rm
scl	40496	0755	edit dl rm
scl_enabled	262	0755	edit dl rm
scl_source	1929	0755	edit dl rm
scp	136104	0755	edit dl rm
script	52816	0755	edit dl rm
sdiff	45264	0755	edit dl rm
sed	115544	0755	edit dl rm
selectorctl	8276	0755	edit dl rm
seq	48736	0755	edit dl rm
setsid	15512	0755	edit dl rm
setterm	36176	0755	edit dl rm
sftp	160840	0755	edit dl rm
sh	1389024	0755	edit dl rm
sha1sum	40392	0755	edit dl rm
sha224sum	40392	0755	edit dl rm
sha256sum	40392	0755	edit dl rm
sha384sum	40392	0755	edit dl rm
sha512sum	40392	0755	edit dl rm
shred	52920	0755	edit dl rm
shuf	48952	0755	edit dl rm
size	32368	0755	edit dl rm
skill	32152	0755	edit dl rm
slabtop	23984	0755	edit dl rm
sleep	32224	0755	edit dl rm
snice	32152	0755	edit dl rm
snmpconf	26051	0755	edit dl rm
soelim	-	0	edit dl rm
sort	115608	0755	edit dl rm
spell	125	0755	edit dl rm
splain	19411	0755	edit dl rm
split	53360	0755	edit dl rm
sprof	36296	0755	edit dl rm
sqlite3	1610224	0755	edit dl rm
ssh	917880	0755	edit dl rm
ssh-add	313056	0755	edit dl rm
ssh-agent	325320	0755	edit dl rm
ssh-copy-id	14174	0755	edit dl rm
ssh-keygen	486832	0755	edit dl rm
ssh-keyscan	346352	0755	edit dl rm
stat	81768	0755	edit dl rm
stdbuf	44600	0755	edit dl rm
strace	2176664	0755	edit dl rm
stream	15456	0755	edit dl rm
strings	32504	0755	edit dl rm
strip	189808	0755	edit dl rm
stty	77456	0755	edit dl rm
sum	36232	0755	edit dl rm
sync	36200	0755	edit dl rm
tabs	19624	0755	edit dl rm
tac	102808	0755	edit dl rm
tail	69536	0755	edit dl rm
tar	534824	0755	edit dl rm
taskset	23784	0755	edit dl rm
tbl	134000	0755	edit dl rm
tclsh	16064	0755	edit dl rm
tclsh8.6	16064	0755	edit dl rm
tee	36344	0755	edit dl rm
test	44664	0755	edit dl rm
tic	89896	0755	edit dl rm
timeout	36848	0755	edit dl rm
tload	19800	0755	edit dl rm
tmpwatch	36896	0755	edit dl rm
toe	23784	0755	edit dl rm
top	135448	0755	edit dl rm
touch	94048	0755	edit dl rm
tput	27904	0755	edit dl rm
tr	44728	0755	edit dl rm
troff	749640	0755	edit dl rm
true	27936	0755	edit dl rm
truncate	36328	0755	edit dl rm
tset	27992	0755	edit dl rm
tsort	48744	0755	edit dl rm
tty	32224	0755	edit dl rm
tzselect	15352	0755	edit dl rm
uapi	6013	0755	edit dl rm
ul	23816	0755	edit dl rm
uname	32232	0755	edit dl rm
unexpand	40480	0755	edit dl rm
uniq	44680	0755	edit dl rm
unlink	32224	0755	edit dl rm
unzip	200688	0755	edit dl rm
unzipsfx	89808	0755	edit dl rm
uptime	15656	0755	edit dl rm
users	32256	0755	edit dl rm
utmpdump	23768	0755	edit dl rm
vdir	140752	0755	edit dl rm
vi	1452256	0755	edit dl rm
view	146	0755	edit dl rm
vmstat	40360	0755	edit dl rm
watch	28536	0755	edit dl rm
wc	44576	0755	edit dl rm
wget	533720	0755	edit dl rm
whereis	32608	0755	edit dl rm
which	28560	0755	edit dl rm
who	52832	0755	edit dl rm
whoami	32224	0755	edit dl rm
word-list-compress	16080	0755	edit dl rm
x86_64-redhat-linux-c++	1097224	0755	edit dl rm
x86_64-redhat-linux-g++	1097224	0755	edit dl rm
x86_64-redhat-linux-gcc	1093128	0755	edit dl rm
x86_64-redhat-linux-gcc-11	1093128	0755	edit dl rm
xargs	65632	0755	edit dl rm
xmlcatalog	23712	0755	edit dl rm
xmllint	82488	0755	edit dl rm
xmlwf	40576	0755	edit dl rm
xsltproc	31984	0755	edit dl rm
xsubpp	5080	0755	edit dl rm
yes	32064	0755	edit dl rm
zcat	1988	0755	edit dl rm
zcmp	1682	0755	edit dl rm
zdiff	6451	0755	edit dl rm
zegrep	33	0755	edit dl rm
zfgrep	33	0755	edit dl rm
zforce	2085	0755	edit dl rm
zgrep	8116	0755	edit dl rm
zip	226400	0755	edit dl rm
zipcloak	77512	0755	edit dl rm
zipgrep	2957	0755	edit dl rm
zipinfo	200688	0755	edit dl rm
zipnote	69232	0755	edit dl rm
zipsplit	65104	0755	edit dl rm
zless	2210	0755	edit dl rm
zmore	1846	0755	edit dl rm
znew	4581	0755	edit dl rm
zsoelim	-	0	edit dl rm
[	52872	0755	edit dl rm

Edit: /usr/bin/mytop (73757B)

#!/usr/bin/perl
#
# $Id: mytop,v 1.99-maria8 2025/07/16 17:59:26 jweisbuch Exp $

=pod

=head1 NAME

mytop - display MariaDB/MySQL server performance info like `top'

=cut

## most of the POD is at the bottom of the file

use 5.005;
use strict;
use warnings;
use DBI;
use Getopt::Long;
use Socket;
use List::Util qw(min max);
use File::Basename;

$main::VERSION = "1.99-maria8";
my $path_for_script = dirname($0);

$| = 1;
$0 = 'mytop';

my $WIN = ($^O eq 'MSWin32') ? 1 : 0;

## Test for color support.

eval { require Term::ANSIColor; };

my $HAS_COLOR = $@ ? 0 : 1;

$HAS_COLOR = 0 if $WIN;

## Test of Time::HiRes support

eval { require Time::HiRes };

my $HAS_TIME = $@ ? 0 : 1;

my $debug = 0;

## Try to lower our priority (which, who, pri)

setpriority(0,0,10) unless $WIN;

## Prototypes

sub Clear();
sub GetData();
sub GetQPS();
sub FullQueryInfo($);
sub Explain($);
sub PrintTable(@);
sub PrintHelp();
sub Sum(@);
sub commify($);
sub make_short($);
sub Hashes($);
sub Execute($);
sub StringOrRegex($);
sub GetInnoDBStatus();
sub GetCmdSummary();
sub GetShowVariables();
sub GetShowStatus();
sub cmd_s;
sub cmd_S;
sub cmd_q;

## Default Config Values

my %config = (
    batchmode     => 0,
    color         => 1,
    db            => '',
    database      => '',
    delay         => 5,
    filter_user   => qr/.?/,
    filter_db     => qr/.?/,
    filter_host   => qr/.?/,
    filter_state  => qr/.?/,
    header        => 1,
    help          => 0,
    host          => 'localhost',
    idle          => 1,
    long          => 120,
    long_nums     => 0,
    mode          => 'top',
    prompt        => 0,
    pass          => '',
    password      => '',
    port          => 3306,
    resolve       => 0,
    slow          => 10,        ## slow query time
    socket        => '',
    sort          => 1,         ## default or reverse sort ("s")
    user          => 'root',
    fullqueries   => 0,         ## shows untruncated queries
    usercol_width => 8,         ## User column width
    dbcol_width   => 9,         ## DB column width
    hide_progress => 0          ## hide the "%" column when available
);

my %qcache = ();    ## The query cache--used for full query info support.
my %ucache = ();    ## The user cache--used for full killing by user
my %dbcache = ();   ## The db cache.  This should be merged at some point.
my %statcache = (); ## The show status cache for GetShowStatus()

my (%STATUS, %OLD_STATUS); # header stuff.

my $CLEAR = $WIN ? '': `clear`;

## Term::ReadKey values

my $RM_RESET   = 0;
my $RM_NOBLKRD = 3; ## using 4 traps Ctrl-C :-(

## Add options from .my.cnf first

my $my_print_defaults;
if (!defined($my_print_defaults=my_which("my_print_defaults")))
{
  print "Warning: Can't find my_print_defaults. Please add it to your PATH!\n";
  exit(1);
}

unshift @ARGV, split "\n", `$my_print_defaults client mytop`;

## Read the user's config file, if it exists.

my $config = "$ENV{HOME}/.mytop";

if (-e $config)
{
    if (open CFG, "<$config")
    {
        while (<CFG>)
        {
            next if /^\s*($|#)/;  ## skip blanks and comments

chomp;

if (/(\S+)\s*=\s*(.*\S)/)
            {
                my ($k, $v) = ($1, $2);
                if ($k =~ /^filter_/i) {
                  $config{lc $k} = StringOrRegex($v) if exists $config{lc $k};
                } else {
                  $config{lc $k} = $v if exists $config{lc $k};
                }
            }
        }
        close CFG;
    }
    ## map database/password onto db/pass
    ## short version gets precedence for historical reasons
    $config{'db'} = $config{'database'} unless $config{'db'};
    $config{'pass'} = $config{'password'} unless $config{'pass'};
}

## Command-line args.

use vars qw($opt_foo);

Getopt::Long::Configure('no_ignore_case', 'bundling');

GetOptions(
    "color!"              => \$config{color},
    "user|u=s"            => \$config{user},
    "pass|password|p=s"   => \$config{pass},
    "database|db|d=s"     => \$config{db},
    "host|h=s"            => \$config{host},
    "port|P=i"            => \$config{port},
    "socket|S=s"          => \$config{socket},
    "delay|s=i"           => \$config{delay},
    "batch|batchmode|b"   => \$config{batchmode},
    "header!"             => \$config{header},
    "idle|i!"             => \$config{idle},
    "resolve|r!"          => \$config{resolve},
    "prompt!"             => \$config{prompt},
    "long=i"              => \$config{long},
    "long_nums!"          => \$config{long_nums},
    "mode|m=s"            => \$config{mode},
    "slow=i"              => \$config{slow},
    "sort=s"              => \$config{sort},
    "fullqueries|L!"      => \$config{fullqueries},
    "usercol_width=i"     => \$config{usercol_width},
    "dbcol_width=i"       => \$config{dbcol_width},
    "hide_progress|a!"    => \$config{hide_progress}
);

## User may have put the port with the host.

if ($config{host} =~ s/:(\d+)$//)
{
    $config{port} = $1;
}

## Don't use Term::ReadKey unless running interactively.

if (not $config{batchmode})
{
    require Term::ReadKey;
    Term::ReadKey->import();
}

## User may want to disable color.

if ($HAS_COLOR and not $config{color})
{
    $HAS_COLOR = 0;
}

if ($HAS_COLOR)
{
    import Term::ANSIColor ':constants';
}
else
{
    *RESET  = sub { };
    *YELLOW = sub { };
    *RED    = sub { };
    *MAGENTA  = sub { };
    *GREEN  = sub { };
    *BLUE   = sub { };
    *WHITE  = sub { };
    *BOLD   = sub { };
}

my $RESET  = RESET()   || '';
my $YELLOW = YELLOW()  || '';
my $RED    = RED()     || '';
my $MAGENTA  = MAGENTA()   || '';
my $GREEN  = GREEN()   || '';
my $BLUE   = BLUE()    || '';
my $WHITE  = WHITE()   || '';
my $BOLD   = BOLD()    || '';

## Connect

my $dsn;

## Socket takes precedence.
my $prefix= 'mysql';
if (eval {DBI->install_driver("MariaDB")}) {
  $dsn = "DBI:MariaDB:database=$config{db};mariadb_read_default_group=mytop;";
  $prefix= 'mariadb'
} else {
  $dsn = "DBI:mysql:database=$config{db};mysql_read_default_group=mytop;";
}

if ($config{socket} and -S $config{socket})
{
    $dsn .= "${prefix}_socket=$config{socket}";
}
elsif($config{host} eq "localhost")
{
    $dsn .= "host=$config{host}";
}
else
{
    $dsn .= "host=$config{host};port=$config{port}";
}

if ($config{prompt})
{
    print "Password: ";
    ReadMode(2);
    chomp($config{pass} = <STDIN>);
    ReadMode(0);
    print "\n";
}

my $dbh = DBI->connect($dsn, $config{user}, $config{pass},
                       { PrintError => 0 });

if (not ref $dbh)
{
    my $Error = <<EODIE
Cannot connect to MariaDB/MySQL server. Please check the:

* database you specified "$config{db}" (default is "")
  * username you specified "$config{user}" (default is "root")
  * password you specified "$config{pass}" (default is "")
  * hostname you specified "$config{host}" (default is "localhost")
  * port you specified "$config{port}" (default is 3306)
  * socket you specified "$config{socket}" (default is "")

The options my be specified on the command-line or in a ~/.mytop or
~/.my.cnf config file. See the manual (perldoc mytop) for details.

Here's the exact error from DBI. It might help you debug:

$DBI::errstr

EODIE
;

die $Error;

}

ReadMode($RM_RESET) unless $config{batchmode};

## Get static data

my $db_version;
my $db_release;
my $server = "MySQL";
my $have_query_cache;

my @variables = Hashes("SHOW VARIABLES");

foreach (@variables)
{
    if ($_->{Variable_name} eq "version")
    {
        $db_version = $_->{Value};
        $db_version =~ /^(\d+)/;
        $db_release = $1;
        $server = "MariaDB" if ($db_version =~ /maria/i);
        # Get the version number only
        $db_version = $1 if($db_version =~ m/(.*?)-/);
        next;
    }
    if ($_->{Variable_name} eq "have_query_cache")
    {
        if ($_->{Value} ne 'NO')
        {
            $have_query_cache = 1;
        }
        else
        {
            $have_query_cache = 0;
        }
        next;
    }
}

my ($has_is_processlist, $has_time_ms, $has_progress);
$has_is_processlist = $has_time_ms = $has_progress = 0;

## Check if the server has the INFORMATION_SCHEMA.PROCESSLIST table
## for backward compatibility
$has_is_processlist = Execute("SELECT /*mytop*/ 1 FROM INFORMATION_SCHEMA.TABLES
                               WHERE TABLE_SCHEMA = 'information_schema' AND
                               TABLE_NAME = 'PROCESSLIST';")->rows;
if ($has_is_processlist == 1)
{
    ## Check if the server has the TIME_MS column on the I_S.PROCESSLIST table
    ## If it is the case, it will fetch the query time with decimal precision
    ## for queries that has been running for less than 10k seconds
    $has_time_ms = Execute("SELECT /*mytop*/ 1 FROM INFORMATION_SCHEMA.COLUMNS
                            WHERE TABLE_SCHEMA = 'information_schema' AND
                            TABLE_NAME = 'PROCESSLIST' AND
                            COLUMN_NAME = 'TIME_MS';")->rows;
    if ($has_time_ms == 1)
    {
        ## Check if the server has the STAGE column on the I_S.PROCESSLIST
        ## table (MariaDB) to retreive query completion information
        $has_progress = Execute("SELECT /*mytop*/ 1 FROM INFORMATION_SCHEMA.COLUMNS
                                WHERE TABLE_SCHEMA = 'information_schema' AND
                                TABLE_NAME = 'PROCESSLIST' AND
                                COLUMN_NAME = 'STAGE';")->rows;
    }
}

#########################################################################
##
## The main loop
##
#########################################################################

ReadMode($RM_NOBLKRD)  unless $config{batchmode};

while (1)
{
    my $key;

if ($config{mode} eq 'qps')
    {
        GetQPS();
        $key = ReadKey(1);

next unless $key;

if ($key =~ /t/i)
        {
            $config{mode} = 'top';
        }
        if ($key =~ /q/)
        {
            cmd_q();
        }
        next;
    }
    if ($config{mode} eq 'top')
    {
        GetData();
        last if $config{batchmode};
        $key = ReadKey($config{delay});
        next unless $key;
    }
    elsif ($config{mode} eq 'cmd')
    {
        GetCmdSummary();
        last if $config{batchmode};
        $key = ReadKey($config{delay});
        next unless $key;
    }
    elsif ($config{mode} eq 'innodb')
    {
        GetInnoDBStatus();
        last if $config{batchmode};
        print "InnoDB Status [hit t to exit this mode or q to exit the application]\n";
        $key = ReadKey($config{delay});
        next unless $key;
    }
    elsif ($config{mode} eq 'status')
    {
        GetShowStatus();
        last if $config{batchmode};
        $key = ReadKey($config{delay});
        next unless $key;
    }

##
    ## keystroke command processing (if we get this far)
    ##

if ($key eq '!')
    {
        Execute("STOP /*mytop*/ SLAVE;");
        Execute("SET /*mytop*/ GLOBAL sql_slave_skip_counter=1");
        Execute("START /*mytop*/ SLAVE");
    }

# t - top

if ($key =~ /t/i)
    {
        $config{mode} = 'top';
    }

## q - quit

if ($key eq 'q')
    {
        cmd_q();
    }

if ($key eq 'D')
    {
        require Data::Dumper;
        print Data::Dumper::Dumper([\%config]);
        ReadKey(0);
    }

## l - change long running hightling

if ($key eq 'l')
    {
        cmd_l();
        next;
    }

## m - mode switch to qps

if ($key eq 'm')
    {
        $config{mode} = 'qps';
        Clear() unless $config{batchmode};
        print "Queries Per Second [hit t to exit this mode or q to exit the application]\n";
        next;
    }

## c - mode switch to command summary

if ($key eq 'c')
    {
        $config{mode} = 'cmd';
        Clear() unless $config{batchmode};
        print "Command Summary\n";
        next;
    }

## C - change Color on and off

if ($key eq 'C')
    {
        if ($HAS_COLOR)
        {
            $HAS_COLOR = 0;
        }
        else
        {
            $HAS_COLOR = 1;
        }
    }

## s - seconds of delay

if ($key eq 's')
    {
        cmd_s();
        next;
    }

if ($key eq 'S')
    {
        cmd_S();
        next;
    }

## R - resolve hostnames
    if ($key eq 'R')
    {
        if ($config{resolve})
        {
            $config{resolve} = 0;
        }
        else
        {
            $config{resolve} = 1;
        }
    }

## t - username based filter

if ($key eq 't')
    {
        ReadMode($RM_RESET);
        print RED(), "Which state (blank for all, /.../ for regex): ", RESET();
        $config{filter_state} = StringOrRegex(ReadLine(0));
        ReadMode($RM_NOBLKRD);
        next;
    }

## u - username based filter

if ($key eq 'u')
    {
        ReadMode($RM_RESET);
        print RED(), "Which user (blank for all, /.../ for regex): ", RESET();
        $config{filter_user} = StringOrRegex(ReadLine(0));
        ReadMode($RM_NOBLKRD);
        next;
    }

## d - database name based filter

if ($key eq 'd')
    {
        ReadMode($RM_RESET);
        print RED(), "Which database (blank for all, /.../ for regex): ",
            RESET();
        $config{filter_db} = StringOrRegex(ReadLine(0));
        ReadMode($RM_NOBLKRD);
        next;
    }

## h - hostname based filter

if ($key eq 'h')
    {
        ReadMode($RM_RESET);
        print RED(), "Which hostname (blank for all, /.../ for regex): ",
            RESET();
        $config{filter_host} = StringOrRegex(ReadLine(0));
        ReadMode($RM_NOBLKRD);
        next;
    }

## E - Show full Replication Error

if ($key eq 'E')
    {
        my ($data) = Hashes('SHOW /*mytop*/ SLAVE STATUS');
        Clear();
        print "Error is: $data->{Last_Error}\n";
        print RED(), "-- paused. press any key to resume --", RESET();
        ReadKey(0);
        next;
    }
    ## F - remove all filters

if ($key eq 'F')
    {
        $config{filter_host}  = qr/.?/;
        $config{filter_db}    = qr/.?/;
        $config{filter_user}  = qr/.?/;
        $config{filter_state} = qr/.?/;
        print RED(), "-- display unfiltered --", RESET();
        sleep 1;
        next;
    }

## p - pause

if ($key eq 'p')
    {
        print RED(), "-- paused. press any key to resume --", RESET();
        ReadKey(0);
        next;
    }

## i - idle toggle

if ($key =~ /i/)
    {
        if ($config{idle})
        {
            $config{idle} = 0;
            $config{sort} = 1;
            print RED(), "-- idle (sleeping) processed filtered --", RESET();
            sleep 1;
        }
        else
        {
            $config{idle} = 1;
            $config{sort} = 0;
            print RED(), "-- idle (sleeping) processed unfiltered --", RESET();
            sleep 1;
        }
    }

## I - InnoDB status

if ($key =~ 'I')
    {
        $config{mode} = 'innodb';
        Clear() unless $config{batchmode};
        print "InnoDB Status\n";
        next;
    }

## o - sort order

if ($key =~ /o/)
    {
        if ($config{sort})
        {
            $config{sort} = 0;
            print RED(), "-- sort order reversed --", RESET();
            sleep 1;
        }
        else
        {
            $config{sort} = 1;
            print RED(), "-- sort order reversed --", RESET();
            sleep 1;
        }
    }

## ? - help

if ($key eq '?')
    {
        Clear();
        PrintHelp();
        ReadKey(0);
        next;
    }

## k - kill

if ($key eq 'k')
    {
        ReadMode($RM_RESET);

print RED(), "Thread id to kill: ", RESET();
        my $id = ReadLine(0);

$id =~ s/\s//g;

if ($id =~ /^\d+$/)
        {
            Execute("KILL /*mytop*/ $id");
        }
        else
        {
            print RED(), "-- invalid thread id --", RESET();
            sleep 1;
        }

ReadMode($RM_NOBLKRD);
        next;
    }

## K - kill based on a username
    if ($key =~ /K/)
    {
        ReadMode($RM_RESET);

print RED(), "User to kill: ", RESET();
        my $user = ReadLine(0);

$user =~ s/\s//g;

if ($user =~ /^\S+$/)
        {
            for my $pid (keys %ucache)
            {
                next unless $ucache{$pid} eq $user;
                Execute("KILL /*mytop*/ $pid");
                select(undef, undef, undef, 0.2);
            }
        }
        else
        {
            print RED(), "-- invalid thread id --", RESET();
            sleep 1;
        }

ReadMode($RM_NOBLKRD);
    }

## f - full info

if ($key =~ /f/)
    {
        ReadMode($RM_RESET);
        print RED(), "Full query for which thread id: ", RESET();
        my $id = ReadLine(0);
        chomp $id;
        FullQueryInfo($id);
        ReadMode($RM_NOBLKRD);
        print RED(), "-- paused. press any key to resume or (e) to explain --",
            RESET();
        my $key = ReadKey(0);

if ($key eq 'e')
        {
            Explain($id);
            print RED(), "-- paused. press any key to resume --", RESET();
            ReadKey(0);
        }

next;
    }

## e - explain

if ($key =~ /e/)
    {
        ReadMode($RM_RESET);
        print RED(), "Explain which query (id): ", RESET();
        my $id = ReadLine(0);
        chomp $id;
        Explain($id);
        ReadMode($RM_NOBLKRD);
        print RED(), "-- paused. press any key to resume --", RESET();
        ReadKey(0);
        next;
    }

## r - reset status counters

if ($key =~ /r/)
    {
        Execute("FLUSH /*mytop*/ STATUS");
        print RED(), "-- counters reset --", RESET();
        sleep 1;
        next;
    }

## H - header toggle

if ($key eq 'H')
    {
        if ($config{header})
        {
            $config{header} = 0;
        }
        else
        {
            $config{header}++;
        }
    }

## # - magic debug key

if ($key eq '#')
    {
        $debug = 1;
    }

if ($key eq 'V')
    {
        GetShowVariables();
        print RED(), "-- paused. press any key to resume --", RESET();
        ReadKey(0);
    }

## M - switch to SHOW STATUS mode

if ($key eq 'M')
    {
        $config{mode} = 'status';
    }

## L - full queries toggle

if ($key eq 'L')
    {
        if ($config{fullqueries})
        {
            $config{fullqueries} = 0;
            print RED(), "-- full queries OFF --", RESET();
            sleep 1;
        }
        else
        {
            $config{fullqueries} = 1;
            print RED(), "-- full queries ON --", RESET();
            sleep 1;
        }
    }

## w - change columns width for the "User" and "Database" columns

if ($key eq 'w')
    {
        ReadMode($RM_RESET);
        print RED(), "Width for the 'User' column (the actual value is ".
                      $config{usercol_width}."): ";
        my $readWidth = ReadLine(0);
        chomp($readWidth);
        if (defined($readWidth) && $readWidth ne "")
        {
            if ($readWidth > 4 && $readWidth < 60)
            {
                $config{usercol_width} = $readWidth;
            }
            else
            {
                print RED(), "-- Invalid value ($readWidth), the previous value".
                             "has been kept, press a key to resume --";
                ReadKey(0);
            }
        }
        print RESET(), RED(), "Width for the 'DB' column (the actual value is ".
                               $config{dbcol_width}."): ", RESET();
        $readWidth = ReadLine(0);
        chomp($readWidth);
        if (defined($readWidth) && $readWidth ne "")
        {
            if ($readWidth > 2 && $readWidth < 60)
            {
                $config{dbcol_width} = $readWidth
            }
            else
            {
                print RED(), "-- Invalid value ($readWidth), the previous value".
                             "has been kept, press a key to resume --", RESET();
                ReadKey(0);
            }
        }
        undef $readWidth;
        ReadMode($RM_NOBLKRD);
        next;
    }

## a - progress column toggle (the column is only displayed
    ##     if progress information are available from the processlist)

if ($key eq 'a')
    {
        if ($config{hide_progress})
        {
            $config{hide_progress} = 0;
            print RED(), "-- progress display ON --", RESET();
            sleep 1;
        }
        else
        {
            $config{hide_progress} = 1;
            print RED(), "-- progress display OFF --", RESET();
            sleep 1;
        }
    }

}

ReadMode($RM_RESET) unless $config{batchmode};

exit;

#######################################################################

sub Clear()
{
    if (not $WIN)
    {
        print "$CLEAR"
    }
    else
    {
        print "\n" x 90; ## dumb hack for now. Anyone know how to
                         ## clear the screen in dos window on a Win32
                         ## system??
    }
}

my $last_time;

sub GetData()
{
    ## Get terminal info
    my $now_time;
    %qcache = ();  ## recycle memory
    %dbcache = ();

my ($width, $height, $wpx, $hpx, $lines_left);

if (not $config{batchmode})
    {
        ($width, $height, $wpx, $hpx) = GetTerminalSize();
        $lines_left = $height - 2;
    }
    else
    {
        $height = 999_999;     ## I hope you don't have more than that!
        $lines_left = 999_999;
        $width = 80;
    }

##
    ## Header stuff.
    ##
    if ($config{header})
    {
        my @recs = "";
        if ($db_release > 4)
        {
            @recs = Hashes("SHOW /*mytop*/ GLOBAL STATUS");
        }
        else
        {
           @recs = Hashes("SHOW /*mytop*/ STATUS");
        }

## if the server died or we lost connectivity
        if (not @recs)
        {
            ReadMode($RM_RESET);
            exit 1;
        }

## get high-res or low-res time
        my ($t_delta);

if ($HAS_TIME)
        {
            $now_time = Time::HiRes::gettimeofday();
        }
        else
        {
            $now_time = time;
        }

if ($last_time and $last_time != $now_time)
        {
          $t_delta = $now_time - $last_time;
        }

%OLD_STATUS = %STATUS;
        # Set some status that may not exist in all versions
        $STATUS{Handler_tmp_write} = 0;
        $STATUS{Handler_tmp_update} = 0;
        $STATUS{Rows_tmp_read} = 0;

foreach my $ref (@recs)
        {
            my $key = $ref->{Variable_name};
            my $val = $ref->{Value};

$STATUS{$key} = $val;
        }

## Compute Key Cache Hit Stats

$STATUS{Key_read_requests} ||= 1; ## can't divide by zero next

my $cache_hits_percent = (100-($STATUS{Key_reads}/$STATUS{Key_read_requests}) * 100);
        $cache_hits_percent = sprintf("%2.2f",$cache_hits_percent);

## Query Cache info for <= Ver. 4.1
        ##
        ## mysql> show status like 'qcache%';
        ## +-------------------------+----------+
        ## | Variable_name           | Value    |
        ## +-------------------------+----------+
        ## | Qcache_queries_in_cache | 81       |
        ## | Qcache_inserts          | 4961668  |
        ## | Qcache_hits             | 1374170  |
        ## | Qcache_not_cached       | 5656249  |
        ## | Qcache_free_memory      | 33164800 |
        ## | Qcache_free_blocks      | 2        |
        ## | Qcache_total_blocks     | 168      |
        ## +-------------------------+----------+
        ##
        ## Query Cache info for => Ver. 5.0
        ##
        ## mysql> show status like 'qcache%';
        ## +-------------------------+------------+
        ## | Variable_name           | Value      |
        ## +-------------------------+------------+
        ## | Qcache_free_blocks      | 37652      |
        ## | Qcache_free_memory      | 110289712  |
        ## | Qcache_hits             | 1460617356 |
        ## | Qcache_inserts          | 390563495  |
        ## | Qcache_lowmem_prunes    | 6414172    |
        ## | Qcache_not_cached       | 93002420   |
        ## | Qcache_queries_in_cache | 66558      |
        ## | Qcache_total_blocks     | 192031     |
        ## +-------------------------+------------+

my $query_cache_hits             = 0;
        my $query_cache_hits_per_sec     = 0;
        my $now_query_cache_hits_per_sec = 0;

if ($have_query_cache)
        {
            $query_cache_hits = $STATUS{Qcache_hits};
            $query_cache_hits_per_sec = $STATUS{Qcache_hits} / $STATUS{Uptime};

if (defined $last_time and $last_time != $now_time)
            {
                my $q_delta = $STATUS{Qcache_hits} - $OLD_STATUS{Qcache_hits};
                $now_query_cache_hits_per_sec = sprintf "%.2f", $q_delta / $t_delta;
            }
        }

my $l;
        if (-e "/proc/loadavg")
        {
            ## To avoid warnings if the OS is not Linux
            open (my $fh, "<", "/proc/loadavg");
            ## Only the first 3 values are interresting
            $l = join(" ", (split /\s+/, <$fh>)[0..2]);
            close $fh;
        }

$last_time = $now_time;

## Server Uptime in meaningful terms...

my $time         = $STATUS{Uptime};
        my ($d,$h,$m,$s) = (0, 0, 0, 0);

$d += int($time / (60*60*24)); $time -= $d * (60*60*24);
        $h += int($time / (60*60));    $time -= $h * (60*60);
        $m += int($time / (60));       $time -= $m * (60);
        $s += int($time);

my $uptime = sprintf("%d+%02d:%02d:%02d", $d, $h, $m, $s);

## Queries per second...

my $avg_queries_per_sec  = sprintf("%.2f", $STATUS{Questions} / $STATUS{Uptime});
        my $num_queries          = $STATUS{Questions};

my @t = localtime(time);

my $current_time = sprintf "[%02d:%02d:%02d]", $t[2], $t[1], $t[0];

my $host_width = length("$server $db_version on $config{host}");
        my $up_width   = $width - $host_width - 1;
        Clear() unless $config{batchmode};
        print RESET();

printf "%-.${host_width}s %${up_width}s\n",
               "$server $db_version on $config{host}",
               defined($l) ? "load ($l) up $uptime $current_time" : "up $uptime $current_time";
        $lines_left--;

printf " Queries: %-7s  qps: %4.0f Slow: %7s         Se/In/Up/De(%%):    %02.0f/%02.0f/%02.0f/%02.0f\n",
               make_short( $STATUS{Questions} ),  # q total
               $STATUS{Questions} / $STATUS{Uptime},  # qps, average
               make_short( $STATUS{Slow_queries} ),    # slow

# hmm. a Qcache hit is really a select and should be counted.
               100 * ($STATUS{Com_select} + ($STATUS{Qcache_hits}||0) )    / $STATUS{Questions},
               100 * ($STATUS{Com_insert} +  $STATUS{Com_replace} ) / $STATUS{Questions},
               100 * ($STATUS{Com_update} )  / $STATUS{Questions},
               100 * $STATUS{Com_delete} / $STATUS{Questions};

$lines_left--;

if ($t_delta)
        {
          my $q_diff = ( $STATUS{Questions} - $OLD_STATUS{Questions} );
#         print("q_diff: $STATUS{Questions} - $OLD_STATUS{Questions}  / $t_delta = $q_diff\n");

printf(" Sorts: %6.0f qps now: %4.0f Slow qps: %3.1f  Threads: %4.0f (%4.0f/%4.0f) %02.0f/%02.0f/%02.0f/%02.0f\n",
                 ( $STATUS{Sort_rows} - $OLD_STATUS{Sort_rows} ) / $t_delta,

( $STATUS{Questions} - $OLD_STATUS{Questions} ) / $t_delta,
                 ( # slow now (qps)
                  ($STATUS{Slow_queries} ) ?
                  ( $STATUS{Slow_queries} - $OLD_STATUS{Slow_queries} ) / $t_delta :
                  0
                 ),
                 $STATUS{Threads_connected},
                 $STATUS{Threads_running},
                 $STATUS{Threads_cached},

(100 * ($STATUS{Com_select} - $OLD_STATUS{Com_select} +
                         ($STATUS{Qcache_hits}||0) - ($OLD_STATUS{Qcache_hits}||0)
                        ) ) / ($q_diff ),
                 (100 * ($STATUS{Com_insert} - $OLD_STATUS{Com_insert} +
                         $STATUS{Com_replace} - $OLD_STATUS{Com_replace}
                        ) ) / ($q_diff ),
                 (100 * ($STATUS{Com_update} - $OLD_STATUS{Com_update}) ) / ($q_diff ),
                 (100 * ($STATUS{Com_delete} - $OLD_STATUS{Com_delete}) ) / ($q_diff ),
                 );
        }
        else
        {
            print "\n";
        }
        $lines_left--;

if ($have_query_cache and $STATUS{Com_select} and $query_cache_hits)
        {
          printf(" Cache Hits: %-5s Hits/s: %4.1f Hits now: %5.1f  Ratio: ",
                 make_short($STATUS{Qcache_hits}),        # cache hits
                 $STATUS{Qcache_hits} / $STATUS{Uptime}, # hits / sec
                 ($t_delta) ?  ($STATUS{Qcache_hits} - $OLD_STATUS{Qcache_hits}) / $t_delta : 0,  # Hits Now
                 );

my ($Ratio) =  100 * ($STATUS{Qcache_hits})  / ($STATUS{Qcache_hits} + $STATUS{Com_select} );
          if ($HAS_COLOR)
          {
                print YELLOW() if ($Ratio < 80.0);
                print RED() if ($Ratio < 50.0);
                print MAGENTA() if ($Ratio < 20.0);
          }
          printf("%4.1f%% ",$Ratio);
          if ($HAS_COLOR)
          {
                print RESET();
          }

print " Ratio now: ";
          my ($Ratio_now) = ($t_delta) ?   # ratio now
                 100 * ($STATUS{Qcache_hits} - $OLD_STATUS{Qcache_hits} ) /
                 ( ($STATUS{Com_select} + $STATUS{Qcache_hits} -
                    ($OLD_STATUS{Qcache_hits} + $OLD_STATUS{Com_select})
                   ) || 1) : 0;
          if ($HAS_COLOR)
          {
                print GREEN() if ($Ratio_now >= 80.0);
                print YELLOW() if ($Ratio_now < 80.0);
                print RED() if ($Ratio_now < 50.0);
                print MAGENTA() if ($Ratio_now < 20.0);
          }
          printf("%4.1f%% \n",$Ratio_now);
          if ($HAS_COLOR)
          {
                print RESET();
          }
          $lines_left--;
        }

if ($t_delta)
        {
          my $rows_read;
          if (defined($STATUS{Rows_read}))
          {
            $rows_read= $STATUS{Rows_read} - $OLD_STATUS{Rows_read};
          }
          else
          {
            $rows_read=
              ($STATUS{Handler_read_first} + $STATUS{Handler_read_key} +
               $STATUS{Handler_read_next} + $STATUS{Handler_read_prev} +
               $STATUS{Handler_read_rnd} + $STATUS{Handler_read_rnd_next} -
               $OLD_STATUS{Handler_read_first} - $OLD_STATUS{Handler_read_key} -
               $OLD_STATUS{Handler_read_next} - $OLD_STATUS{Handler_read_prev} -
               $OLD_STATUS{Handler_read_rnd} - $OLD_STATUS{Handler_read_rnd_next});
          }
          printf(" Handler: (R/W/U/D) %5d/%5d/%5d/%5d        Tmp: R/W/U: %5d/%5d/%5d\n",
                 $rows_read/$t_delta,
                 ($STATUS{Handler_write} - $OLD_STATUS{Handler_write}) /
                 $t_delta,
                 ($STATUS{Handler_update} - $OLD_STATUS{Handler_update}) /
                 $t_delta,
                 ($STATUS{Handler_delete} - $OLD_STATUS{Handler_delete}) /
                 $t_delta,
                 ($STATUS{Rows_tmp_read} - $OLD_STATUS{Rows_tmp_read}) /
                 $t_delta,
                 ($STATUS{Handler_tmp_write}
                 -$OLD_STATUS{Handler_tmp_write})/$t_delta,
                 ($STATUS{Handler_tmp_update} -
                 $OLD_STATUS{Handler_tmp_update})/$t_delta);
        }
        else
        {
            print "\n";
        }

$lines_left--;

printf(" MyISAM Key Cache Efficiency: %2.1f%%  Bps in/out: %5s/%5s   ",
               $cache_hits_percent,
               make_short($STATUS{Bytes_received} / $STATUS{Uptime} ),
               make_short($STATUS{Bytes_sent} / $STATUS{Uptime}));
        printf("Now in/out: %5s/%5s",
               make_short(($STATUS{Bytes_received} - $OLD_STATUS{Bytes_received}) / $t_delta ),
               make_short(($STATUS{Bytes_sent} - $OLD_STATUS{Bytes_sent}) / $t_delta ))
          if ($t_delta);
        print "\n";

$lines_left--;

my ($data) = Hashes('SHOW /*mytop*/ GLOBAL VARIABLES LIKE "read_only"');
        if ($data->{Value} ne "OFF")
        {
            print RED() if ($HAS_COLOR) ;
            print " ReadOnly";
            RESET() if ($HAS_COLOR);
        }

($data) = Hashes('SHOW /*mytop*/ SLAVE STATUS');
        if (defined($data->{Master_Host}))
        {
            if (defined($data->{Seconds_Behind_Master}))
            {
                if ($HAS_COLOR)
                {
                    print GREEN();
                    print YELLOW() if ($data->{Seconds_Behind_Master}  >  60);
                    print MAGENTA() if ($data->{Seconds_Behind_Master} > 360);
                }
            }
            print " Replication ";
            print "IO:$data->{Slave_IO_Running} ";
            print "SQL:$data->{Slave_SQL_Running} ";
            print RESET() if ($HAS_COLOR);

if (defined($data->{Seconds_Behind_Master}))
            {
                if ($HAS_COLOR)
                {
                    print GREEN();
                    print YELLOW() if ($data->{Seconds_Behind_Master}  >  60);
                    print MAGENTA() if ($data->{Seconds_Behind_Master} > 360);
                }
                print "Delay: $data->{Seconds_Behind_Master} sec.";
            }
            else
            {
                my $free = $width - 45;
                my $Err = substr $data->{Last_Error},0 ,$free;
                printf(" ERR: %-${free}s", $Err) if ($Err ne "");
            }
            print WHITE() if ($HAS_COLOR);
            print "\n";
            $lines_left--;
        }
        print "\n";
    }

if (not $config{batchmode} and not $config{header})
    {
        Clear();
        print RESET();
    }

##
    ## Threads
    ##

my $proc_cmd;  ## Query used to fetch the processlist
    my $time_format = "6d";

if ($has_is_processlist == 1)
    {
        if ($has_time_ms == 1)
        {
            $time_format = "6.6s";
            if ($has_progress == 1)
            {
                ## To have a computed value of "Progress" like the
                ## "SHOW PROCESSLIST" one, the Progress column of the query
                ## must be replaced by :
                ## "CASE WHEN Max_Stage < 2 THEN Progress ELSE
                ## (Stage-1)/Max_Stage*100+Progress/Max_Stage END AS Progress"
                $proc_cmd = "SELECT /*mytop*/ Id, User, Host, db, Command,
                             CASE WHEN TIME > 10000 THEN Time ELSE
                             ROUND(TIME_MS/1000, 1) END AS Time,
                             State, Info, Progress, Stage, Max_Stage
                             FROM INFORMATION_SCHEMA.PROCESSLIST
                             WHERE ID != CONNECTION_ID();";
            }
            else
            {
                $proc_cmd = "SELECT /*mytop*/ Id, User, Host, db, Command,
                             CASE WHEN TIME > 10000 THEN Time ELSE
                             ROUND(TIME_MS/1000, 1) END AS Time,
                             State, Info FROM INFORMATION_SCHEMA.PROCESSLIST
                             WHERE ID != CONNECTION_ID();";
           }
        }
        else
        {
            $proc_cmd = "SELECT /*mytop*/ Id, User, Host, db, Command, Time,
                         State, Info FROM INFORMATION_SCHEMA.PROCESSLIST
                         WHERE ID != CONNECTION_ID();";
        }
    }
    else
    {
        $proc_cmd = "SHOW /*mytop*/ FULL PROCESSLIST;";
    }

## Minimal width values for columns with a dynamic width
    if ($config{usercol_width} < 4) { $config{usercol_width} = 4; }
    if ($config{dbcol_width} < 2)   { $config{dbcol_width}   = 2; }

my @sz   = (9, $config{usercol_width}, 15, $config{dbcol_width}, 6, 6, 8);
    if ($has_progress == 1 && !$config{hide_progress}) { push @sz, 5; };
    my $used = scalar(@sz) + Sum(@sz);
    undef(@sz);

## If the terminal width <= 80, the state column will have a width of 6
    ## chars else it will be between 6 and 15 depending on the terminal width
    my $state = $width <= 80 ? 6 : int(min(6+($width-80)/3, 15));
    ## $free = The number of chars between the beginning of the "Query"
    ## column and the end of the line
    my $free = $width - $used - ($state - 6);
    my $format= "%9s %$config{usercol_width}s %15s %$config{dbcol_width}s %6s ";
    if ($has_progress == 1 && !$config{hide_progress}) { $format .= "%5s "; }
    $format .= "%6s %${state}s %-.${free}s\n";

my $format2 = "%9d %$config{usercol_width}.$config{usercol_width}s %15.15s %$config{dbcol_width}.$config{dbcol_width}s %${time_format} ";
    if ($has_progress == 1 && !$config{hide_progress}) { $format2 .= "%5.1f "; }
    $format2 .= "%6.6s %${state}.${state}s ";
    if ($config{fullqueries})
    {
        $format2 .= "%-${free}s\n";
    }
    else
    {
        $format2 .= "%-${free}.${free}s\n";
    }

print BOLD() if ($HAS_COLOR);

if ($has_progress == 1 && !$config{hide_progress})
    {
        printf $format,
            'Id','User','Host/IP','DB','Time', '%', 'Cmd', 'State', 'Query';
    }
    else
    {
        printf $format,
            'Id','User','Host/IP','DB','Time', 'Cmd', 'State', 'Query';
    }

print RESET() if ($HAS_COLOR);

## Id User Host DB
    if ($has_progress == 1 && !$config{hide_progress})
    {
        printf $format,
            '--','----','-------','--','----', '-', '---', '-----', '----------';
    }
    else
    {
        printf $format,
            '--','----','-------','--','----', '---', '-----', '----------';
    }

$lines_left -= 2;

my @data = Hashes($proc_cmd);

foreach my $thread (@data)
    {
        last if not $lines_left;

## Drop Domain Name, unless it looks like an IP address.  If
        ## it's an IP, we'll strip the port number because it's rarely
        ## interesting.

my $is_ip = 0;

if ($thread->{Host} =~ /^(\d{1,3}\.){3}(\d{1,3})(:\d+)?$/)
        {
            $thread->{Host} =~ s/:.*$//;
            $is_ip = 1;
        }
        else
        {
            $thread->{Host} =~ s/^([^.]+).*/$1/;
        }

## Otherwise, look up the IP (if resolve is set) and strip the
        ## name
        if ($is_ip and $config{resolve})
        {
            $thread->{Host} =~ s/:\d+$//;
            my $host = gethostbyaddr(inet_aton($thread->{Host}), AF_INET);
            if ($host)
            {
                ## Only the hostname part of the DNS is kept
                $host =~ s/^([^.]+).*/$1/;
            }
            $thread->{Host} = $host;
        }

## Fix possible undefs

$thread->{db}      ||= '';
        $thread->{Info}    ||= '';
        $thread->{Time}    ||= 0 ;
        $thread->{Id}      ||= 0 ;
        $thread->{User}    ||= '';
        $thread->{Command} ||= '';
        $thread->{Host}    ||= '';
        $thread->{State}   ||= "";
        $thread->{Progress} ||= 0;

## Alter double hyphen comments so they don't break
        ## the query when newlines are removed - http://freshmeat.net/users/jerjones
        $thread->{Info} =~ s~\s--(.*)$~ /* $1 */ ~mg;

## Normalize spaces -- mostly disabled for now.  This can
        ## break EXPLAIN if you try to explain a mangled query.  It
        ## may be re-enabled later as an option.

## Replace newlines and carriage returns with a space
        $thread->{Info} =~ tr/\n\r/ /;

## Leading space removal
        $thread->{Info} =~ s/^\s*//;

## Strip non printing control symbols
        $thread->{Info} =~ tr/[[:cntrl:]]//;

## Collpase whitespace
        $thread->{Info} =~ s/\s+/ /g;

## Trailing space removal
        $thread->{Info} =~ s/\s$//;

## Put the first letter of the query uppercase for a better readability
        ## with long State strings
        $thread->{Info} = ucfirst $thread->{Info};

## Stow it in the cache
        $qcache{$thread->{Id}}  = $thread->{Info};
        $dbcache{$thread->{Id}} = $thread->{db};
        $ucache{$thread->{Id}}  = $thread->{User};

## If Progress information is available and a multi-stage query is
        ## running, the actual stage and the total number of stages of the
        ## thread are shown at the beginning of the State column
        if ($has_progress == 1 && $thread->{Max_Stage} && $thread->{Max_Stage} > 1)
        {
            $thread->{State} = $thread->{Stage}."/".
                               $thread->{Max_Stage}." ".$thread->{State};
        }
    }

## Sort by idle time (closest thing to CPU usage I can think of).

my @sorted;

if (not $config{sort})
    {
        @sorted = sort { $a->{Time} <=> $b->{Time} } @data
    }
    else
    {
        @sorted = sort { $b->{Time} <=> $a->{Time} } @data
    }

foreach my $thread (@sorted)
    {
        ## Check to see if we can skip out.
        ## We skip out if we know the given line doesn't match.

next if (($thread->{Command} eq "Sleep")
                 and
                 (not $config{idle}));

next if (($thread->{Command} eq "Binlog Dump")
                 and
                 (not $config{idle}));

next if (($thread->{Command} eq "Daemon")
                 and
                 (not $config{idle}));

next if ($thread->{User}  !~ $config{filter_user});
        next if ($thread->{db}    !~ $config{filter_db});
        next if ($thread->{Host}  !~ $config{filter_host});
        next if ($thread->{State} !~ $config{filter_state});

## Otherwise, print.

my $smInfo;

if ($thread->{Info})
        {
            if ($config{fullqueries})
            {
                $smInfo = $thread->{Info};
                if (length($smInfo) > $free)
                {
                    $lines_left -= int((length($smInfo) - $free)/$width) + 1;
                }
            }
            else
            {
                $smInfo = substr $thread->{Info}, 0, $free;
            }
        }
#        if ($thread->{State})
#        {
#            $smInfo = substr $thread->{State}, 0, $free;
#        }
        else
        {
            $smInfo = "";
        }

$lines_left--;
        if ($lines_left < 0)
        {
            print WHITE(), "-- Truncated query list --  ";
            last;
        }

if ($HAS_COLOR)
        {
            print YELLOW() if $thread->{Command} eq 'Query';
            print WHITE()  if $thread->{Command} eq 'Sleep';
            print GREEN()  if $thread->{Command} eq 'Connect';
            print BOLD()   if $thread->{Time} > $config{slow};
            print MAGENTA() if $thread->{Time} > $config{long};
        }

if ($has_progress == 1 && !$config{hide_progress})
        {
            printf $format2,
                $thread->{Id}, $thread->{User}, $thread->{Host}, $thread->{db},
                $thread->{Time}, $thread->{Progress}, $thread->{Command},
                $thread->{State}, $smInfo;
        }
        else
        {
            printf $format2,
                $thread->{Id}, $thread->{User}, $thread->{Host}, $thread->{db},
                $thread->{Time}, $thread->{Command}, $thread->{State}, $smInfo;
        }

print RESET() if $HAS_COLOR;
    }

}

###########################################################################

my $questions;

sub GetQPS()
{
    my ($data) = Hashes('SHOW /*mytop*/ STATUS LIKE "Questions"');
    my $num   = $data->{Value};

if (not defined $questions) ## first time?
    {
        $questions = $num;
        return;
    }

my $qps = $num - $questions;
    $questions = $num;
    print "$qps\n";
}

###########################################################################

sub GetInnoDBStatus()
{
    if (not $config{pager})
    {
        if (not $config{pager} = my_which('less'))
        {
            $config{pager} = my_which('more');
        }
    }

my @data = Hashes("SHOW /*mytop*/ ENGINE INNODB STATUS");

open P, "|$config{pager}" or die "$!";
    print keys %{$data[0]};
    print $data[0]->{Status},"\n";
    close P;
}

###########################################################################

my %prev_data;

sub GetCmdSummary()
{
    my ($width, $height, $wpx, $hpx, $lines_left);

if (not $config{batchmode})
    {
        ($width, $height, $wpx, $hpx) = GetTerminalSize();

$lines_left = $height - 2;
    }
    else
    {
        $height = 999_999;     ## I hope you don't have more than that!
        $lines_left = 999_999;
        $width = 80;
    }

## Variable_name and Value pairs come back...
    my @data = Hashes("SHOW /*mytop*/ STATUS LIKE 'Com\\_%'");
    my %cmd_data;
    my %cmd_delta;
    my %cmd_pct;
    my %cmd_delta_pct;
    my $total;
    my $delta_total;

for my $item (@data)
    {
        next unless $item->{Value};
        $item->{Variable_name} =~ s/^Com_//;
        $item->{Variable_name} =~ s/_/ /g;
        $cmd_data{$item->{Variable_name}} = $item->{Value};
        $total += $item->{Value};
    }

## Populate other stats

for my $item (keys %cmd_data)
    {
        $cmd_delta{$item} = $cmd_data{$item} -
            ($prev_data{$item} || $cmd_data{$item} - 1);

$delta_total += $cmd_delta{$item};

$cmd_pct{$item}  = int(($cmd_data{$item} / $total) * 100);
    }

for my $item (keys %cmd_data)
    {
        $cmd_delta_pct{$item}  = int(($cmd_delta{$item} / $delta_total) * 100);
    }

## Display

Clear() unless $config{batchmode};
    print RESET();
    printf "%18s %10s %4s  | %5s %4s\n", 'Command', 'Total', 'Pct', 'Last', 'Pct';
    printf "%18s %10s %4s  | %5s %4s\n", '-------', '-----', '---', '----', '---';
    $lines_left -= 2;

for my $item (sort { $cmd_data{$b} <=> $cmd_data{$a} } keys %cmd_data)
    {
        printf "%18s %10d %4s  | %5d %4s\n",
            $item,
            $cmd_data{$item},
            $cmd_pct{$item} . "%",
            $cmd_delta{$item},
            $cmd_delta_pct{$item} . "%";

last if not $lines_left;
        $lines_left -= 1;
    }

%prev_data = %cmd_data;
}

###########################################################################

sub GetShowVariables()
{
    if (not $config{pager})
    {
        if (not $config{pager} = my_which('less'))
        {
            $config{pager} = my_which('more');
        }
    }

my @rows = Hashes("SHOW /*mytop*/ VARIABLES");

open P, "|$config{pager}" or die "$!";

for my $row (@rows)
    {
        my $name  = $row->{Variable_name};
        my $value = $row->{Value};
        printf P "%32s: %s\n", $name, $value;
    }

close P;
}

###########################################################################

sub GetShowStatus()
{
    Clear() unless $config{batchmode};
    my @rows = Hashes("SHOW /*mytop*/ STATUS");

printf "%32s  %10s %10s   Toggle idle with 'i'\n", 'Counter', 'Total', 'Change';
    printf "%32s  %10s %10s\n", '-------', '-----', '------';

for my $row (@rows)
    {
        my $name  = $row->{Variable_name};
        my $value = $row->{Value};
        my $old   = $statcache{$name};
        my $delta = 0;

next if $name  =~ m/^Com_/;      ## skip Com_ stats
        next if $value =~ m/^[^0-9]*$/;  ## skip non-numeric

## TODO: if Qcache is off, we should skip Qcache_ values

if ($HAS_COLOR and defined $old and $old =~ /^\d/)
        {
            if ($value > $old)
            {
                print YELLOW();
                $delta = $value - $old;
            }
            elsif ($value < $old)
            {
                print RED();
                $delta = $value - $old;
            }

if (not $config{idle} and $value == $old)
            {
                ## filter unchanging stats, maybe
                print RESET();
                next;
            }
        }

printf "%32s: %10s %10s\n", $name, $value, $delta;
        print RESET() if $HAS_COLOR;

$statcache{$name} = $value;
    }

}

###########################################################################

sub FullQueryInfo($)
{
    my $id = shift;

if (not exists $qcache{$id} or not defined $qcache{$id})
    {
        print "*** Invalid id. ***\n";
        return;
    }

my $sql = $qcache{$id};
    print $CLEAR;
    print "Thread $id was executing following query:\n\n";
    print YELLOW(), $sql,"\n\n", RESET();
}

###########################################################################

sub Explain($)
{
    my $id  = shift;

if (not exists $qcache{$id} or not defined $qcache{$id})
    {
        print "*** Invalid id. ***\n";
        return;
    }

my $sql = $qcache{$id};
    my $db  = $dbcache{$id};

Execute("USE /*mytop*/ $db");
    my @info = Hashes("EXPLAIN $sql");
    print $CLEAR;
    print "EXPLAIN $sql:\n\n";
    PrintTable(@info);
}

###########################################################################

sub PrintTable(@)
{
    my $cnt = 1;
    my @cols = qw(table type possible_keys key key_len ref rows Extra);

for my $row (@_)
    {
        print "*** row $cnt ***\n";
        for my $key (@cols)
        {
            my $val = $row->{$key} || 'NULL';
            printf "%15s:  %s\n", $key, $val;
        }
        $cnt++;
    }
}

###########################################################################

sub StringOrRegex($)
{
    my $input = shift;
    chomp $input;
    if (defined $input)
    {
        ## regex, strip /.../ and use via qr//
        if ($input =~ m{^/} and $input =~ m{/$})
        {
            $input =~ s{^/}{} if $config{filter_user};
            $input =~ s{/$}{} if $config{filter_user};
            $input =  qr/$input/;
        }

## reset to match anything
        elsif ($input eq '')
        {
            $input = qr/.*/;
        }

## string, build a simple regex
        else
        {
            $input =  '^' . $input . '$';
            $input = qr/$input/;
        }
    }

## reset to match anything
    else
    {
        $input = qr/.*/;
    }
    return $input;
}

###########################################################################

sub cmd_l
{
    ReadMode($RM_RESET);

print RED(), "Seconds for long queries: ", RESET();
    my $secs = ReadLine(0);

if ($secs =~ /^\s*(\d+)/)
    {
        $config{long} = $1;
        if ($config{long} < 1)
        {
            $config{long} = 1;
        }
    }
    ReadMode($RM_NOBLKRD);
}

sub cmd_s
{
    ReadMode($RM_RESET);

print RED(), "Seconds of Delay: ", RESET();
    my $secs = ReadLine(0);

if ($secs =~ /^\s*(\d+)/)
    {
        $config{delay} = $1;
        if ($config{delay} < 1)
        {
            $config{delay} = 1;
        }
    }
    ReadMode($RM_NOBLKRD);
}

sub cmd_S
{
    ReadMode($RM_RESET);

print RED(), "Seconds for Slow queries: ", RESET();
    my $secs = ReadLine(0);

if ($secs =~ /^\s*(\d+)/)
    {
        $config{slow} = $1;
        if ($config{slow} < 1)
        {
            $config{slow} = 1;
        }
    }
    ReadMode($RM_NOBLKRD);
}

sub cmd_q
{
    ReadMode($RM_RESET);
    print "\n";
    exit;
}

sub trim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

###########################################################################

sub PrintHelp()
{
    my $help = qq[Help for mytop version $main::VERSION by Jeremy D. Zawodny <${YELLOW}Jeremy\@Zawodny.com${RESET}>
 with updates by Mark Grennan <${YELLOW}mark\@grennan.com${RESET}> and Jean Weisbuch <${YELLOW}jean\@phpnet.org${RESET}>

? - display this screen
  # - debug mode (toggle)
  c - command summary view (based on Com_* counters)
  C - turn color on and off
  d - show only a specific database
  e - explain the query that a thread is running
  E - display current replication error
  f - show full query info for a given thread
  F - unfilter the display
  h - show only a specifc host's connections
  H - toggle the mytop header
  i - toggle the display of idle (sleeping) threads
  I - show innodb status
  k - kill a thread
  p - pause the display
  l - change long running queries hightlighing
  m - switch [mode] to qps (queries/sec) scrolling view
  M - switch [mode] to status
  o - reverse the sort order (toggle)
  q - quit
  r - reset the status counters (via FLUSH STATUS on your server)
  R - change reverse IP lookup
  s - change the delay between screen updates
  S - change slow query hightlighting
  t - switch to thread view (default)
  u - show only a specific user
  V - show variables
  : - enter a command (not yet implemented)
  ! - Skip an error that has stopped replications (at your own risk)
  L - show full queries (do not strip to terminal width)
  w - adjust the User and DB columns width
  a - toggle the progress column

Base version from ${GREEN}http://www.mysqlfanboy.com/mytop-3${RESET}
This version comes as part of the ${GREEN}MariaDB${RESET} distribution.
];

print $help;
}

sub Sum(@)
{
    my $sum;
    while (my $val = shift @_) { $sum += $val; }
    return $sum;
}

## A useful routine from perlfaq

sub commify($)
{
    local $_  = shift;
    return 0 unless defined $_;
    1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
    return $_;
}

## Compact numeric representation (10,000 -> 10.0k)

sub make_short($)
{
    my $number = shift;
    return commify($number) if $config{long_nums};
    my $n = 0;
    while ($number > 1_025) { $number /= 1024; $n++; };
    return sprintf "%.1f%s", $number, ('','k','M','G', 'T')[$n];
}

## Run a query and return the records has an array of hashes.

sub Hashes($)
{
    my $sql = shift;
    my @records;

if (my $sth = Execute($sql))
    {
        while (my $ref = $sth->fetchrow_hashref)
        {
            print "record\n" if $debug;
            push @records, $ref;
        }
    }
    return @records;
}

## Execute an SQL query and return the statement handle.

sub Execute($)
{
    my $sql = shift;

$sql =~ s/\n/ /sg;

my $sth = $dbh->prepare($sql);

if (not $sth) { ReadMode($RM_RESET); die $DBI::errstr; }

my $ReturnCode = $sth->execute;

if (not $ReturnCode)
    {
        if ($debug)
        {
            print "query failed\n";
            sleep 10;
        }
        return undef;
    }

return $sth;
}

####
#### my_which is used, because we can't assume that every system has the
#### which command. my_which can take only one argument at a time.
#### Return values: requested system command with the first found path,
#### or undefined, if not found.
####

sub my_which
{
  my ($command) = @_;
  my (@paths, $path);

return $command if (-f $command && -x $command);

## Check first if this is a source distribution, then if this binary distribution and last in the path

push @paths, "./extra";
  push @paths, $path_for_script;
  push @paths, split(':', $ENV{'PATH'});

foreach $path (@paths)
  {
    $path .= "/$command";
    return $path if (-f $path && -x $path);
  }
  return undef();
}

=pod

=head1 SYNOPSIS

B<mytop> [options]

=head1 AVAILABILITY

Base version from B<http://www.mysqlfanboy.com/mytop-3>.

This version comes as part of the B<MariaDB> distribution. See B<https://mariadb.org/>.

And older (the original) version B<mytop> is available from
http://www.mysqlfanboy.com/mytop-3/ it B<might> also be on CPAN as
well.

=head1 REQUIREMENTS

In order for B<mytop> to function properly, you must have the
following:

* Perl 5.005 or newer
  * Getopt::Long
  * DBI and DBD::MariaDB or DBD::mysql
  * Term::ReadKey from CPAN

Most systems are likely to have all of those installed--except for
Term::ReadKey. You will need to pick that up from the CPAN. You can
pick up Term::ReadKey here:

http://search.cpan.org/search?dist=TermReadKey

And you obviously need access to a MariaDB server with the necessary
security to run the I<SHOW PROCESSLIST> and I<SHOW STATUS> commands.

If you are a Windows user, using ActiveState's Perl, you can use PPM
(the Perl Package Manager) to install the MariaDB/MySQL and Term::ReadKey
modules.

=head2 Optional Color Support

In additon, if you want a color B<mytop> (recommended), install
Term::ANSIColor from the CPAN:

http://search.cpan.org/search?dist=ANSIColor

Once you do, B<mytop> will automatically use it. However, color is not
yet working on Windows. Patches welcome. :-)

=head2 Optional Hi-Res Timing

If you want B<mytop> to provide more accurate real-time
queries-per-second statistics, install the Time::HiRes module from
CPAN.  B<mytop> will automatically notice that you have it and use it
rather than the standard timing mechanism.

=head2 Platforms

B<mytop> is known to work on:

* Linux (2.2.x, 2.4.x)
  * FreeBSD (2.2, 3.x, 4.x)
  * Mac OS X
  * BSDI 4.x
  * Solaris 2.x
  * Windows NT 4.x (ActivePerl)

If you find that it works on another platform, please let me
know. Given that it is all Perl code, I expect it to be rather
portable to Unix and Unix-like systems. Heck, it I<might> even work on
Win32 systems.

=head1 DESCRIPTION

Help is always welcome in improving this software. Feel free to
contact the author (see L<"AUTHOR"> below) with bug reports, fixes,
suggestions, and comments. Additionally L<"BUGS"> will provide a list
of things this software is not able to do yet.

Having said that, here are the details on how it works and what you can
do with it.

=head2 The Basics

B<mytop> was inspired by the system monitoring tool B<top>. I
routinely use B<top> on Linux, FreeBSD, and Solaris. You are likely to
notice features from each of them here.

B<mytop> will connect to a MariaDB server and periodically run the
I<SHOW PROCESSLIST> and I<SHOW STATUS> commands and attempt to
summarize the information from them in a useful format.

=head2 The Display

The B<mytop> display screen is really broken into two parts. The top 4
lines (header) contain summary information about your MariaDB
server. For example, you might see something like:

MariaDB 10.5.0 on localhost     load (3.89 3.86 3.91) up 7+23:56:31 [16:33:01]
 Queries: 353.4M   qps:  531 Slow:    4.5k         Se/In/Up/De(%):    87/02/02/00
 Sorts:   2390 qps now:  651 Slow qps: 0.0  Threads:   11 (   1/  13) 88/01/03/00
 Handler: (R/W/U/D) 82138/ 5884/   20/    1        Tmp: R/W/U: 13623/29501/   79
 MyISAM Key Cache Efficiency: 99.9%  Bps in/out: 157.4k/ 2.2M   Now in/out: 554.8k/ 2.6M

The first line identifies the hostname of the server (localhost) and
the version of MariaDB it is running. The right hand side shows the
uptime of the MariaDB server process in days+hours:minutes:seconds
format (much like FreeBSD's top) as well as the current time.

The second line displays the total number of queries the server has
processed, the average number of queries per second, the number of
slow queries, and the percentage of Select, Insert, Update, and Delete
queries.

The third real-time values. First is the number of queries per second,
then the number of slow queries, followed by query precentages (like
on the previous line).

And the fourth line displays key buffer efficiency (how often keys are
read from the buffer rather than disk) and the number of bytes that
MariaDB has sent and received, both over all and in the last cycle.

You can toggle the header by hitting B<H> when running B<mytop>.

The second part of the display lists as many threads as can fit on
screen. By default they are sorted according to their idle time (least
idle first). The display looks like:

Id     User       Host      Dbase   Time      Cmd Query or State
    --     ----       ----      -----   ----      --- --------------
    61  jzawodn  localhost      music      0    Query show processlist

As you can see, the thread id, username, host from which the user is
connecting, database to which the user is connected, number of seconds
of idle time, the command the thread is executing, and the query info
are all displayed.

Often times the query info is what you are really interested in, so it
is good to run B<mytop> in an xterm that is wider than the normal 80
columns if possible.

The thread display color-codes the threads if you have installed color
support. The current color scheme only works well in a window with a
dark (like black) background. The colors are selected according to the
C<Command> column of the display:

Query   -  Yellow
    Sleep   -  White
    Connect -  Green
    Slow    -  Bright
    Long    -  Magenta

Those are purely arbitrary and will be customizable in a future
release. If they annoy you just start B<mytop> with the B<--nocolor>
flag or adjust your config file appropriately.

=head2 Arguments

B<mytop> handles long and short command-line arguments. Not all
options have both long and short formats, however. The long arguments
have two dashes `--'. Short arguments only have one '-'.

=over

=item B<-u> or B<--user> username

Username to use when logging in to the MariaDB server. Default: ``B<root>''.

=item B<-p> or B<--pass> or B<--password> I<password>

Password to use when logging in to the MariaDB server. Default: none.

WARNING: This is insecure as the password is visible for anyone.
See B<--prompt> instead!

=item B<-h> or B<--host> I<hostname>[B<:>I<port>]

Hostname of the MariaDB server. The hostname may be followed by an
option port number. Note that the port is specified separate from the
host when using a config file. Default: ``B<localhost>''.

=item B<--port> or B<-P> I<port>

If you're running MariaDB on a non-standard port, use this to specify
the port number. Default: B<3306>.

=item B<-s> or B<--delay> I<seconds>

How long between display refreshes. Default: B<5>

=item B<-d> or B<--db> or B<--database> I<database>

Use if you'd like B<mytop> to connect to a specific database by
default. Default: none.

=item B<-b> or B<--batch> or B<--batchmode>

In batch mode, mytop runs only once, does not clear the screen, and
places no limit on the number of lines it will print. This is suitable
for running periodically (perhaps from B<cron>) to capture the
information into a file for later viewing. You might use batch mode in
a CGI script to occasionally display your MariaDB server status on the
web.

Default: unset.

=item B<-S> or B<--socket> I</path/to/socket>

If you're running B<mytop> on the same host as MariaDB/MySQL, you may wish to
have it use the MariaDB/MySQL socket directly rather than a standard TCP/IP
connection. If you do,just specify one.

Note that specifying a socket will make B<mytop> ignore any host
and/or port that you might have specified. If the socket does not
exist (or the file specified is not a socket), this option will be
ignored and B<mytop> will use the hostname and port number instead.

Default: none.

=item B<--header> or B<--noheader>

Specify if you want the header to display or not. You can toggle this
with the B<h> key while B<mytop> is running.

Default: header.

=item B<--color> or B<--nocolor>

Specify if you want a color display. This has no effect if you don't
have color support available.

Default: If you have color support, B<mytop> will try color unless you
tell it not to.

=item B<-i> or B<--idle> or B<--noi> or B<--noidle>

Specify if you want idle (sleeping) threads to appear in the list. If
sleeping threads are omitted, the default sorting order is reversed so
that the longest running queries appear at the top of the list.

Default: idle.

=item B<--prompt> or B<--noprompt>

Specify if you want to be prompted to type in your database password.
This provides a little bit more security since it not only prevents
the password from viewable in a process list, but also doesn't require
the password to be stored in plain text in your C<~/.mytop> config file.
You will B<only> be prompted if a password has not been specified in
your config file or through another command line option.

Default: noprompt.

=item B<--resolve>

If you have skip-resolve set on MariaDB (to keep it from doing a reverse
DNS lookup on each inbound connection), mytop can replace IP addresses
with hostnames but toggling this option.

Default: noresolve

=item B<--long> or B<--nolong>

For large numbers print all digits (e.g. 10.000) instead of using a more
compact approximation (e.g. 10.0k).

Default: nolong.

=item B<-m> or B<--mode> I<mode>

Specify initial mode B<qps>(queries/second), B<top>(overview),
B<cmd>(command summary), B<innodb>(InnoDB status) or B<status>().

Default: B<top>

=item B<--sort> or B<--nosort>

Reverse sort order from ascending to descending using Idle time.

Default: nosort.

=back

Command-line arguments will always take precedence over config file
options. That happens because the config file is read I<BEFORE> the
command-line arguments are applied.

=head2 Config File

Instead of always using bulky command-line parameters, you can also
use a config files for the default value of your options.

mytop will first read the [client] and [mytop] sections from your
my.cnf files. After that it will read the (C<~/.mytop>) file from your
home directory (if present). These are read I<before> any of your
command-line arguments are processed, so your command-line arguments
will override directives in the config file.

Here is a sample config file C<~/.mytop> which implements the defaults
described above.

user=root
  pass=
  host=localhost
  db=test
  delay=5
  port=3306
  slow=10
  socket=
  batchmode=0
  header=1
  color=1
  idle=1
  long=120

Using a config file will help to ensure that your database password
isn't visible to users on the command-line. Just make sure that the
permissions on C<~/.mytop> are such that others cannot read it (unless
you want them to, of course).

You may have white space on either side of the C<=> in lines of the
config file.

=head2 Shortcut Keys

The following keys perform various actions while B<mytop> is
running. Those which have not been implemented are listed as
such. They are included to give the user idea of what is coming.

=over

=item B<?>

Display help.

=item B<c>

Show "command counters" based on the Com_* values in SHOW STATUS.
This is a new feature.  Feedback welcome.

=item B<C>

Turn display color on and off. Default is on.

=item B<d>

Show only threads connected to a particular database.

=item B<f>

Given a thread id, display the entire query that thread was (and still
may be) running.

=item B<F>

Disable all filtering (host, user, and db).

=item B<h>

Only show queries from a particular host.

=item B<H>

Toggle the header display. You can also specify either C<header=0> or
C<header=1> in your config file to set the default behavior.

=item B<i>

Toggle the display of idle (sleeping) threads. If sleeping threads are
filtered, the default sorting order is reversed so that the longest
running queries appear at the top of the list.

=item B<I>

Switch to InnoDB Status mode.  The output of "SHOW ENGINE INNODB STATUS" will
be displayed every cycle.  In a future version, this may actually
summarize that data rather than producing raw output.

=item B<k>

Kill a thread.

=item B<m>

Toggle modes. Currently this switches from `top' mode to `qps'
(Queries Per Second Mode). In this mode, mytop will write out one
integer per second. The number written reflects the number of queries
executed by the server in the previous one second interval.

More modes may be added in the future.

=item B<o>

Reverse the default sort order.

=item B<p>

Pause display.

=item B<q>

Quit B<mytop>

=item B<r>

Reset the server's status counters via a I<FLUSH STATUS> command.

=item B<R>

Togle IP reverse lookup. Default is on.

=item B<s>

Change the sleep time (number of seconds between display refreshes).

=item B<S>

Set the number of seconds a query will need to run before it is
considered old and will be highlighted.

=item B<u>

Show only threads owned by a giver user.

=back

The B<s> key has a command-line counterpart: B<-s>.

The B<h> key has two command-line counterparts: B<--header> and
B<--noheader>.

=head1 BUGS

This is more of a BUGS + WishList.

Some performance information is not available when talking to a
version 3.22.x MySQL server. Additional information (about threads
mostly) was added to the output of I<SHOW STATUS> in MySQL 3.23.x and
B<mytop> makes use of it. If the information is not available, you
will simply see zeros where the real numbers should be.

Simply running this program will increase your overall counters (such
as the number of queries run). But you may or may not view that as a
bug.

B<mytop> consumes too much CPU time when running (verified on older
versions of Linux and FreeBSD). It's likely a problem related to
Term::ReadKey. I haven't had time to investigate yet, so B<mytop> now
automatically lowers its priority when you run it. You may also think
about running B<mytop> on another workstation instead of your database
server. However, C<mytop> on Solaris does B<not> have this problem.
Newer versions of Linux and FreeBSD seem to have fixed this.

You can't specify the maximum number of threads to list. If you have
many threads and a tall xterm, B<mytop> will always try to display as
many as it can fit.

The size of most of the columns in the display has a small maximum
width. If you have fairly long database/user/host names the display
may appear odd. I have no good idea as to how best to deal with that
yet. Suggestions are welcome.

It'd be nice if you could just add B<mytop> configuration directives
in your C<my.cnf> file instead of having a separate config file.

You should be able to specify the columns you'd like to see in the
display and the order in which they appear. If you only have one
username that connects to your database, it's probably not worth
having the User column appear, for example.

=head1 AUTHOR

mytop was developed and is maintained by Jeremy D. Zawodny
(Jeremy@Zawodny.com).

If you wish to e-mail me regarding this software, B<PLEASE> subscribe
to the B<mytop> mailing list.  See the B<mytop> homepage for details.

=head1 DISCLAIMER

While I use this software in my job at Yahoo!, I am solely responsible
for it. Yahoo! does not necessarily support this software in any
way. It is merely a personal idea which happened to be very useful in
my job.

=head1 SEE ALSO

Please check the MariaDB manual if you're not sure where some of the
output of B<mytop> is coming from.

=head1 COPYRIGHT

=head1 CREDITS

Fix a bug. Add a feature. See your name here!

Many thanks go to these fine folks:

=over

=item Jean Weisbuch (jean@phpnet.org)

Added --fullqueries and --sort options, dynamic user and database columns
width, reading of .my.cnf, state/progress column that can be disabled
dynamically (when available) and various small fixes.

=item Michael "Monty" Widenius <monty@askmonty.org>

Fixed a couple of minor bugs that gave warnings on startup.
Added support for MariaDB (show MariaDB at top and % done).
Cut long server version names to display width.
Made 'State' length dynamic.

=item Mark Grennan (mark@grennan.com) www.linuxfangoy.com

Added updates for MySQL 5.x. Added 'S' (slow) highlighting.
Added 'C' to turn on and off Color. Added 'l' command to change
color for long running queries. Fixed a few documentation issues.
Monitors Slave status. Added color to Queue hit ratio.
Added number of rows sorted per second.
Created release 1.7.

=item Sami Ahlroos (sami@avis-net.de)

Suggested the idle/noidle stuff.

=item Jan Willamowius (jan@janhh.shnet.org)

Minor bug report. Documentation fixes.

=item Alex Osipov (alex@acky.net)

Long command-line options, Unix socket support.

=item Stephane Enten (tuf@grolier.fr)

Suggested batch mode.

=item Richard Ellerbrock (richarde@eskom.co.za)

Bug reports and usability suggestions.

=item William R. Mattil (wrm@newton.irngtx.tel.gte.com)

Bug report about empty passwords not working.

=item Benjamin Pflugmann (philemon@spin.de)

Suggested -P command-line flag as well as other changes.

=item Justin Mecham <justin@aspect.net>

Suggested setting $0 to `mytop'.

=item Thorsten Kunz <thorsten.kunz@de.tiscali.com>

Provided a fix for cases when we try remove the domain name from the
display even if it is actually an IP address.

=item Sasha Pachev <sasha@mysql.com>

Provided the idea of real-time queries per second in the main display.

=item Paul DuBois <paul@snake.net>

Pointed out some option-handling bugs.

=item Mike Wexler <mwexler@tias.com>

Suggested that we don't mangle (normalize) whitespace in query info by
default.

=item Mark Zweifel <markez@yahoo-inc.com>

Make the --idle command-line argument negatable.

=item Axel Schwenke <schwenke@jobpilot.de>

Noticed the incorrect formula for query cache hit percentages in
version 1.2.

=item Steven Roussey <sroussey@network54.com>

Supplied a patch to help filter binary junk in queries so that
terminals don't freak out.

=item Jon R. Luini <falcon@chime.com>

Supplied a patch that formed the basis for C<--prompt> support.
Sean Leach <sleach@wiggum.com> submitted a similar patch.

=item Yogish Baliga <baliga@yahoo-inc.com>

Supplied a patch that formed the basis for C<--resolve> support.

=item Per Andreas Buer <perbu@linpro.no>

Supplied an excellent patch to tidy up the top display.  This includes
showing most values in short form, such as 10k rather than 10000.

=back

See the Changes file on the B<mytop> distribution page for more
details on what has changed.

=head1 LICENSE

B<mytop> is licensed under the GNU General Public License version
2. For the full license information, please visit
http://www.gnu.org/copyleft/gpl.html

=cut

__END__

cmd: