Gecko [ goons4good.org ]

Name	Size	Permission	Date
GET	14.71 KB	-rwxr-xr-x	2014-06-09 21:19
Magick-config	1.23 KB	-rwxr-xr-x	2023-10-25 03:19
MagickCore-config	1.24 KB	-rwxr-xr-x	2023-10-25 03:19
MagickWand-config	1.25 KB	-rwxr-xr-x	2023-10-25 03:19
Mail	383.67 KB	-rwxr-xr-x	2018-04-11 03:07
Wand-config	1.23 KB	-rwxr-xr-x	2023-10-25 03:19
[	40.52 KB	-rwxr-xr-x	2020-11-16 17:24
a2p	105.33 KB	-rwxr-xr-x	2026-01-13 09:58
aclocal	35.87 KB	-rwxr-xr-x	2014-06-10 04:03
aclocal-1.13	35.87 KB	-rwxr-xr-x	2014-06-10 04:03
addr2line	28.42 KB	-rwxr-xr-x	2025-03-10 15:40
agentxtrap	19.16 KB	-rwxr-xr-x	2024-01-25 10:55
animate	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
ar	61.21 KB	-rwxr-xr-x	2025-03-10 15:40
arch	32.3 KB	-rwxr-xr-x	2020-11-16 17:24
as	377.28 KB	-rwxr-xr-x	2025-03-10 15:40
aspell	163.35 KB	-rwxr-xr-x	2014-06-09 19:04
at	1.25 KB	-rwxr-xr-x	2022-05-18 11:54
atq	1.25 KB	-rwxr-xr-x	2022-05-18 11:54
atrm	1.25 KB	-rwxr-xr-x	2022-05-18 11:54
autoconf	14.42 KB	-rwxr-xr-x	2014-06-10 01:41
autoheader	8.33 KB	-rwxr-xr-x	2014-06-10 01:41
autom4te	31.43 KB	-rwxr-xr-x	2014-06-10 01:41
automake	246.44 KB	-rwxr-xr-x	2014-06-10 04:03
automake-1.13	246.44 KB	-rwxr-xr-x	2014-06-10 04:03
autoreconf	20.57 KB	-rwxr-xr-x	2014-06-10 01:41
autoscan	16.72 KB	-rwxr-xr-x	2014-06-10 01:41
autoupdate	33.08 KB	-rwxr-xr-x	2014-06-10 01:41
awk	418.54 KB	-rwxr-xr-x	2017-06-28 17:52
base64	36.48 KB	-rwxr-xr-x	2020-11-16 17:24
basename	28.35 KB	-rwxr-xr-x	2020-11-16 17:24
bash	941.93 KB	-rwxr-xr-x	2021-11-24 02:06
bashbug-64	6.8 KB	-rwxr-xr-x	2021-11-24 02:06
batch	137 B	-rwxr-xr-x	2022-05-18 11:54
bison	393.34 KB	-rwxr-xr-x	2018-10-30 16:34
bunzip2	31.89 KB	-rwxr-xr-x	2015-11-20 00:04
bzcat	31.89 KB	-rwxr-xr-x	2015-11-20 00:04
bzcmp	2.08 KB	-rwxr-xr-x	2015-11-20 00:04
bzdiff	2.08 KB	-rwxr-xr-x	2015-11-20 00:04
bzgrep	1.64 KB	-rwxr-xr-x	2015-11-20 00:04
bzip2	31.89 KB	-rwxr-xr-x	2015-11-20 00:04
bzip2recover	15.24 KB	-rwxr-xr-x	2015-11-20 00:04
bzless	1.23 KB	-rwxr-xr-x	2015-11-20 00:04
bzmore	1.23 KB	-rwxr-xr-x	2015-11-20 00:04
c++	754.59 KB	-rwxr-xr-x	2025-06-09 13:05
c++filt	27.92 KB	-rwxr-xr-x	2025-03-10 15:40
c2ph	35.75 KB	-rwxr-xr-x	2026-01-13 09:57
c89	224 B	-rwxr-xr-x	2025-06-09 13:05
c99	215 B	-rwxr-xr-x	2025-06-09 13:05
cagefs_enter.proxied	1.27 KB	-rwxr-xr-x	2026-01-20 08:58
cal	36.8 KB	-rwxr-xr-x	2021-02-02 11:31
captoinfo	64.26 KB	-rwxr-xr-x	2017-09-06 18:08
cat	52.81 KB	-rwxr-xr-x	2020-11-16 17:24
catchsegv	3.26 KB	-rwxr-xr-x	2025-09-18 05:28
cc	750.58 KB	-rwxr-xr-x	2025-06-09 13:05
chcon	61.46 KB	-rwxr-xr-x	2020-11-16 17:24
chgrp	61.32 KB	-rwxr-xr-x	2020-11-16 17:24
chmod	57.21 KB	-rwxr-xr-x	2020-11-16 17:24
chown	61.36 KB	-rwxr-xr-x	2020-11-16 17:24
chrt	32.17 KB	-rwxr-xr-x	2021-02-02 11:31
cksum	32.38 KB	-rwxr-xr-x	2020-11-16 17:24
cldetect	10.34 KB	-rwxr-xr-x	2025-11-13 04:52
clear	7.02 KB	-rwxr-xr-x	2017-09-06 18:08
cloudlinux-awp-user	1.78 KB	-rwxr-xr-x	2025-12-31 06:20
clusterdb	53.46 KB	-rwxr-xr-x	2021-08-11 12:13
clwpos-user	1.78 KB	-rwxr-xr-x	2025-12-31 06:20
cmp	44.14 KB	-rwxr-xr-x	2023-03-07 09:48
col	23.88 KB	-rwxr-xr-x	2021-02-02 11:31
colcrt	11.29 KB	-rwxr-xr-x	2021-02-02 11:31
colrm	23.77 KB	-rwxr-xr-x	2021-02-02 11:31
column	27.99 KB	-rwxr-xr-x	2021-02-02 11:31
comm	36.55 KB	-rwxr-xr-x	2020-11-16 17:24
compare	11.09 KB	-rwxr-xr-x	2023-10-25 03:23
composite	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
conjure	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
convert	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
cp	151.55 KB	-rwxr-xr-x	2020-11-16 17:24
cpan	4.97 KB	-rwxr-xr-x	2026-01-13 09:44
cpp	754.58 KB	-rwxr-xr-x	2025-06-09 13:05
createdb	53.43 KB	-rwxr-xr-x	2021-08-11 12:13
createlang	85.81 KB	-rwxr-xr-x	2021-08-11 12:13
createuser	57.9 KB	-rwxr-xr-x	2021-08-11 12:13
crontab	1.49 KB	-rwxr-xr-x	2023-04-26 02:58
crontab.cagefs	49.12 KB	-rwxr-xr-x	2026-02-10 03:53
csplit	48.82 KB	-rwxr-xr-x	2020-11-16 17:24
curl	152.99 KB	-rwxr-xr-x	2023-12-13 11:08
cut	40.61 KB	-rwxr-xr-x	2020-11-16 17:24
date	60.74 KB	-rwxr-xr-x	2020-11-16 17:24
dbiprof	6.15 KB	-rwxr-xr-x	2014-06-09 21:06
dbiproxy	5.35 KB	-rwxr-xr-x	2014-06-09 21:06
dd	73.14 KB	-rwxr-xr-x	2020-11-16 17:24
delv	39.98 KB	-rwxr-xr-x	2025-03-04 05:24
df	102.55 KB	-rwxr-xr-x	2020-11-16 17:24
diff	195.46 KB	-rwxr-xr-x	2023-03-07 09:48
diff3	60.65 KB	-rwxr-xr-x	2023-03-07 09:48
dig	146.96 KB	-rwxr-xr-x	2025-03-04 05:24
dir	114.85 KB	-rwxr-xr-x	2020-11-16 17:24
dircolors	40.44 KB	-rwxr-xr-x	2020-11-16 17:24
dirname	28.31 KB	-rwxr-xr-x	2020-11-16 17:24
display	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
dltest	11.05 KB	-rwxr-xr-x	2019-08-08 23:12
dropdb	49.21 KB	-rwxr-xr-x	2021-08-11 12:13
droplang	85.83 KB	-rwxr-xr-x	2021-08-11 12:13
dropuser	49.17 KB	-rwxr-xr-x	2021-08-11 12:13
du	110.34 KB	-rwxr-xr-x	2020-11-16 17:24
dvipdf	1 KB	-rwxr-xr-x	2020-09-30 12:20
echo	32.31 KB	-rwxr-xr-x	2020-11-16 17:24
egrep	290 B	-rwxr-xr-x	2017-08-03 02:58
enchant	15.29 KB	-rwxr-xr-x	2014-06-09 14:46
enchant-lsmod	11.13 KB	-rwxr-xr-x	2014-06-09 14:46
env	28.33 KB	-rwxr-xr-x	2020-11-16 17:24
eps2eps	639 B	-rwxr-xr-x	2020-09-30 12:20
eqn	144.41 KB	-rwxr-xr-x	2014-06-09 16:17
ex	906.45 KB	-rwxr-xr-x	2020-12-15 11:44
expand	32.48 KB	-rwxr-xr-x	2020-11-16 17:24
expr	36.53 KB	-rwxr-xr-x	2020-11-16 17:24
factor	93.29 KB	-rwxr-xr-x	2020-11-16 17:24
false	28.25 KB	-rwxr-xr-x	2020-11-16 17:24
fc-cache	132 B	-rwxr-xr-x	2018-10-30 11:13
fc-cache-64	15.45 KB	-rwxr-xr-x	2018-10-30 14:34
fc-cat	15.4 KB	-rwxr-xr-x	2018-10-30 14:34
fc-conflist	11.2 KB	-rwxr-xr-x	2018-10-30 14:34
fc-list	11.26 KB	-rwxr-xr-x	2018-10-30 14:34
fc-match	11.32 KB	-rwxr-xr-x	2018-10-30 14:34
fc-pattern	11.26 KB	-rwxr-xr-x	2018-10-30 14:34
fc-query	11.23 KB	-rwxr-xr-x	2018-10-30 14:34
fc-scan	11.27 KB	-rwxr-xr-x	2018-10-30 14:34
fc-validate	11.27 KB	-rwxr-xr-x	2018-10-30 14:34
fgrep	290 B	-rwxr-xr-x	2017-08-03 02:58
file	19.3 KB	-rwxr-xr-x	2020-09-30 12:08
find	194.63 KB	-rwxr-xr-x	2018-10-30 12:42
find2perl	23.06 KB	-rwxr-xr-x	2026-01-13 09:57
flex	318.07 KB	-rwxr-xr-x	2018-10-30 16:30
flex++	318.07 KB	-rwxr-xr-x	2018-10-30 16:30
flock	23.88 KB	-rwxr-xr-x	2021-02-02 11:31
fmt	36.48 KB	-rwxr-xr-x	2020-11-16 17:24
fold	36.46 KB	-rwxr-xr-x	2020-11-16 17:24
free	19.33 KB	-rwxr-xr-x	2020-09-30 13:21
freetype-config	4.39 KB	-rwxr-xr-x	2020-11-06 09:11
funzip	31.38 KB	-rwxr-xr-x	2022-01-12 02:36
g++	754.59 KB	-rwxr-xr-x	2025-06-09 13:05
gawk	418.54 KB	-rwxr-xr-x	2017-06-28 17:52
gcc	750.58 KB	-rwxr-xr-x	2025-06-09 13:05
gcc-ar	26.45 KB	-rwxr-xr-x	2025-06-09 13:05
gcc-nm	26.45 KB	-rwxr-xr-x	2025-06-09 13:05
gcc-ranlib	26.45 KB	-rwxr-xr-x	2025-06-09 13:05
gcov	311.45 KB	-rwxr-xr-x	2025-06-09 13:05
gem	542 B	-rwxr-xr-x	2022-04-05 12:28
gencat	22.11 KB	-rwxr-xr-x	2025-09-18 06:21
geoiplookup	15.28 KB	-rwxr-xr-x	2019-08-08 19:34
geoiplookup6	11.16 KB	-rwxr-xr-x	2019-08-08 19:34
geqn	144.41 KB	-rwxr-xr-x	2014-06-09 16:17
getconf	22.02 KB	-rwxr-xr-x	2025-09-18 06:21
getent	26.39 KB	-rwxr-xr-x	2025-09-18 06:21
getopt	15.38 KB	-rwxr-xr-x	2021-02-02 11:31
ghostscript	10.97 KB	-rwxr-xr-x	2020-09-30 12:21
git	3.52 MB	-rwxr-xr-x	2023-01-25 18:07
git-receive-pack	3.52 MB	-rwxr-xr-x	2023-01-25 18:07
git-shell	2.03 MB	-rwxr-xr-x	2023-01-25 18:07
git-upload-archive	3.52 MB	-rwxr-xr-x	2023-01-25 18:07
git-upload-pack	3.52 MB	-rwxr-xr-x	2023-01-25 18:07
gm	6.98 KB	-rwxr-xr-x	2022-03-28 11:50
gmake	178.47 KB	-rwxr-xr-x	2019-08-08 20:46
gneqn	271 B	-rwxr-xr-x	2014-06-09 16:17
gnroff	3.31 KB	-rwxr-xr-x	2014-06-09 16:17
gpg	732.3 KB	-rwxr-xr-x	2026-01-23 03:40
gpg-agent	289.64 KB	-rwxr-xr-x	2026-01-23 03:40
gpg-error	23.18 KB	-rwxr-xr-x	2014-06-10 04:46
gpg-zip	3.23 KB	-rwxr-xr-x	2026-01-23 03:40
gpg2	732.3 KB	-rwxr-xr-x	2026-01-23 03:40
gpgsplit	48.8 KB	-rwxr-xr-x	2026-01-23 03:40
gpgv	345.35 KB	-rwxr-xr-x	2026-01-23 03:40
gpgv2	345.35 KB	-rwxr-xr-x	2026-01-23 03:40
gpic	180.41 KB	-rwxr-xr-x	2014-06-09 16:17
gprof	98.41 KB	-rwxr-xr-x	2025-03-10 15:40
grep	155.3 KB	-rwxr-xr-x	2017-08-03 02:58
groff	81.63 KB	-rwxr-xr-x	2014-06-09 16:17
grops	140.85 KB	-rwxr-xr-x	2014-06-09 16:17
grotty	98.59 KB	-rwxr-xr-x	2014-06-09 16:17
groups	32.41 KB	-rwxr-xr-x	2020-11-16 17:24
gs	10.97 KB	-rwxr-xr-x	2020-09-30 12:21
gsbj	350 B	-rwxr-xr-x	2020-09-30 12:20
gsdj	352 B	-rwxr-xr-x	2020-09-30 12:20
gsdj500	352 B	-rwxr-xr-x	2020-09-30 12:20
gslj	353 B	-rwxr-xr-x	2020-09-30 12:20
gslp	350 B	-rwxr-xr-x	2020-09-30 12:20
gsnd	277 B	-rwxr-xr-x	2020-09-30 12:20
gsoelim	32.59 KB	-rwxr-xr-x	2014-06-09 16:17
gtar	338.02 KB	-rwxr-xr-x	2018-10-30 16:24
gtbl	115.96 KB	-rwxr-xr-x	2014-06-09 16:17
gtroff	512.96 KB	-rwxr-xr-x	2014-06-09 16:17
gunzip	2.2 KB	-rwxr-xr-x	2022-05-12 02:56
gzexe	5.79 KB	-rwxr-xr-x	2022-05-12 02:56
gzip	98.43 KB	-rwxr-xr-x	2022-05-12 02:56
h2ph	27.65 KB	-rwxr-xr-x	2026-01-13 09:57
h2xs	59.15 KB	-rwxr-xr-x	2026-01-13 09:57
head	40.51 KB	-rwxr-xr-x	2020-11-16 17:24
hexdump	32.02 KB	-rwxr-xr-x	2021-02-02 11:31
host	127.02 KB	-rwxr-xr-x	2025-03-04 05:24
hostid	28.32 KB	-rwxr-xr-x	2020-11-16 17:24
hostname	15.41 KB	-rwxr-xr-x	2019-10-18 12:02
hunspell	53.11 KB	-rwxr-xr-x	2020-09-30 12:35
iconv	58.14 KB	-rwxr-xr-x	2025-09-18 06:21
icu-config	172 B	-rwxr-xr-x	2019-11-27 11:04
icu-config-64	21.49 KB	-rwxr-xr-x	2020-03-20 20:49
icuinfo	15.6 KB	-rwxr-xr-x	2020-03-20 20:49
id	36.52 KB	-rwxr-xr-x	2020-11-16 17:24
identify	7.06 KB	-rwxr-xr-x	2023-10-25 03:23
idn	32.45 KB	-rwxr-xr-x	2015-11-21 12:00
ifnames	4.03 KB	-rwxr-xr-x	2014-06-10 01:41
igawk	3.11 KB	-rwxr-xr-x	2017-06-28 17:52
import	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
infocmp	56.07 KB	-rwxr-xr-x	2017-09-06 18:08
infotocap	64.26 KB	-rwxr-xr-x	2017-09-06 18:08
install	139.59 KB	-rwxr-xr-x	2020-11-16 17:24
instmodsh	4.15 KB	-rwxr-xr-x	2014-06-09 21:58
ionice	23.86 KB	-rwxr-xr-x	2021-02-02 11:31
ipcrm	27.85 KB	-rwxr-xr-x	2021-02-02 11:31
ipcs	48.37 KB	-rwxr-xr-x	2021-02-02 11:31
isosize	23.83 KB	-rwxr-xr-x	2021-02-02 11:31
ispell	988 B	-rwxr-xr-x	2014-06-09 19:04
isql	31.69 KB	-rwxr-xr-x	2019-08-08 23:12
iusql	23.61 KB	-rwxr-xr-x	2019-08-08 23:12
join	48.75 KB	-rwxr-xr-x	2020-11-16 17:24
kill	32.82 KB	-rwxr-xr-x	2021-02-02 11:31
ld	982.59 KB	-rwxr-xr-x	2025-03-10 15:40
ld.bfd	982.59 KB	-rwxr-xr-x	2025-03-10 15:40
ldd	5.18 KB	-rwxr-xr-x	2025-09-18 05:29
less	154.57 KB	-rwxr-xr-x	2024-06-11 10:35
lessecho	11.13 KB	-rwxr-xr-x	2024-06-11 10:35
lesskey	16.67 KB	-rwxr-xr-x	2024-06-11 10:35
lesspipe.sh	2.24 KB	-rwxr-xr-x	2022-01-13 13:00
lex	318.07 KB	-rwxr-xr-x	2018-10-30 16:30
libnetcfg	15.36 KB	-rwxr-xr-x	2026-01-13 09:57
libtool	314.04 KB	-rwxr-xr-x	2017-04-12 14:57
libtoolize	76.8 KB	-rwxr-xr-x	2017-04-12 14:57
link	28.3 KB	-rwxr-xr-x	2020-11-16 17:24
ln	57.22 KB	-rwxr-xr-x	2020-11-16 17:24
locale	37.11 KB	-rwxr-xr-x	2025-09-18 06:21
localedef	318.31 KB	-rwxr-xr-x	2025-09-18 06:21
logger	28.62 KB	-rwxr-xr-x	2021-02-02 11:31
login	36.38 KB	-rwxr-xr-x	2021-02-02 11:31
logname	28.31 KB	-rwxr-xr-x	2020-11-16 17:24
look	11.27 KB	-rwxr-xr-x	2021-02-02 11:31
lprsetup.sh	5.34 KB	-rwxr-xr-x	2020-09-30 12:20
ls	114.85 KB	-rwxr-xr-x	2020-11-16 17:24
lynx	1.43 MB	-rwxr-xr-x	2014-06-10 00:28
m4	151.17 KB	-rwxr-xr-x	2015-11-20 02:27
mail	383.67 KB	-rwxr-xr-x	2018-04-11 03:07
mailx	383.67 KB	-rwxr-xr-x	2018-04-11 03:07
make	178.47 KB	-rwxr-xr-x	2019-08-08 20:46
mc	1.09 MB	-rwxr-xr-x	2016-11-05 19:18
mcdiff	1.09 MB	-rwxr-xr-x	2016-11-05 19:18
mcedit	1.09 MB	-rwxr-xr-x	2016-11-05 19:18
mcookie	15.44 KB	-rwxr-xr-x	2021-02-02 11:31
mcview	1.09 MB	-rwxr-xr-x	2016-11-05 19:18
md5sum	40.53 KB	-rwxr-xr-x	2020-11-16 17:24
mdig	44.2 KB	-rwxr-xr-x	2025-03-04 05:24
mesg	10.98 KB	-rwxr-xr-x	2014-06-09 19:16
mkdir	77.9 KB	-rwxr-xr-x	2020-11-16 17:24
mkfifo	61.59 KB	-rwxr-xr-x	2020-11-16 17:24
mknod	65.61 KB	-rwxr-xr-x	2020-11-16 17:24
mktemp	40.66 KB	-rwxr-xr-x	2020-11-16 17:24
mogrify	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
montage	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
more	40.15 KB	-rwxr-xr-x	2021-02-02 11:31
msql2mysql	1.41 KB	-rwxr-xr-x	2021-08-09 09:53
mv	127.3 KB	-rwxr-xr-x	2020-11-16 17:24
my_print_defaults	3.42 MB	-rwxr-xr-x	2021-08-09 10:19
mysql	4.21 MB	-rwxr-xr-x	2021-08-09 10:19
mysql_config	4.6 KB	-rwxr-xr-x	2021-08-09 10:07
mysql_find_rows	3.21 KB	-rwxr-xr-x	2021-08-09 09:53
mysql_waitpid	3.42 MB	-rwxr-xr-x	2021-08-09 10:19
mysqlaccess	109.33 KB	-rwxr-xr-x	2021-08-09 09:53
mysqladmin	3.74 MB	-rwxr-xr-x	2021-08-09 10:19
mysqlbinlog	3.98 MB	-rwxr-xr-x	2021-08-09 10:19
mysqlcheck	3.74 MB	-rwxr-xr-x	2021-08-09 10:19
mysqldump	3.82 MB	-rwxr-xr-x	2021-08-09 10:19
mysqlimport	3.73 MB	-rwxr-xr-x	2021-08-09 10:19
mysqlshow	3.73 MB	-rwxr-xr-x	2021-08-09 10:19
mytop	61.06 KB	-rwxr-xr-x	2021-08-09 09:53
namei	27.95 KB	-rwxr-xr-x	2021-02-02 11:31
nano	201.08 KB	-rwxr-xr-x	2014-06-10 00:47
neqn	271 B	-rwxr-xr-x	2014-06-09 16:17
net-snmp-create-v3-user	2.98 KB	-rwxr-xr-x	2024-01-25 10:54
nice	32.32 KB	-rwxr-xr-x	2020-11-16 17:24
nl	40.6 KB	-rwxr-xr-x	2020-11-16 17:24
nm	45.43 KB	-rwxr-xr-x	2025-03-10 15:40
nohup	32.42 KB	-rwxr-xr-x	2020-11-16 17:24
nproc	32.37 KB	-rwxr-xr-x	2020-11-16 17:24
nroff	3.31 KB	-rwxr-xr-x	2014-06-09 16:17
nslookup	130.93 KB	-rwxr-xr-x	2025-03-04 05:24
nsupdate	65.2 KB	-rwxr-xr-x	2025-03-04 05:24
numfmt	64.71 KB	-rwxr-xr-x	2020-11-16 17:24
objcopy	227.34 KB	-rwxr-xr-x	2025-03-10 15:40
objdump	357.75 KB	-rwxr-xr-x	2025-03-10 15:40
od	64.81 KB	-rwxr-xr-x	2020-11-16 17:24
odbc_config	11.04 KB	-rwxr-xr-x	2019-08-08 23:12
odbcinst	27.69 KB	-rwxr-xr-x	2019-08-08 23:12
openssl	542.27 KB	-rwxr-xr-x	2025-10-08 09:22
pango-list	11.1 KB	-rwxr-xr-x	2019-09-13 14:03
pango-querymodules-64	28.26 KB	-rwxr-xr-x	2020-11-16 17:24
pango-view	49.47 KB	-rwxr-xr-x	2019-09-13 14:03
passwd	1.25 KB	-rwxr-xr-x	2020-03-31 23:57
paste	32.34 KB	-rwxr-xr-x	2020-11-16 17:24
patch	147 KB	-rwxr-xr-x	2019-10-22 19:59
pathchk	32.31 KB	-rwxr-xr-x	2020-11-16 17:24
pdf2dsc	698 B	-rwxr-xr-x	2020-09-30 12:20
pdf2ps	909 B	-rwxr-xr-x	2020-09-30 12:20
perl	11.14 KB	-rwxr-xr-x	2026-01-13 09:58
perl5.16.3	11.14 KB	-rwxr-xr-x	2026-01-13 09:58
perlbug	43.61 KB	-rwxr-xr-x	2026-01-13 09:57
perldoc	203 B	-rwxr-xr-x	2014-06-10 04:17
perlivp	10.52 KB	-rwxr-xr-x	2026-01-13 09:57
perlml	5.98 KB	-rwxr-xr-x	2022-08-10 16:55
perlthanks	43.61 KB	-rwxr-xr-x	2026-01-13 09:57
pf2afm	498 B	-rwxr-xr-x	2020-09-30 12:20
pfbtopfa	516 B	-rwxr-xr-x	2020-09-30 12:20
pg_dump	379.01 KB	-rwxr-xr-x	2021-08-11 12:13
pg_dumpall	86.14 KB	-rwxr-xr-x	2021-08-11 12:13
pg_restore	151.68 KB	-rwxr-xr-x	2021-08-11 12:13
pgawk	418.63 KB	-rwxr-xr-x	2017-06-28 17:52
pgrep	27.67 KB	-rwxr-xr-x	2020-09-30 13:21
php	937 B	-rwxr-xr-x	2025-04-03 06:48
php_inherit	2.67 KB	-rwx------	2026-01-13 09:53
pic	180.41 KB	-rwxr-xr-x	2014-06-09 16:17
piconv	7.99 KB	-rwxr-xr-x	2014-06-09 22:49
pinentry	2.54 KB	-rwxr-xr-x	2016-11-04 14:02
pinentry-curses	49.19 KB	-rwxr-xr-x	2016-11-05 11:49
ping	1.25 KB	-rwxr-xr-x	2017-08-04 04:01
pinky	36.57 KB	-rwxr-xr-x	2020-11-16 17:24
pkg-config	44.38 KB	-rwxr-xr-x	2014-06-09 18:05
pkill	27.67 KB	-rwxr-xr-x	2020-09-30 13:21
pl2pm	4.42 KB	-rwxr-xr-x	2026-01-13 09:57
pmap	27.61 KB	-rwxr-xr-x	2020-09-30 13:21
pod2html	4 KB	-rwxr-xr-x	2026-01-13 09:57
pod2latex	10.1 KB	-rwxr-xr-x	2014-06-10 03:53
pod2man	13.26 KB	-rwxr-xr-x	2014-06-09 15:56
pod2text	10.75 KB	-rwxr-xr-x	2014-06-09 15:56
pod2usage	3.67 KB	-rwxr-xr-x	2014-06-10 04:56
podchecker	3.7 KB	-rwxr-xr-x	2014-06-09 16:28
podselect	2.55 KB	-rwxr-xr-x	2014-06-10 00:04
post-grohtml	187.55 KB	-rwxr-xr-x	2014-06-09 16:17
pphs	404 B	-rwxr-xr-x	2020-09-30 12:20
pr	65.11 KB	-rwxr-xr-x	2020-11-16 17:24
pre-grohtml	86.24 KB	-rwxr-xr-x	2014-06-09 16:17
precat	5.52 KB	-rwxr-xr-x	2014-06-09 19:04
preunzip	5.52 KB	-rwxr-xr-x	2014-06-09 19:04
prezip	5.52 KB	-rwxr-xr-x	2014-06-09 19:04
prezip-bin	11.05 KB	-rwxr-xr-x	2014-06-09 19:04
printafm	395 B	-rwxr-xr-x	2020-09-30 12:20
printenv	28.28 KB	-rwxr-xr-x	2020-11-16 17:24
printf	48.61 KB	-rwxr-xr-x	2020-11-16 17:24
prove	13.13 KB	-rwxr-xr-x	2015-08-12 10:22
ps	97.77 KB	-rwxr-xr-x	2020-09-30 13:21
ps2ascii	631 B	-rwxr-xr-x	2020-09-30 12:20
ps2epsi	2.69 KB	-rwxr-xr-x	2020-09-30 12:20
ps2pdf	272 B	-rwxr-xr-x	2020-09-30 12:20
ps2pdf12	215 B	-rwxr-xr-x	2020-09-30 12:20
ps2pdf13	215 B	-rwxr-xr-x	2020-09-30 12:20
ps2pdf14	215 B	-rwxr-xr-x	2020-09-30 12:20
ps2pdfwr	1.07 KB	-rwxr-xr-x	2020-09-30 12:20
ps2ps	647 B	-rwxr-xr-x	2020-09-30 12:20
ps2ps2	669 B	-rwxr-xr-x	2020-09-30 12:20
psed	52.08 KB	-rwxr-xr-x	2026-01-13 09:57
psql	527.8 KB	-rwxr-xr-x	2021-08-11 12:13
pstruct	35.75 KB	-rwxr-xr-x	2026-01-13 09:57
ptx	65.08 KB	-rwxr-xr-x	2020-11-16 17:24
pwd	32.45 KB	-rwxr-xr-x	2020-11-16 17:24
pwdx	11.27 KB	-rwxr-xr-x	2020-09-30 13:21
pydoc	78 B	-rwxr-xr-x	2025-11-12 09:24
python	6.98 KB	-rwxr-xr-x	2025-11-12 09:25
python2	6.98 KB	-rwxr-xr-x	2025-11-12 09:25
python2.7	6.98 KB	-rwxr-xr-x	2025-11-12 09:25
ranlib	61.21 KB	-rwxr-xr-x	2025-03-10 15:40
raw	15.27 KB	-rwxr-xr-x	2021-02-02 11:31
readelf	509.84 KB	-rwxr-xr-x	2025-03-10 15:40
readlink	40.82 KB	-rwxr-xr-x	2020-11-16 17:24
realpath	61.23 KB	-rwxr-xr-x	2020-11-16 17:24
recode	39.87 KB	-rwxr-xr-x	2014-06-09 17:27
reindexdb	57.54 KB	-rwxr-xr-x	2021-08-11 12:13
rename	11.26 KB	-rwxr-xr-x	2021-02-02 11:31
renice	11.21 KB	-rwxr-xr-x	2021-02-02 11:31
replace	3.4 MB	-rwxr-xr-x	2021-08-09 10:19
reset	19.6 KB	-rwxr-xr-x	2017-09-06 18:08
rev	11.26 KB	-rwxr-xr-x	2021-02-02 11:31
rm	61.4 KB	-rwxr-xr-x	2020-11-16 17:24
rmdir	44.46 KB	-rwxr-xr-x	2020-11-16 17:24
rnano	201.08 KB	-rwxr-xr-x	2014-06-10 00:47
rpcgen	90.45 KB	-rwxr-xr-x	2025-09-18 06:21
rsync	488.38 KB	-rwxr-xr-x	2025-11-07 10:14
ruby	7.02 KB	-rwxr-xr-x	2022-04-05 12:29
run-with-aspell	85 B	-rwxr-xr-x	2014-06-09 19:04
runcon	32.47 KB	-rwxr-xr-x	2020-11-16 17:24
rvi	906.45 KB	-rwxr-xr-x	2020-12-15 11:44
rview	906.45 KB	-rwxr-xr-x	2020-12-15 11:44
rvim	2.23 MB	-rwxr-xr-x	2020-12-15 11:44
s2p	52.08 KB	-rwxr-xr-x	2026-01-13 09:57
scalar	2.08 MB	-rwxr-xr-x	2023-01-25 18:07
scl	19.5 KB	-rwxr-xr-x	2018-10-30 15:17
scl_enabled	258 B	-rwxr-xr-x	2018-10-30 15:17
scl_source	1.83 KB	-rwxr-xr-x	2018-10-30 15:17
scp	89.24 KB	-rwxr-xr-x	2025-06-10 02:48
screen	464.1 KB	-rwxr-xr-x	2021-03-09 10:26
script	19.61 KB	-rwxr-xr-x	2021-02-02 11:31
sdiff	48.41 KB	-rwxr-xr-x	2023-03-07 09:48
sed	74.29 KB	-rwxr-xr-x	2020-09-30 13:35
selectorctl	7.63 KB	-rwxr-xr-x	2025-12-15 09:11
seq	48.48 KB	-rwxr-xr-x	2020-11-16 17:24
setsid	11.23 KB	-rwxr-xr-x	2021-02-02 11:31
setterm	27.48 KB	-rwxr-xr-x	2021-02-02 11:31
sftp	142.02 KB	-rwxr-xr-x	2025-06-10 02:48
sh	941.93 KB	-rwxr-xr-x	2021-11-24 02:06
sha1sum	36.57 KB	-rwxr-xr-x	2020-11-16 17:24
sha224sum	40.63 KB	-rwxr-xr-x	2020-11-16 17:24
sha256sum	40.63 KB	-rwxr-xr-x	2020-11-16 17:24
sha384sum	40.65 KB	-rwxr-xr-x	2020-11-16 17:24
sha512sum	40.65 KB	-rwxr-xr-x	2020-11-16 17:24
shred	52.94 KB	-rwxr-xr-x	2020-11-16 17:24
shuf	49.13 KB	-rwxr-xr-x	2020-11-16 17:24
size	32.35 KB	-rwxr-xr-x	2025-03-10 15:40
skill	23.62 KB	-rwxr-xr-x	2020-09-30 13:21
slabtop	19.52 KB	-rwxr-xr-x	2020-09-30 13:21
sleep	32.35 KB	-rwxr-xr-x	2020-11-16 17:24
slogin	760.44 KB	-rwxr-xr-x	2025-06-10 02:48
snice	23.62 KB	-rwxr-xr-x	2020-09-30 13:21
snmpconf	25.52 KB	-rwxr-xr-x	2024-01-25 10:54
soelim	32.59 KB	-rwxr-xr-x	2014-06-09 16:17
sort	114.94 KB	-rwxr-xr-x	2020-11-16 17:24
spell	122 B	-rwxr-xr-x	2014-06-09 19:04
splain	18.03 KB	-rwxr-xr-x	2026-01-13 09:57
split	69.47 KB	-rwxr-xr-x	2020-11-16 17:24
sprof	22.1 KB	-rwxr-xr-x	2025-09-18 06:21
sqlite3	54.95 KB	-rwxr-xr-x	2025-08-04 09:27
ssh	760.44 KB	-rwxr-xr-x	2025-06-10 02:48
ssh-add	348.48 KB	-rwxr-xr-x	2025-06-10 02:48
ssh-agent	373.25 KB	---x--x--x	2025-06-10 02:48
ssh-copy-id	10.22 KB	-rwxr-xr-x	2025-06-10 02:48
ssh-keygen	409.4 KB	-rwxr-xr-x	2025-06-10 02:48
ssh-keyscan	434.7 KB	-rwxr-xr-x	2025-06-10 02:48
stat	77.19 KB	-rwxr-xr-x	2020-11-16 17:24
stdbuf	64.88 KB	-rwxr-xr-x	2020-11-16 17:24
strace	1009.19 KB	-rwxr-xr-x	2023-08-30 04:58
stream	7.05 KB	-rwxr-xr-x	2023-10-25 03:23
strings	36.53 KB	-rwxr-xr-x	2025-03-10 15:40
strip	227.32 KB	-rwxr-xr-x	2025-03-10 15:40
stty	68.61 KB	-rwxr-xr-x	2020-11-16 17:24
sum	36.55 KB	-rwxr-xr-x	2020-11-16 17:24
sync	28.33 KB	-rwxr-xr-x	2020-11-16 17:24
tabs	15.31 KB	-rwxr-xr-x	2017-09-06 18:08
tac	32.48 KB	-rwxr-xr-x	2020-11-16 17:24
tail	65.25 KB	-rwxr-xr-x	2020-11-16 17:24
tailf	23.88 KB	-rwxr-xr-x	2021-02-02 11:31
tar	338.02 KB	-rwxr-xr-x	2018-10-30 16:24
taskset	32.22 KB	-rwxr-xr-x	2021-02-02 11:31
tbl	115.96 KB	-rwxr-xr-x	2014-06-09 16:17
tclsh	7 KB	-rwxr-xr-x	2015-11-20 03:40
tclsh8.5	7 KB	-rwxr-xr-x	2015-11-20 03:40
tee	32.38 KB	-rwxr-xr-x	2020-11-16 17:24
test	36.46 KB	-rwxr-xr-x	2020-11-16 17:24
tic	64.26 KB	-rwxr-xr-x	2017-09-06 18:08
timeout	53.31 KB	-rwxr-xr-x	2020-11-16 17:24
tload	15.38 KB	-rwxr-xr-x	2020-09-30 13:21
tmpwatch	27.87 KB	-rwxr-xr-x	2019-08-08 22:58
toe	15.43 KB	-rwxr-xr-x	2017-09-06 18:08
top	104.38 KB	-rwxr-xr-x	2020-09-30 13:21
touch	61.02 KB	-rwxr-xr-x	2020-11-16 17:24
tput	15.41 KB	-rwxr-xr-x	2017-09-06 18:08
tr	44.61 KB	-rwxr-xr-x	2020-11-16 17:24
troff	512.96 KB	-rwxr-xr-x	2014-06-09 16:17
true	28.26 KB	-rwxr-xr-x	2020-11-16 17:24
truncate	52.68 KB	-rwxr-xr-x	2020-11-16 17:24
tset	19.6 KB	-rwxr-xr-x	2017-09-06 18:08
tsort	36.47 KB	-rwxr-xr-x	2020-11-16 17:24
tty	28.29 KB	-rwxr-xr-x	2020-11-16 17:24
tzselect	7.17 KB	-rwxr-xr-x	2025-09-18 05:28
uapi	1.25 KB	-rwxr-xr-x	2026-01-11 00:00
ul	19.47 KB	-rwxr-xr-x	2021-02-02 11:31
uname	32.3 KB	-rwxr-xr-x	2020-11-16 17:24
unexpand	32.45 KB	-rwxr-xr-x	2020-11-16 17:24
uniq	44.71 KB	-rwxr-xr-x	2020-11-16 17:24
unix-lpr.sh	4.07 KB	-rwxr-xr-x	2020-09-30 12:20
unlink	28.3 KB	-rwxr-xr-x	2020-11-16 17:24
unzip	185.16 KB	-rwxr-xr-x	2022-01-12 02:36
unzipsfx	88.66 KB	-rwxr-xr-x	2022-01-12 02:36
uptime	11.22 KB	-rwxr-xr-x	2020-09-30 13:21
users	32.42 KB	-rwxr-xr-x	2020-11-16 17:24
utmpdump	15.45 KB	-rwxr-xr-x	2021-02-02 11:31
vacuumdb	61.73 KB	-rwxr-xr-x	2021-08-11 12:13
vdir	114.85 KB	-rwxr-xr-x	2020-11-16 17:24
vi	906.45 KB	-rwxr-xr-x	2020-12-15 11:44
view	906.45 KB	-rwxr-xr-x	2020-12-15 11:44
vim	2.23 MB	-rwxr-xr-x	2020-12-15 11:44
vimdiff	2.23 MB	-rwxr-xr-x	2020-12-15 11:44
vimtutor	2.04 KB	-rwxr-xr-x	2020-12-15 11:44
vmstat	31.48 KB	-rwxr-xr-x	2020-09-30 13:21
watch	24.14 KB	-rwxr-xr-x	2020-09-30 13:21
wc	40.67 KB	-rwxr-xr-x	2020-11-16 17:24
wget	408.97 KB	-rwxr-xr-x	2024-08-15 06:20
whereis	20.2 KB	-rwxr-xr-x	2021-02-02 11:31

Rename

#!/usr/bin/env perl
#
# $Id: mytop,v 1.91 2012/01/18 16:49:12 mgrennan Exp $

=pod

=head1 NAME

mytop - display MariaDB server performance info like `top'

=cut

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

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

$main::VERSION = "1.91a";
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            => 'test',
    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          => '',
    port          => 3306,
    resolve       => 0,
    slow	  => 10,	# slow query time
    socket        => '',
    sort          => 1,         # default or reverse sort ("s")
    user          => 'root',
    fullqueries   => 0
);

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
            next if /^\s*#/;  ## skip comments

chomp;

if (/(\S+)\s*=\s*(.*\S)/)
            {
                $config{lc $1} = $2 if exists $config{lc $1};
            }
        }
        close CFG;
    }
}

## 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}
);

## 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.

$dsn ="DBI:mysql:database=$config{db};mysql_read_default_group=mytop;";

if ($config{socket} and -S $config{socket})
{
    $dsn .= "mysql_socket=$config{socket}";
}
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 server. Please check the:

* database you specified "$config{db}" (default is "test")
  * 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
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);
        next;
    }
    if ($_->{Variable_name} eq "have_query_cache")
    {
#        if ($_->{Value} eq 'YES')
	if ($_->{Value} eq 'YES' or $_->{Value} eq 'DEMAND')  # http://freshmeat.net/users/jerjones
        {
            $have_query_cache = 1;
        }
        else
        {
            $have_query_cache = 0;
        }
        next;
    }
}

#########################################################################
##
## 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};
        $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 slave");
	Execute("set global sql_slave_skip_counter=1");
	Execute("start 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 q to exit this mode]\n";
        next;
    }

## c - mode switch to command summary

if ($key eq 'c')
    {
        $config{mode} = 'cmd';
        Clear() unless $config{batchmode};
        print "Command Summary [hit q to exit this mode]\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 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 [hit q to exit this mode]\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 $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 $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 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);
    }

# 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;
        }
    }

}

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 global status");
	}
	else
	{
           @recs = Hashes("show 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;
            }
        }

open L, "</proc/loadavg";
	my $l = <L>;
	close L;
	chomp $l;

$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 = 50;
        my $up_width   = $width - $host_width - 1;
        Clear() unless $config{batchmode};
        print RESET();

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

printf " Queries: %-6s  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: %5.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(" ISAM Key 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 global variables like "read_only"');
        if ($data->{Value} ne "OFF")
        {
            print RED() if ($HAS_COLOR) ;
            print " ReadOnly";
	    RESET() if ($HAS_COLOR);
        }

($data) = Hashes('SHOW 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 "Master:$data->{Master_Host} ";
	    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 @sz   = (9, 8, 15, 9, 6, 5, 6, 8);
    my $used = scalar(@sz) + Sum(@sz);
    my $state= $width <= 80 ? 6 : int(min(6+($width-80)/3, 15));
    my $free = $width - $used - ($state - 6);
    my $format= "%9s %8s %15s %9s %6s %5s %6s %${state}s %-.${free}s\n";
    my $format2;
    if ($config{fullqueries})
    {
         $format2 = "%9d %8.8s %15.15s %9.9s %6d %5.1f %6.6s %${state}.${state}s %-${free}s\n";
    } else {
         $format2 = "%9d %8.8s %15.15s %9.9s %6d %5.1f %6.6s %${state}.${state}s %-${free}.${free}s\n";
    }
    print BOLD() if ($HAS_COLOR);

printf $format,
        'Id','User','Host/IP','DB','Time', '%', 'Cmd', 'State', 'Query';

print RESET() if ($HAS_COLOR);

##      Id User Host DB
    printf $format,
        '--','----','-------','--','----', '-', '---', '-----', '----------';

$lines_left -= 2;

my $proc_cmd = "show full processlist";

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 = $thread->{Host};
	    my $host = gethostbyaddr(inet_aton($thread->{Host}), AF_INET);
#            $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.

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

if (1)
        {
            ## remove newlines and carriage returns
            $thread->{Info} =~ s/[\n\r]//g;

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

## stow it in the cache

$qcache{$thread->{Id}}  = $thread->{Info};
        $dbcache{$thread->{Id}} = $thread->{db};
        $ucache{$thread->{Id}}  = $thread->{User};

}

## 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};
            } else {
                $smInfo = substr $thread->{Info}, 0, $free;
            }
        }
#        if ($thread->{State})
#        {
#            $smInfo = substr $thread->{State}, 0, $free;
#        }
        else
        {
            $smInfo = "";
        }

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};
        }

printf $format2,
            $thread->{Id}, $thread->{User}, $thread->{Host}, $thread->{db},
            $thread->{Time}, $thread->{Progress}, $thread->{Command}, $thread->{State}, $smInfo;

print RESET() if $HAS_COLOR;

$lines_left--;

last if $lines_left == 0;

}

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

my $questions;

sub GetQPS()
{
    my($data) = Hashes('SHOW 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 GetQcacheSummary()
{
}

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

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

my @data = Hashes("SHOW 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 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 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 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 $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}>

? - display this screen
  # - toggle short/long numbers (not yet implemented)
  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 dispaly
  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 quiery 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)

Base version from ${GREEN}http://www.mysqlfanboy.com/mytop${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;
    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>.

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

And older (the original) version B<mytop> is available from
http://jeremy.zawodny.com/mysql/mytop/ 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::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 on localhost (10.0.13-log)                     up 1+11:13:00 [23:29:11]
 Queries: 19.3M  qps:  160 Slow:     1.0         Se/In/Up/De(%):    00/80/03/17
             qps now:  219 Slow qps: 0.0  Threads:    1 (   1/  16) 00/74/00/25
 Key Efficiency: 99.3%  Bps in/out: 30.5k/162.8   Now in/out: 32.7k/ 3.3k

The first line identifies the hostname of the server (localhost) and
the version of MariaDB it is running. The right had 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: ``root''.

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

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

=item B<-h> or B<--host> hostname[: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: ``localhost''.

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

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

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

How long between display refreshes. Default: 5

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

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

=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 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> /path/to/socket

If you're running B<mytop> on the same host as MariaDB, you may wish to
have it use the MariaDB 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>

Sepcify 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 ~/.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

=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 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 MySQL 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

Added --fullqueries and reading of .my.cnf

=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)

Mirnor 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 inccorect 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.

=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.

=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__