FM / bin

/usr/bin

Name	Size	Mode	Actions
2to3	106	0755	edit dl rm
2to3-3.6	106	0755	edit dl rm
ab	74368	0755	edit dl rm
aclocal	36478	0755	edit dl rm
aclocal-1.16	36478	0755	edit dl rm
acyclic	12712	0755	edit dl rm
addr2line	34224	0755	edit dl rm
alias	29	0755	edit dl rm
animate	12128	0755	edit dl rm
apropos	55336	0755	edit dl rm
ar	63448	0755	edit dl rm
arch	38232	0755	edit dl rm
aria_chk	5637232	0755	edit dl rm
aria_dump_log	5431864	0755	edit dl rm
aria_ftdump	5444432	0755	edit dl rm
aria_pack	5470864	0755	edit dl rm
aria_read_log	5591384	0755	edit dl rm
arpaname	12104	0755	edit dl rm
as	911264	0755	edit dl rm
aspell	163328	0755	edit dl rm
at	58704	0755	edit dl rm
atq	58704	0755	edit dl rm
atrm	58704	0755	edit dl rm
aulast	21072	0755	edit dl rm
aulastlog	12736	0755	edit dl rm
ausyscall	12568	0755	edit dl rm
authselect	42112	0755	edit dl rm
autoconf	14768	0755	edit dl rm
autoheader	8534	0755	edit dl rm
autom4te	32181	0755	edit dl rm
automake	257949	0755	edit dl rm
automake-1.16	257949	0755	edit dl rm
autopoint	26572	0755	edit dl rm
autoreconf	21066	0755	edit dl rm
autoscan	17124	0755	edit dl rm
autoupdate	33872	0755	edit dl rm
auvirt	33512	0755	edit dl rm
awk	685848	0755	edit dl rm
b2sum	59072	0755	edit dl rm
base32	42464	0755	edit dl rm
base64	42480	0755	edit dl rm
basename	38312	0755	edit dl rm
bash	1154680	0755	edit dl rm
bashbug	7348	0755	edit dl rm
bashbug-64	7348	0755	edit dl rm
batch	137	0755	edit dl rm
bc	97256	0755	edit dl rm
bcomps	21112	0755	edit dl rm
bdftopcf	46488	0755	edit dl rm
bg	26	0755	edit dl rm
bind9-config	3416	0755	edit dl rm
bison	448224	0755	edit dl rm
bluemoon	100048	0755	edit dl rm
bluetoothctl	294120	0755	edit dl rm
bond2team	23289	0755	edit dl rm
bootctl	46232	0755	edit dl rm
brotli	756944	0755	edit dl rm
btattach	91688	0755	edit dl rm
btmon	966736	0755	edit dl rm
bunzip2	37744	0755	edit dl rm
busctl	79120	0755	edit dl rm
bwrap	71296	0755	edit dl rm
bzcat	37744	0755	edit dl rm
bzcmp	2128	0755	edit dl rm
bzdiff	2128	0755	edit dl rm
bzegrep	1677	0755	edit dl rm
bzfgrep	1677	0755	edit dl rm
bzgrep	1677	0755	edit dl rm
bzip2	37744	0755	edit dl rm
bzip2recover	16832	0755	edit dl rm
bzless	1259	0755	edit dl rm
bzmore	1259	0755	edit dl rm
c++	1266616	0755	edit dl rm
c++filt	29584	0755	edit dl rm
c89	224	0755	edit dl rm
c99	215	0755	edit dl rm
ca-legacy	1644	0755	edit dl rm
cairo-sphinx	71384	0755	edit dl rm
cal	67560	0755	edit dl rm
captoinfo	87360	0755	edit dl rm
cat	38360	0755	edit dl rm
catchsegv	3283	0755	edit dl rm
catman	42448	0755	edit dl rm
cc	1266576	0755	edit dl rm
ccomps	25312	0755	edit dl rm
cd	26	0755	edit dl rm
centrino-decode	11536	0755	edit dl rm
certutil	203928	0755	edit dl rm
chacl	16768	0755	edit dl rm
chage	79544	0755	edit dl rm
chardetect	400	0755	edit dl rm
chattr	16800	0755	edit dl rm
chcon	72024	0755	edit dl rm
checkmodule	437256	0755	edit dl rm
checkpolicy	500368	0755	edit dl rm
chfn	33688	0711	edit dl rm
chgrp	67864	0755	edit dl rm
chmem	46560	0755	edit dl rm
chmod	63688	0755	edit dl rm
chown	71976	0755	edit dl rm
chronyc	130664	0755	edit dl rm
chrt	38080	0755	edit dl rm
chsh	25312	0711	edit dl rm
chvt	12832	0755	edit dl rm
cifsiostat	42344	0755	edit dl rm
ciptool	215816	0755	edit dl rm
circo	12552	0755	edit dl rm
cksum	38288	0755	edit dl rm
clear	12840	0755	edit dl rm
cloud-id	402	0755	edit dl rm
cloud-init	406	0755	edit dl rm
cloud-init-per	2108	0755	edit dl rm
cluster	530768	0755	edit dl rm
cmp	106248	0755	edit dl rm
cmsutil	125400	0755	edit dl rm
col	29704	0755	edit dl rm
colcrt	16872	0755	edit dl rm
colrm	25480	0755	edit dl rm
column	50656	0755	edit dl rm
comm	42560	0755	edit dl rm
command	31	0755	edit dl rm
compare	12136	0755	edit dl rm
compile_et	1342	0755	edit dl rm
composite	12120	0755	edit dl rm
config_data	7138	0755	edit dl rm
conjure	12120	0755	edit dl rm
convert	12120	0755	edit dl rm
coredumpctl	45992	0755	edit dl rm
corelist	14995	0755	edit dl rm
cp	151528	0755	edit dl rm
cpan	8370	0755	edit dl rm
cpan-mirrors	4288	0755	edit dl rm
cpapi1	3496912	0755	edit dl rm
cpapi2	3496912	0755	edit dl rm
cpapi3	3496912	0755	edit dl rm
cpio	163640	0755	edit dl rm
cpp	1266552	0755	edit dl rm
cpupower	68512	0755	edit dl rm
crb	2644	0744	edit dl rm
crc32	1043	0755	edit dl rm
crlutil	138184	0755	edit dl rm
cronnext	51000	0755	edit dl rm
crontab	63152	4755	edit dl rm
csplit	54968	0755	edit dl rm
csslint-0.6	25152	0755	edit dl rm
curl	235600	0755	edit dl rm
cut	50704	0755	edit dl rm
cvtsudoers	291032	0755	edit dl rm
cxpm	29808	0755	edit dl rm
date	108496	0755	edit dl rm
dbilogstrip	1380	0755	edit dl rm
dbiprof	6206	0755	edit dl rm
dbus-binding-tool	113080	0755	edit dl rm
dbus-cleanup-sockets	16784	0755	edit dl rm
dbus-daemon	245448	0755	edit dl rm
dbus-monitor	29264	0755	edit dl rm
dbus-run-session	16264	0755	edit dl rm
dbus-send	29224	0755	edit dl rm
dbus-test-tool	25192	0755	edit dl rm
dbus-update-activation-environment	16808	0755	edit dl rm
dbus-uuidgen	12672	0755	edit dl rm
dbxtool	25240	0755	edit dl rm
db_archive	12752	0755	edit dl rm
db_checkpoint	16872	0755	edit dl rm
db_deadlock	16872	0755	edit dl rm
db_dump	16904	0755	edit dl rm
db_dump185	71224	0755	edit dl rm
db_hotbackup	20984	0755	edit dl rm
db_load	29296	0755	edit dl rm
db_log_verify	16912	0755	edit dl rm
db_printlog	34200	0755	edit dl rm
db_recover	16904	0755	edit dl rm
db_replicate	16888	0755	edit dl rm
db_stat	16872	0755	edit dl rm
db_tuner	25144	0755	edit dl rm
db_upgrade	12752	0755	edit dl rm
db_verify	16856	0755	edit dl rm
dc	54296	0755	edit dl rm
dd	79840	0755	edit dl rm
deallocvt	12840	0755	edit dl rm
debuginfo-install	3702	0755	edit dl rm
debuginfod-find	16864	0755	edit dl rm
delv	43480	0755	edit dl rm
df	93272	0755	edit dl rm
diff	274440	0755	edit dl rm
diff3	131688	0755	edit dl rm
diffimg	12568	0755	edit dl rm
dig	166064	0755	edit dl rm
dijkstra	17112	0755	edit dl rm
dir	143248	0755	edit dl rm
dircolors	50744	0755	edit dl rm
dirmngr	593808	0755	edit dl rm
dirmngr-client	123000	0755	edit dl rm
dirname	34160	0755	edit dl rm
display	12128	0755	edit dl rm
dltest	12152	0755	edit dl rm
dmesg	79744	0755	edit dl rm
dnf	2104	0755	edit dl rm
dnf-3	2104	0755	edit dl rm
dnsdomainname	21664	0755	edit dl rm
dnstap-read	20920	0755	edit dl rm
domainname	21664	0755	edit dl rm
dot	12552	0755	edit dl rm
dot2gxl	42288	0755	edit dl rm
dotty	2085	0755	edit dl rm
doveadm	973504	0755	edit dl rm
doveconf	397848	0755	edit dl rm
dovecot-sysreport	6431	0755	edit dl rm
dpkg	323760	0755	edit dl rm
dpkg-deb	169472	0755	edit dl rm
dpkg-divert	161536	0755	edit dl rm
dpkg-maintscript-helper	21162	0755	edit dl rm
dpkg-query	169824	0755	edit dl rm
dpkg-realpath	4149	0755	edit dl rm
dpkg-split	135568	0755	edit dl rm
dpkg-statoverride	68008	0755	edit dl rm
dpkg-trigger	89768	0755	edit dl rm
dracut	69182	0755	edit dl rm
dtrace	17808	0755	edit dl rm
du	109568	0755	edit dl rm
dumpkeys	173952	0755	edit dl rm
dumpsexp	16832	0755	edit dl rm
dwp	2233440	0755	edit dl rm
dwz	171664	0755	edit dl rm
ea-php74	6382784	0755	edit dl rm
ea-php74-pear	383	0755	edit dl rm
ea-php74-pecl	299	0755	edit dl rm
ea-php82	8147128	0755	edit dl rm
ea-php82-pear	383	0755	edit dl rm
ea-php82-pecl	299	0755	edit dl rm
ea-php83	8175776	0755	edit dl rm
ea-php83-pear	383	0755	edit dl rm
ea-php83-pecl	299	0755	edit dl rm
ea-wappspector	100	0755	edit dl rm
easy_install-3	246	0755	edit dl rm
easy_install-3.6	246	0755	edit dl rm
echo	38248	0755	edit dl rm
edgepaint	430888	0755	edit dl rm
egrep	28	0755	edit dl rm
eject	59168	0755	edit dl rm
elfedit	34080	0755	edit dl rm
enc2xs	41958	0755	edit dl rm
encguess	2980	0755	edit dl rm
env	42352	0755	edit dl rm
envml	4197	0755	edit dl rm
envsubst	50168	0755	edit dl rm
eps2eps	639	0755	edit dl rm
eqn	237728	0755	edit dl rm
event_rpcgen.py	55559	0755	edit dl rm
evmctl	64040	0755	edit dl rm
ex	1180560	0755	edit dl rm
expand	42592	0755	edit dl rm
expr	50752	0755	edit dl rm
factor	88032	0755	edit dl rm
fallocate	29656	0755	edit dl rm
false	34120	0755	edit dl rm
fc	26	0755	edit dl rm
fc-cache	132	0755	edit dl rm
fc-cache-64	20840	0755	edit dl rm
fc-cat	16744	0755	edit dl rm
fc-conflist	12544	0755	edit dl rm
fc-list	12544	0755	edit dl rm
fc-match	16648	0755	edit dl rm
fc-pattern	12552	0755	edit dl rm
fc-query	12536	0755	edit dl rm
fc-scan	12552	0755	edit dl rm
fc-validate	16648	0755	edit dl rm
fdp	12552	0755	edit dl rm
fg	26	0755	edit dl rm
fgconsole	12848	0755	edit dl rm
fgrep	28	0755	edit dl rm
filan	96992	0755	edit dl rm
file	25280	0755	edit dl rm
fincore	33832	0755	edit dl rm
find	228632	0755	edit dl rm
find-repos-of-install	3702	0755	edit dl rm
findmnt	72304	0755	edit dl rm
fips-finish-install	1323	0755	edit dl rm
fips-mode-setup	4007	0755	edit dl rm
firewall-cmd	142955	0755	edit dl rm
firewall-offline-cmd	123624	0755	edit dl rm
flex	438728	0755	edit dl rm
flex++	438728	0755	edit dl rm
flock	33992	0755	edit dl rm
fmt	46584	0755	edit dl rm
fold	42416	0755	edit dl rm
fonttosfnt	42168	0755	edit dl rm
free	21288	0755	edit dl rm
freetype-config	4416	0755	edit dl rm
fribidi	21648	0755	edit dl rm
ftp	103632	0755	edit dl rm
funzip	37504	0755	edit dl rm
fwupdmgr	162080	0755	edit dl rm
fwupdtool	211848	0755	edit dl rm
g++	1266616	0755	edit dl rm
g13	217064	0755	edit dl rm
galera_new_cluster	1268	0755	edit dl rm
galera_recovery	3366	0755	edit dl rm
gapplication	20936	0755	edit dl rm
garb-systemd	1345	0755	edit dl rm
garbd	1735304	0755	edit dl rm
gatttool	380176	0755	edit dl rm
gawk	685848	0755	edit dl rm
gc	17040	0755	edit dl rm
gcc	1266576	0755	edit dl rm
gcc-ar	37536	0755	edit dl rm
gcc-nm	37536	0755	edit dl rm
gcc-ranlib	37536	0755	edit dl rm
gcov	1377408	0755	edit dl rm
gcov-dump	584664	0755	edit dl rm
gcov-tool	622360	0755	edit dl rm
gdbmtool	114248	0755	edit dl rm
gdbm_dump	21560	0755	edit dl rm
gdbm_load	25920	0755	edit dl rm
gdbus	49888	0755	edit dl rm
gdk-pixbuf-query-loaders-64	16312	0755	edit dl rm
gdk-pixbuf-thumbnailer	20944	0755	edit dl rm
gdlib-config	2861	0755	edit dl rm
gencat	25432	0755	edit dl rm
genl-ctrl-list	12328	0755	edit dl rm
geqn	237728	0755	edit dl rm
GET	16217	0755	edit dl rm
getconf	33240	0755	edit dl rm
getent	33920	0755	edit dl rm
getfacl	29384	0755	edit dl rm
getkeycodes	12840	0755	edit dl rm
getopt	21024	0755	edit dl rm
getopts	31	0755	edit dl rm
gettext	50144	0755	edit dl rm
gettext.sh	4629	0755	edit dl rm
gettextize	43718	0755	edit dl rm
ghostscript	12648	0755	edit dl rm
gio	87264	0755	edit dl rm
gio-querymodules-64	16696	0755	edit dl rm
git	27665816	0755	edit dl rm
git-receive-pack	27665816	0755	edit dl rm
git-shell	16553768	0755	edit dl rm
git-upload-archive	27665816	0755	edit dl rm
git-upload-pack	27665816	0755	edit dl rm
glib-compile-schemas	50024	0755	edit dl rm
gmake	240968	0755	edit dl rm
gml2gv	42216	0755	edit dl rm
gneqn	908	0755	edit dl rm
gnroff	3312	0755	edit dl rm
gpasswd	84144	4755	edit dl rm
gpg	1090344	0755	edit dl rm
gpg-agent	429360	0755	edit dl rm
gpg-connect-agent	169272	0755	edit dl rm
gpg-error	34976	0755	edit dl rm
gpg-error-config	2318	0755	edit dl rm
gpg-wks-server	211672	0755	edit dl rm
gpg-zip	3525	0755	edit dl rm
gpg2	1090344	0755	edit dl rm
gpgconf	180328	0755	edit dl rm
gpgme-json	87736	0755	edit dl rm
gpgparsemail	29432	0755	edit dl rm
gpgrt-config	2318	0755	edit dl rm
gpgsm	526808	0755	edit dl rm
gpgsplit	89112	0755	edit dl rm
gpgv	462344	0755	edit dl rm
gpgv2	462344	0755	edit dl rm
gpic	300896	0755	edit dl rm
gpio-event-mon	15320	0755	edit dl rm
gpio-hammer	15320	0755	edit dl rm
gprof	105832	0755	edit dl rm
gr2fonttest	30672	0755	edit dl rm
graphml2gv	21144	0755	edit dl rm
grep	198280	0755	edit dl rm
groff	127920	0755	edit dl rm
grops	195728	0755	edit dl rm
grotty	145304	0755	edit dl rm
groups	38288	0755	edit dl rm
growpart	29895	0755	edit dl rm
grub2-editenv	458848	0755	edit dl rm
grub2-file	950832	0755	edit dl rm
grub2-fstest	1210456	0755	edit dl rm
grub2-glue-efi	286120	0755	edit dl rm
grub2-kbdcomp	1668	0755	edit dl rm
grub2-menulst2cfg	268960	0755	edit dl rm
grub2-mkfont	319616	0755	edit dl rm
grub2-mkimage	441760	0755	edit dl rm
grub2-mklayout	296432	0755	edit dl rm
grub2-mknetdir	497488	0755	edit dl rm
grub2-mkpasswd-pbkdf2	298888	0755	edit dl rm
grub2-mkrelpath	285968	0755	edit dl rm
grub2-mkrescue	1170208	0755	edit dl rm
grub2-mkstandalone	608560	0755	edit dl rm
grub2-render-label	959576	0755	edit dl rm
grub2-script-check	323584	0755	edit dl rm
grub2-syslinux2cfg	882288	0755	edit dl rm
gs	12648	0755	edit dl rm
gsettings	29296	0755	edit dl rm
gsnd	277	0755	edit dl rm
gsoelim	43576	0755	edit dl rm
gss-client	25152	0755	edit dl rm
gtar	459768	0755	edit dl rm
gtbl	158320	0755	edit dl rm
gtk-query-immodules-2.0-64	16680	0755	edit dl rm
gtk-update-icon-cache	33824	0755	edit dl rm
gtroff	824344	0755	edit dl rm
gunzip	2345	0755	edit dl rm
gv2gml	25288	0755	edit dl rm
gv2gxl	42288	0755	edit dl rm
gvcolor	48024	0755	edit dl rm
gvgen	25392	0755	edit dl rm
gvmap	538944	0755	edit dl rm
gvmap.sh	2190	0755	edit dl rm
gvpack	471640	0755	edit dl rm
gvpr	8016	0755	edit dl rm
gxl2dot	42288	0755	edit dl rm
gxl2gv	42288	0755	edit dl rm
gzexe	6375	0755	edit dl rm
gzip	96944	0755	edit dl rm
h2ph	29382	0755	edit dl rm
h2xs	60866	0755	edit dl rm
hash	28	0755	edit dl rm
hciattach	207328	0755	edit dl rm
hciconfig	200984	0755	edit dl rm
hcidump	493240	0755	edit dl rm
hcitool	216984	0755	edit dl rm
HEAD	16217	0755	edit dl rm
head	46600	0755	edit dl rm
hex2hcd	16776	0755	edit dl rm
hexdump	58888	0755	edit dl rm
hmac256	17272	0755	edit dl rm
host	145712	0755	edit dl rm
hostid	34136	0755	edit dl rm
hostname	21664	0755	edit dl rm
hostnamectl	21328	0755	edit dl rm
htdbm	32480	0755	edit dl rm
htdigest	22232	0755	edit dl rm
html2text	406	0755	edit dl rm
htpasswd	32304	0755	edit dl rm
httxt2dbm	21608	0755	edit dl rm
hunspell	148168	0755	edit dl rm
i386	21256	0755	edit dl rm
iceauth	42872	0755	edit dl rm
iconv	62904	0755	edit dl rm
id	46528	0755	edit dl rm
identify	12128	0755	edit dl rm
idiag-socket-details	12376	0755	edit dl rm
idn	40352	0755	edit dl rm
ifnames	4128	0755	edit dl rm
iio_event_monitor	23528	0755	edit dl rm
iio_generic_buffer	27624	0755	edit dl rm
import	12120	0755	edit dl rm
imunify-agent-proxy	13781922	0755	edit dl rm
imunify-antivirus	1024	0755	edit dl rm
imunify-fgw-dump	8183000	0755	edit dl rm
imunify-service	1020	0755	edit dl rm
imunify360-agent	1024	0755	edit dl rm
imunify360-command-wrapper	12210	0755	edit dl rm
info	255888	0755	edit dl rm
infocmp	62512	0755	edit dl rm
infotocap	87360	0755	edit dl rm
innochecksum	4765296	0755	edit dl rm
install	159888	0755	edit dl rm
install-tools	4158	0755	edit dl rm
instmodsh	4194	0755	edit dl rm
intel-speed-select	95256	0755	edit dl rm
ionice	29680	0755	edit dl rm
iostat	59072	0755	edit dl rm
ipcalc	47184	0755	edit dl rm
ipcmk	29840	0755	edit dl rm
ipcrm	29688	0755	edit dl rm
ipcs	54680	0755	edit dl rm
isc-config.sh	3416	0755	edit dl rm
isosize	25480	0755	edit dl rm
ispell	988	0755	edit dl rm
isql	37456	0755	edit dl rm
iusql	29344	0755	edit dl rm
jcat-tool	41912	0755	edit dl rm
jobs	28	0755	edit dl rm
join	54984	0755	edit dl rm
journalctl	78840	0755	edit dl rm
jq	29096	0755	edit dl rm
jsondiff	1033	0755	edit dl rm
jsondiff-3	1033	0755	edit dl rm
jsondiff-3.6	1033	0755	edit dl rm
jsonpatch	3676	0755	edit dl rm
jsonpatch-3	3676	0755	edit dl rm
jsonpatch-3.6	3676	0755	edit dl rm
jsonpointer	1356	0755	edit dl rm
jsonpointer-3	1356	0755	edit dl rm
jsonpointer-3.6	1356	0755	edit dl rm
jsonschema-3	409	0755	edit dl rm
json_pp	4286	0755	edit dl rm
json_reformat	16952	0755	edit dl rm
json_verify	12568	0755	edit dl rm
json_xs	7002	0755	edit dl rm
kbdinfo	16960	0755	edit dl rm
kbdrate	16840	0755	edit dl rm
kbd_mode	12856	0755	edit dl rm
kbxutil	181608	0755	edit dl rm
kdumpctl	33722	0755	edit dl rm
kernel-install	4511	0755	edit dl rm
keyctl	37704	0755	edit dl rm
kill	38176	0755	edit dl rm
killall	30480	0755	edit dl rm
kmod	163784	0755	edit dl rm
krb5-config	7144	0755	edit dl rm
kvm_stat	62307	0755	edit dl rm
l2ping	167688	0755	edit dl rm
l2test	184496	0755	edit dl rm
last	50416	0755	edit dl rm
lastb	50416	0755	edit dl rm
lastlog	21120	0755	edit dl rm
lchfn	20840	0755	edit dl rm
lchsh	16744	0755	edit dl rm
ld	1789080	0755	edit dl rm
ld.bfd	1789080	0755	edit dl rm
ld.gold	2467656	0755	edit dl rm
ld.so	1104064	0755	edit dl rm
ldd	5441	0755	edit dl rm
lefty	311832	0755	edit dl rm
less	177928	0755	edit dl rm
lessecho	12696	0755	edit dl rm
lesskey	22520	0755	edit dl rm
lesspipe.sh	3143	0755	edit dl rm
lex	438728	0755	edit dl rm
lexgrog	95952	0755	edit dl rm
libgcrypt-config	3931	0755	edit dl rm
libnetcfg	15775	0755	edit dl rm
libpng-config	2382	0755	edit dl rm
libpng16-config	2382	0755	edit dl rm
libtool	367724	0755	edit dl rm
libtoolize	129197	0755	edit dl rm
libwmf-fontmap	13340	0755	edit dl rm
link	34136	0755	edit dl rm
linux-boot-prober	5993	0755	edit dl rm
linux32	21256	0755	edit dl rm
linux64	21256	0755	edit dl rm
ln	72192	0755	edit dl rm
lneato	1547	0755	edit dl rm
loadkeys	215584	0755	edit dl rm
loadunimap	29728	0755	edit dl rm
locale	57792	0755	edit dl rm
localectl	29552	0755	edit dl rm
localedef	314848	0755	edit dl rm
logger	51184	0755	edit dl rm
login	41944	0755	edit dl rm
loginctl	58656	0755	edit dl rm
logname	34144	0755	edit dl rm
logresolve	21968	0755	edit dl rm
look	16856	0755	edit dl rm
ls	143248	0755	edit dl rm
lsattr	12216	0755	edit dl rm
lsblk	92304	0755	edit dl rm
lscpu	83656	0755	edit dl rm
lsgpio	15424	0755	edit dl rm
lsiio	23528	0755	edit dl rm
lsinitrd	8886	0755	edit dl rm
lsipc	75512	0755	edit dl rm
lslocks	38432	0755	edit dl rm
lslogins	67192	0755	edit dl rm
lsmem	46424	0755	edit dl rm
lsns	50472	0755	edit dl rm
lsof	179608	0755	edit dl rm
lsphp	937	0755	edit dl rm
lsscsi	88072	0755	edit dl rm
lua	20944	0755	edit dl rm
luac	156440	0755	edit dl rm
lwp-download	10292	0755	edit dl rm
lwp-dump	2711	0755	edit dl rm
lwp-mirror	2413	0755	edit dl rm
lwp-request	16217	0755	edit dl rm
m4	190016	0755	edit dl rm
Mail	418704	0755	edit dl rm
mail	418704	0755	edit dl rm
mailx	418704	0755	edit dl rm
make	240968	0755	edit dl rm
make-dummy-cert	610	0755	edit dl rm
makedb	25432	0755	edit dl rm
man	115224	0755	edit dl rm
mandb	137744	0755	edit dl rm
manpath	34224	0755	edit dl rm
mapscrn	25440	0755	edit dl rm
mariadb	5501488	0755	edit dl rm
mariadb-access	111961	0755	edit dl rm
mariadb-admin	5042656	0755	edit dl rm
mariadb-binlog	5328504	0755	edit dl rm
mariadb-check	5035576	0755	edit dl rm
mariadb-config	12488	0755	edit dl rm
mariadb-conv	4756104	0755	edit dl rm
mariadb-convert-table-format	4220	0755	edit dl rm
mariadb-dump	5128224	0755	edit dl rm
mariadb-dumpslow	8242	0755	edit dl rm
mariadb-embedded	24911320	0755	edit dl rm
mariadb-find-rows	3290	0755	edit dl rm
mariadb-fix-extensions	1250	0755	edit dl rm
mariadb-hotcopy	35359	0755	edit dl rm
mariadb-import	5030448	0755	edit dl rm
mariadb-install-db	22692	0755	edit dl rm
mariadb-plugin	4734912	0755	edit dl rm
mariadb-secure-installation	13799	0755	edit dl rm
mariadb-service-convert	2506	0755	edit dl rm
mariadb-setpermission	17977	0755	edit dl rm
mariadb-show	5024736	0755	edit dl rm
mariadb-slap	5044280	0755	edit dl rm
mariadb-tzinfo-to-sql	4734336	0755	edit dl rm
mariadb-upgrade	5185856	0755	edit dl rm
mariadb-waitpid	4721616	0755	edit dl rm
mariadbd-multi	27425	0755	edit dl rm
mariadbd-safe	31214	0755	edit dl rm
mariadbd-safe-helper	4691792	0755	edit dl rm
mariadb_config	12488	0755	edit dl rm
mcookie	34064	0755	edit dl rm
mcpp	9232	0755	edit dl rm
md5sum	46640	0755	edit dl rm
mdig	49680	0755	edit dl rm
memstrack	85792	0755	edit dl rm
mesg	16752	0755	edit dl rm
miniterm-3.6.py	33887	0755	edit dl rm
miniterm-3.py	33887	0755	edit dl rm
mkdir	84680	0755	edit dl rm
mkfifo	68056	0755	edit dl rm
mkfontdir	65	0755	edit dl rm
mkfontscale	42592	0755	edit dl rm
mkinitrd	6585	0755	edit dl rm
mknod	72160	0755	edit dl rm
mktemp	46760	0755	edit dl rm
mm2gv	92704	0755	edit dl rm
mmdblookup	17144	0755	edit dl rm
modulecmd	393980	0755	edit dl rm
modulemd-validator	25560	0755	edit dl rm
modutil	181688	0755	edit dl rm
mogrify	12120	0755	edit dl rm
mokutil	51184	0755	edit dl rm
montage	12120	0755	edit dl rm
more	46016	0755	edit dl rm
mount	50328	0755	edit dl rm
mountpoint	16880	0755	edit dl rm
mpicalc	20872	0755	edit dl rm
mpris-proxy	101368	0755	edit dl rm
mpstat	54792	0755	edit dl rm
msgattrib	26192	0755	edit dl rm
msgcat	26168	0755	edit dl rm
msgcmp	26744	0755	edit dl rm
msgcomm	26168	0755	edit dl rm
msgconv	22072	0755	edit dl rm
msgen	22064	0755	edit dl rm
msgexec	22072	0755	edit dl rm
msgfilter	35360	0755	edit dl rm
msgfmt	92464	0755	edit dl rm
msggrep	44648	0755	edit dl rm
msginit	69480	0755	edit dl rm
msgmerge	73200	0755	edit dl rm
msgunfmt	36664	0755	edit dl rm
msguniq	26176	0755	edit dl rm
msql2mysql	1446	0755	edit dl rm
mv	147408	0755	edit dl rm
myisamchk	5145136	0755	edit dl rm
myisamlog	5002416	0755	edit dl rm
myisampack	5041600	0755	edit dl rm
myisam_ftdump	5020312	0755	edit dl rm
mysql	5501488	0755	edit dl rm
mysqlaccess	111961	0755	edit dl rm
mysqladmin	5042656	0755	edit dl rm
mysqlbinlog	5328504	0755	edit dl rm
mysqlcheck	5035576	0755	edit dl rm
mysqldump	5128224	0755	edit dl rm
mysqld_multi	27425	0755	edit dl rm
mysqld_safe	31214	0755	edit dl rm
mysqld_safe_helper	4691792	0755	edit dl rm
mysqlimport	5030448	0755	edit dl rm
mysqlshow	5024736	0755	edit dl rm
mysqlslap	5044280	0755	edit dl rm
mysql_config	4623	0755	edit dl rm
mysql_embedded	24911320	0755	edit dl rm
mysql_find_rows	3290	0755	edit dl rm
mysql_fix_extensions	1250	0755	edit dl rm
mysql_install_db	22692	0755	edit dl rm
mysql_plugin	4734912	0755	edit dl rm
mysql_tzinfo_to_sql	4734336	0755	edit dl rm
mysql_upgrade	5185856	0755	edit dl rm
mysql_waitpid	4721616	0755	edit dl rm
mytop	73757	0755	edit dl rm
my_print_defaults	4726288	0755	edit dl rm
nail	418704	0755	edit dl rm
named-rrchecker	20352	0755	edit dl rm
namei	33896	0755	edit dl rm
nano	253888	0755	edit dl rm
nc	50576	0755	edit dl rm
ncurses6-config	6015	0755	edit dl rm
ncursesw6-config	6018	0755	edit dl rm
ndptool	25040	0755	edit dl rm
neato	12552	0755	edit dl rm
needs-restarting	3702	0755	edit dl rm
neqn	908	0755	edit dl rm
netcat	50576	0755	edit dl rm
netstat	162488	0755	edit dl rm
newgidmap	48960	0755	edit dl rm
newgrp	43480	0755	edit dl rm
newuidmap	48920	0755	edit dl rm
nf-ct-add	16856	0755	edit dl rm
nf-ct-events	12672	0755	edit dl rm
nf-ct-list	16888	0755	edit dl rm
nf-exp-add	17272	0755	edit dl rm
nf-exp-delete	17056	0755	edit dl rm
nf-exp-list	16888	0755	edit dl rm
nf-log	12648	0755	edit dl rm
nf-monitor	12656	0755	edit dl rm
nf-queue	16744	0755	edit dl rm
ngettext	50144	0755	edit dl rm
nice	38224	0755	edit dl rm
nisdomainname	21664	0755	edit dl rm
nl	46648	0755	edit dl rm
nl-addr-add	12632	0755	edit dl rm
nl-addr-delete	17168	0755	edit dl rm
nl-addr-list	17280	0755	edit dl rm
nl-class-add	17128	0755	edit dl rm
nl-class-delete	12928	0755	edit dl rm
nl-class-list	12896	0755	edit dl rm
nl-classid-lookup	12768	0755	edit dl rm
nl-cls-add	17168	0755	edit dl rm
nl-cls-delete	17176	0755	edit dl rm
nl-cls-list	13040	0755	edit dl rm
nl-fib-lookup	12800	0755	edit dl rm
nl-link-enslave	12152	0755	edit dl rm
nl-link-ifindex2name	12152	0755	edit dl rm
nl-link-list	12528	0755	edit dl rm
nl-link-name2ifindex	12144	0755	edit dl rm
nl-link-release	12144	0755	edit dl rm
nl-link-set	13072	0755	edit dl rm
nl-link-stats	12888	0755	edit dl rm
nl-list-caches	12568	0755	edit dl rm
nl-list-sockets	12152	0755	edit dl rm
nl-monitor	12816	0755	edit dl rm
nl-neigh-add	12928	0755	edit dl rm
nl-neigh-delete	12968	0755	edit dl rm
nl-neigh-list	12480	0755	edit dl rm
nl-neightbl-list	12296	0755	edit dl rm
nl-pktloc-lookup	12864	0755	edit dl rm
nl-qdisc-add	12952	0755	edit dl rm
nl-qdisc-delete	12928	0755	edit dl rm
nl-qdisc-list	17144	0755	edit dl rm
nl-route-add	16784	0755	edit dl rm
nl-route-delete	17288	0755	edit dl rm
nl-route-get	12648	0755	edit dl rm
nl-route-list	16832	0755	edit dl rm
nl-rule-list	12336	0755	edit dl rm
nl-tctree-list	12960	0755	edit dl rm
nl-util-addr	12136	0755	edit dl rm
nm	51584	0755	edit dl rm
nm-online	21336	0755	edit dl rm
nmcli	1033216	0755	edit dl rm
nmtui	802936	0755	edit dl rm
nmtui-connect	802936	0755	edit dl rm
nmtui-edit	802936	0755	edit dl rm
nmtui-hostname	802936	0755	edit dl rm
nohup	38312	0755	edit dl rm
nop	12800	0755	edit dl rm
nproc	38304	0755	edit dl rm
nroff	3312	0755	edit dl rm
nsenter	34096	0755	edit dl rm
nslookup	149768	0755	edit dl rm
nss-policy-check	16696	0755	edit dl rm
nsupdate	74808	0755	edit dl rm
numfmt	67216	0755	edit dl rm
objcopy	245832	0755	edit dl rm
objdump	429832	0755	edit dl rm
od	75576	0755	edit dl rm
odbcinst	29576	0755	edit dl rm
odbc_config	12128	0755	edit dl rm
open	21472	0755	edit dl rm
openssl	763848	0755	edit dl rm
openvt	21472	0755	edit dl rm
os-prober	5915	0755	edit dl rm
osage	12552	0755	edit dl rm
p11-kit	38040	0755	edit dl rm
package-cleanup	3702	0755	edit dl rm
page_owner_sort	11616	0755	edit dl rm
pango-list	12160	0755	edit dl rm
pango-view	58816	0755	edit dl rm
paperconf	13384	0755	edit dl rm
passwd	33560	4755	edit dl rm
paste	38280	0755	edit dl rm
patch	211416	0755	edit dl rm
patchwork	12552	0755	edit dl rm
pathchk	38224	0755	edit dl rm
pathfix.py	6790	0755	edit dl rm
pcre2-config	1950	0755	edit dl rm
pdf2dsc	698	0755	edit dl rm
pdf2ps	909	0755	edit dl rm
pdnsutil	5442112	0755	edit dl rm
pdns_control	497936	0755	edit dl rm
peekfd	16904	0755	edit dl rm
perl	12728	0755	edit dl rm
perl5.26.3	12728	0755	edit dl rm
perlbug	45458	0755	edit dl rm
perldoc	118	0755	edit dl rm
perlivp	10813	0755	edit dl rm
perlml	6768	0755	edit dl rm
perlthanks	45458	0755	edit dl rm
perror	4928008	0755	edit dl rm
pflags	2636	0755	edit dl rm
pftp	103632	0755	edit dl rm
pgrep	29536	0755	edit dl rm
php	937	0755	edit dl rm
pic	300896	0755	edit dl rm
piconv	8271	0755	edit dl rm
pidof	17096	0755	edit dl rm
pidstat	67296	0755	edit dl rm
pigz	128392	0755	edit dl rm
pinentry	2404	0755	edit dl rm
pinentry-curses	79760	0755	edit dl rm
ping	67712	0755	edit dl rm
pinky	42456	0755	edit dl rm
pip-3	209	0755	edit dl rm
pip-3.6	209	0755	edit dl rm
pip3	209	0755	edit dl rm
pip3.6	209	0755	edit dl rm
pk12util	113784	0755	edit dl rm
pkaction	16776	0755	edit dl rm
pkcheck	25016	0755	edit dl rm
pkexec	29088	0755	edit dl rm
pkg-config	41000	0755	edit dl rm
pkgconf	41000	0755	edit dl rm
pkill	29536	0755	edit dl rm
pkla-admin-identities	26336	0755	edit dl rm
pkla-check-authorization	34592	0755	edit dl rm
pkttyagent	20872	0755	edit dl rm
pl2pm	4533	0755	edit dl rm
pldd	17152	0755	edit dl rm
pmap	33568	0755	edit dl rm
png-fix-itxt	12136	0755	edit dl rm
pngfix	54120	0755	edit dl rm
pod2html	4134	0755	edit dl rm
pod2man	15034	0755	edit dl rm
pod2text	10803	0755	edit dl rm
pod2usage	3948	0755	edit dl rm
podchecker	3658	0755	edit dl rm
podselect	2527	0755	edit dl rm
POST	16217	0755	edit dl rm
post-grohtml	244456	0755	edit dl rm
powernow-k8-decode	11136	0755	edit dl rm
pr	84120	0755	edit dl rm
pre-grohtml	133688	0755	edit dl rm
precat	5656	0755	edit dl rm
preconv	59032	0755	edit dl rm
preunzip	5656	0755	edit dl rm
prezip	5656	0755	edit dl rm
prezip-bin	12264	0755	edit dl rm
printenv	34120	0755	edit dl rm
printf	54848	0755	edit dl rm
prlimit	38440	0755	edit dl rm
prl_backup	7544	0755	edit dl rm
procan	84584	0755	edit dl rm
protoc	16888	0755	edit dl rm
protoc-c	250664	0755	edit dl rm
protoc-gen-c	250664	0755	edit dl rm
prove	13562	0755	edit dl rm
prtstat	21000	0755	edit dl rm
prune	17128	0755	edit dl rm
ps	137984	0755	edit dl rm
ps2ascii	631	0755	edit dl rm
ps2epsi	2752	0755	edit dl rm
ps2pdf	272	0755	edit dl rm
ps2pdf12	215	0755	edit dl rm
ps2pdf13	215	0755	edit dl rm
ps2pdf14	215	0755	edit dl rm
ps2pdfwr	1097	0755	edit dl rm
ps2ps	647	0755	edit dl rm
ps2ps2	669	0755	edit dl rm
psfaddtable	21152	0755	edit dl rm
psfgettable	21152	0755	edit dl rm
psfstriptable	21152	0755	edit dl rm
psfxtable	21152	0755	edit dl rm
pslog	12784	0755	edit dl rm
pstree	34336	0755	edit dl rm
pstree.x11	34336	0755	edit dl rm
ptar	3456	0755	edit dl rm
ptardiff	2535	0755	edit dl rm
ptargrep	4299	0755	edit dl rm
ptx	79864	0755	edit dl rm
pure-pw	39768	0755	edit dl rm
pure-pwconvert	10976	0755	edit dl rm
pure-statsdecode	10976	0755	edit dl rm
pv	75328	0755	edit dl rm
pwd	38320	0755	edit dl rm
pwdx	12984	0755	edit dl rm
pwmake	12560	0755	edit dl rm
pwscore	12560	0755	edit dl rm
pybabel	388	0755	edit dl rm
pydoc-3	89	0755	edit dl rm
pydoc3	89	0755	edit dl rm
pydoc3.6	89	0755	edit dl rm
pydoc3.12	79	0755	edit dl rm
pyjwt	384	0755	edit dl rm
python-html2text	406	0755	edit dl rm
python3	11872	0755	edit dl rm
python3-config	204	0755	edit dl rm
python3-html2text	406	0755	edit dl rm
python3.6	11872	0755	edit dl rm
python3.6-config	204	0755	edit dl rm
python3.6m	11872	0755	edit dl rm
python3.6m-config	204	0755	edit dl rm
python3.6m-x86_64-config	3626	0755	edit dl rm
python3.12	7752	0755	edit dl rm
pyvenv-3	446	0755	edit dl rm
pyvenv-3.6	446	0755	edit dl rm
qemu-ga	1004408	0755	edit dl rm
quota	93688	4755	edit dl rm
quotasync	76480	0755	edit dl rm
ranlib	63456	0755	edit dl rm
raw	16896	0755	edit dl rm
rctest	215744	0755	edit dl rm
read	28	0755	edit dl rm
readelf	639528	0755	edit dl rm
readlink	46984	0755	edit dl rm
realpath	51144	0755	edit dl rm
recode-sr-latin	18424	0755	edit dl rm
rename	16896	0755	edit dl rm
renew-dummy-cert	725	0755	edit dl rm
renice	16856	0755	edit dl rm
replace	4704088	0755	edit dl rm
repo-graph	3702	0755	edit dl rm
repoclosure	3702	0755	edit dl rm
repodiff	3702	0755	edit dl rm
repomanage	3702	0755	edit dl rm
repoquery	3702	0755	edit dl rm
reposync	3702	0755	edit dl rm
repotrack	3702	0755	edit dl rm
rescan-scsi-bus.sh	39161	0755	edit dl rm
reset	25352	0755	edit dl rm
resizecons	21272	0755	edit dl rm
resolvectl	200448	0755	edit dl rm
resolveip	4721560	0755	edit dl rm
resolve_stack_dump	4725728	0755	edit dl rm
rev	12760	0755	edit dl rm
rfcomm	176664	0755	edit dl rm
rm	72064	0755	edit dl rm
rmdir	46552	0755	edit dl rm
rnano	253888	0755	edit dl rm
rpcbind	63024	0755	edit dl rm
rpcinfo	33424	0755	edit dl rm
rpm	21352	0755	edit dl rm
rpm2archive	20952	0755	edit dl rm
rpm2cpio	12128	0755	edit dl rm
rpmdb	17368	0755	edit dl rm
rpmkeys	17272	0755	edit dl rm
rpmquery	21352	0755	edit dl rm
rpmverify	21352	0755	edit dl rm
rsync	534888	0755	edit dl rm
rsyslog-recover-qi.pl	6098	0755	edit dl rm
run-parts	1983	0755	edit dl rm
run-with-aspell	85	0755	edit dl rm
runcon	38272	0755	edit dl rm
rvi	1180560	0755	edit dl rm
rview	1180560	0755	edit dl rm
rvim	3067856	0755	edit dl rm
sadf	342600	0755	edit dl rm
sar	139024	0755	edit dl rm
sccmap	21112	0755	edit dl rm
scl	37752	0755	edit dl rm
scl_enabled	258	0755	edit dl rm
scl_source	1863	0755	edit dl rm
scp	105312	0755	edit dl rm
script	37680	0755	edit dl rm
scriptreplay	29696	0755	edit dl rm
scsi-rescan	39161	0755	edit dl rm
scsi_logging_level	8585	0755	edit dl rm
scsi_mandat	3602	0755	edit dl rm
scsi_readcap	1327	0755	edit dl rm
scsi_ready	1121	0755	edit dl rm
scsi_satl	3857	0755	edit dl rm
scsi_start	1285	0755	edit dl rm
scsi_stop	1474	0755	edit dl rm
scsi_temperature	936	0755	edit dl rm
sdiff	107856	0755	edit dl rm
sdptool	281360	0755	edit dl rm
secon	26072	0755	edit dl rm
secret-tool	21680	0755	edit dl rm
sed	118040	0755	edit dl rm
sedismod	280232	0755	edit dl rm
sedispol	203248	0755	edit dl rm
semodule_expand	12576	0755	edit dl rm
semodule_link	12576	0755	edit dl rm
semodule_package	17080	0755	edit dl rm
semodule_unpackage	12592	0755	edit dl rm
seq	54728	0755	edit dl rm
sessreg	17800	0755	edit dl rm
setarch	21256	0755	edit dl rm
setfacl	46064	0755	edit dl rm
setfont	46272	0755	edit dl rm
setkeycodes	12864	0755	edit dl rm
setleds	17000	0755	edit dl rm
setmetamode	12864	0755	edit dl rm
setpriv	46240	0755	edit dl rm
setsid	16768	0755	edit dl rm
setterm	46208	0755	edit dl rm
setup-nsssysinit	1539	0755	edit dl rm
setup-nsssysinit.sh	1539	0755	edit dl rm
setvtrgb	17040	0755	edit dl rm
sfdp	12552	0755	edit dl rm
sftp	163584	0755	edit dl rm
sg	43480	0755	edit dl rm
sginfo	76648	0755	edit dl rm
sgm_dd	33344	0755	edit dl rm
sgp_dd	37848	0755	edit dl rm
sg_bg_ctl	16464	0755	edit dl rm
sg_compare_and_write	21408	0755	edit dl rm
sg_copy_results	21320	0755	edit dl rm
sg_dd	45664	0755	edit dl rm
sg_decode_sense	20832	0755	edit dl rm
sg_emc_trespass	12560	0755	edit dl rm
sg_format	34184	0755	edit dl rm
sg_get_config	34128	0755	edit dl rm
sg_get_lba_status	20968	0755	edit dl rm
sg_ident	16568	0755	edit dl rm
sg_inq	120744	0755	edit dl rm
sg_logs	153632	0755	edit dl rm
sg_luns	25464	0755	edit dl rm
sg_map	16808	0755	edit dl rm
sg_map26	25480	0755	edit dl rm
sg_modes	44944	0755	edit dl rm
sg_opcodes	29376	0755	edit dl rm
sg_persist	34960	0755	edit dl rm
sg_prevent	12368	0755	edit dl rm
sg_raw	24984	0755	edit dl rm
sg_rbuf	21352	0755	edit dl rm
sg_rdac	16264	0755	edit dl rm
sg_read	25016	0755	edit dl rm
sg_readcap	21376	0755	edit dl rm
sg_read_attr	35640	0755	edit dl rm
sg_read_block_limits	12416	0755	edit dl rm
sg_read_buffer	21480	0755	edit dl rm
sg_read_long	16664	0755	edit dl rm
sg_reassign	16624	0755	edit dl rm
sg_referrals	16632	0755	edit dl rm
sg_rep_zones	21168	0755	edit dl rm
sg_requests	16704	0755	edit dl rm
sg_reset	17144	0755	edit dl rm
sg_reset_wp	16568	0755	edit dl rm
sg_rmsn	12368	0755	edit dl rm
sg_rtpg	16568	0755	edit dl rm
sg_safte	20760	0755	edit dl rm
sg_sanitize	25184	0755	edit dl rm
sg_sat_identify	17128	0755	edit dl rm
sg_sat_phy_event	21088	0755	edit dl rm
sg_sat_read_gplog	16696	0755	edit dl rm
sg_sat_set_features	16664	0755	edit dl rm
sg_scan	16912	0755	edit dl rm
sg_seek	17272	0755	edit dl rm
sg_senddiag	25888	0755	edit dl rm
sg_ses	121088	0755	edit dl rm
sg_ses_microcode	30200	0755	edit dl rm
sg_start	21448	0755	edit dl rm
sg_stpg	20800	0755	edit dl rm
sg_stream_ctl	20760	0755	edit dl rm
sg_sync	16624	0755	edit dl rm
sg_test_rwbuf	21248	0755	edit dl rm
sg_timestamp	21256	0755	edit dl rm
sg_turs	17160	0755	edit dl rm
sg_unmap	24912	0755	edit dl rm
sg_verify	20960	0755	edit dl rm
sg_vpd	111376	0755	edit dl rm
sg_write_buffer	21768	0755	edit dl rm
sg_write_long	16736	0755	edit dl rm
sg_write_same	25080	0755	edit dl rm
sg_write_verify	21296	0755	edit dl rm
sg_write_x	55056	0755	edit dl rm
sg_wr_mode	20792	0755	edit dl rm
sg_xcopy	41576	0755	edit dl rm
sg_zone	16696	0755	edit dl rm
sh	1154680	0755	edit dl rm
sha1hmac	33440	0755	edit dl rm
sha1sum	46648	0755	edit dl rm
sha224hmac	33440	0755	edit dl rm
sha224sum	46672	0755	edit dl rm
sha256hmac	33440	0755	edit dl rm
sha256sum	46672	0755	edit dl rm
sha384hmac	33440	0755	edit dl rm
sha384sum	46680	0755	edit dl rm
sha512hmac	33440	0755	edit dl rm
sha512sum	46688	0755	edit dl rm
shasum	9892	0755	edit dl rm
showconsolefont	21232	0755	edit dl rm
showkey	16976	0755	edit dl rm
showrgb	13368	0755	edit dl rm
shred	63336	0755	edit dl rm
shuf	59488	0755	edit dl rm
sieve-dump	35872	0755	edit dl rm
sieve-filter	45552	0755	edit dl rm
sieve-test	41392	0755	edit dl rm
sievec	36128	0755	edit dl rm
signver	117544	0755	edit dl rm
sim_client	16664	0755	edit dl rm
size	34048	0755	edit dl rm
skill	29488	0755	edit dl rm
slabinfo	37016	0755	edit dl rm
slabtop	21344	0755	edit dl rm
sleep	38296	0755	edit dl rm
slencheck	12584	0755	edit dl rm
sm3hmac	33440	0755	edit dl rm
snice	29488	0755	edit dl rm
socat	416248	0755	edit dl rm
soelim	43576	0755	edit dl rm
sort	126432	0755	edit dl rm
sotruss	4281	0755	edit dl rm
spell	122	0755	edit dl rm
splain	19150	0755	edit dl rm
split	59440	0755	edit dl rm
sprof	29360	0755	edit dl rm
sqlite3	1346512	0755	edit dl rm
ssh	775776	0755	edit dl rm
ssh-add	354448	0755	edit dl rm
ssh-agent	333384	0755	edit dl rm
ssh-copy-id	10694	0755	edit dl rm
ssh-keygen	437432	0755	edit dl rm
ssh-keyscan	442992	0755	edit dl rm
ssltap	133640	0755	edit dl rm
sss_ssh_authorizedkeys	29472	0755	edit dl rm
sss_ssh_knownhostsproxy	29472	0755	edit dl rm
stat	88232	0755	edit dl rm
stdbuf	50688	0755	edit dl rm
strace	2029832	0755	edit dl rm
strace-log-merge	1821	0755	edit dl rm
stream	12112	0755	edit dl rm
strings	38328	0755	edit dl rm
strip	245856	0755	edit dl rm
stty	79472	0755	edit dl rm
stunnel	230504	0755	edit dl rm
su	50168	4750	edit dl rm
sudo	191000	4111	edit dl rm
sudoedit	191000	4111	edit dl rm
sudoreplay	122056	0111	edit dl rm
sum	46624	0755	edit dl rm
sw-engine	21095632	0755	edit dl rm
sxpm	29504	0755	edit dl rm
sync	38256	0755	edit dl rm
systemctl	223696	0755	edit dl rm
systemd-analyze	1634864	0755	edit dl rm
systemd-ask-password	12312	0755	edit dl rm
systemd-cat	16416	0755	edit dl rm
systemd-cgls	16832	0755	edit dl rm
systemd-cgtop	33672	0755	edit dl rm
systemd-delta	25032	0755	edit dl rm
systemd-detect-virt	12168	0755	edit dl rm
systemd-escape	16392	0755	edit dl rm
systemd-firstboot	37872	0755	edit dl rm
systemd-hwdb	29600	0755	edit dl rm
systemd-inhibit	16416	0755	edit dl rm
systemd-machine-id-setup	25344	0755	edit dl rm
systemd-mount	53896	0755	edit dl rm
systemd-notify	16416	0755	edit dl rm
systemd-path	16400	0755	edit dl rm
systemd-resolve	200448	0755	edit dl rm
systemd-run	50120	0755	edit dl rm
systemd-socket-activate	25368	0755	edit dl rm
systemd-stdio-bridge	16408	0755	edit dl rm
systemd-sysusers	54320	0755	edit dl rm
systemd-tmpfiles	75056	0755	edit dl rm
systemd-tty-ask-password-agent	33608	0755	edit dl rm
systemd-umount	53896	0755	edit dl rm
tabs	16952	0755	edit dl rm
tac	42488	0755	edit dl rm
tail	75912	0755	edit dl rm
tapestat	42312	0755	edit dl rm
tar	459768	0755	edit dl rm
taskset	38152	0755	edit dl rm
tbl	158320	0755	edit dl rm
tclsh	9256	0755	edit dl rm
tclsh8.6	9256	0755	edit dl rm
tcptraceroute	1585	0755	edit dl rm
teamd	164368	0755	edit dl rm
teamdctl	31096	0755	edit dl rm
teamnl	20960	0755	edit dl rm
tee	42472	0755	edit dl rm
test	54848	0755	edit dl rm
tic	87360	0755	edit dl rm
timedatectl	37848	0755	edit dl rm
timeout	42864	0755	edit dl rm
tload	17160	0755	edit dl rm
tmon	40576	0755	edit dl rm
tmpwatch	36320	0755	edit dl rm
toe	16848	0755	edit dl rm
top	124616	0755	edit dl rm
touch	96192	0755	edit dl rm
tput	25392	0755	edit dl rm
tr	50816	0755	edit dl rm
tracepath	20928	0755	edit dl rm
traceroute	72672	0755	edit dl rm
traceroute6	72672	0755	edit dl rm
tred	16984	0755	edit dl rm
troff	824344	0755	edit dl rm
true	34128	0755	edit dl rm
truncate	42352	0755	edit dl rm
trust	224824	0755	edit dl rm
tset	25352	0755	edit dl rm
tsort	42488	0755	edit dl rm
tty	34112	0755	edit dl rm
turbostat	133936	0755	edit dl rm
twopi	12552	0755	edit dl rm
type	28	0755	edit dl rm
tzselect	15370	0755	edit dl rm
uapi	3496912	0755	edit dl rm
ucs2any	25000	0755	edit dl rm
udevadm	434752	0755	edit dl rm
udisksctl	62192	0755	edit dl rm
ul	21080	0755	edit dl rm
ulimit	30	0755	edit dl rm
umask	29	0755	edit dl rm
umount	33536	0755	edit dl rm
unalias	31	0755	edit dl rm
uname	38224	0755	edit dl rm
uname26	21256	0755	edit dl rm
unexpand	46688	0755	edit dl rm
unflatten	17024	0755	edit dl rm
unicode_start	2613	0755	edit dl rm
unicode_stop	363	0755	edit dl rm
uniq	50832	0755	edit dl rm
unlink	34144	0755	edit dl rm
unpigz	128392	0755	edit dl rm
unshare	25528	0755	edit dl rm
unversioned-python	157	0755	edit dl rm
unxz	84056	0755	edit dl rm
unzip	206728	0755	edit dl rm
unzipsfx	103912	0755	edit dl rm
update-ca-trust	1268	0755	edit dl rm
update-crypto-policies	87	0755	edit dl rm
update-gtk-immodules	313	0755	edit dl rm
update-mime-database	58592	0755	edit dl rm
uptime	12888	0755	edit dl rm
users	38296	0755	edit dl rm
usleep	12144	0755	edit dl rm
utmpdump	29352	0755	edit dl rm
uuclient	16256	0755	edit dl rm
uuidgen	16768	0755	edit dl rm
uuidparse	38024	0755	edit dl rm
vdir	143256	0755	edit dl rm
vi	1180560	0755	edit dl rm
view	1180560	0755	edit dl rm
vim	3067856	0755	edit dl rm
vimdiff	3067856	0755	edit dl rm
vimdot	1082	0755	edit dl rm
vimtutor	2121	0755	edit dl rm
vlock	21328	0755	edit dl rm
vmstat	37672	0755	edit dl rm
w	21248	0755	edit dl rm
wait	28	0755	edit dl rm
wall	33840	0755	edit dl rm
watch	29888	0755	edit dl rm
watchgnupg	16832	0755	edit dl rm
wc	50832	0755	edit dl rm
wdctl	37864	0755	edit dl rm
wget	533944	0755	edit dl rm
whatis	55336	0755	edit dl rm
whereis	29976	0755	edit dl rm
which	30088	0755	edit dl rm
whiptail	33880	0755	edit dl rm
who	54880	0755	edit dl rm
whoami	34136	0755	edit dl rm
wmf2eps	17560	0755	edit dl rm
wmf2fig	17560	0755	edit dl rm
wmf2gd	17552	0755	edit dl rm
wmf2svg	17576	0755	edit dl rm
wmf2x	17536	0755	edit dl rm
word-list-compress	12280	0755	edit dl rm
write	21112	0755	edit dl rm
wsrep_sst_backup	2447	0755	edit dl rm
wsrep_sst_common	70141	0644	edit dl rm
wsrep_sst_mariabackup	54265	0755	edit dl rm
wsrep_sst_mysqldump	8296	0755	edit dl rm
wsrep_sst_rsync	31473	0755	edit dl rm
wsrep_sst_rsync_wan	31473	0755	edit dl rm
x86_64	21256	0755	edit dl rm
x86_64-redhat-linux-c++	1266616	0755	edit dl rm
x86_64-redhat-linux-g++	1266616	0755	edit dl rm
x86_64-redhat-linux-gcc	1266576	0755	edit dl rm
x86_64-redhat-linux-gcc-8	1266576	0755	edit dl rm
x86_64-redhat-linux-gnu-pkg-config	424	0755	edit dl rm
x86_energy_perf_policy	32720	0755	edit dl rm
xargs	75888	0755	edit dl rm
xb-tool	29392	0755	edit dl rm
xgamma	17488	0755	edit dl rm
xgettext	290696	0755	edit dl rm
xhost	17528	0755	edit dl rm
xinput	65136	0755	edit dl rm
xkill	17512	0755	edit dl rm
xml2-config	1746	0755	edit dl rm
xmlcatalog	20872	0755	edit dl rm
xmllint	75136	0755	edit dl rm
xmlwf	37856	0755	edit dl rm
xmodmap	40936	0755	edit dl rm
xorg-x11-fonts-update-dirs	1322	0744	edit dl rm
xrandr	67032	0755	edit dl rm
xrdb	34800	0755	edit dl rm
xrefresh	18368	0755	edit dl rm
xset	38088	0755	edit dl rm
xsetpointer	13368	0755	edit dl rm
xsetroot	21952	0755	edit dl rm
xslt-config	2418	0755	edit dl rm
xsltproc	29152	0755	edit dl rm
xstdcmap	18104	0755	edit dl rm
xsubpp	5080	0755	edit dl rm
xxd	21032	0755	edit dl rm
xz	84056	0755	edit dl rm
xzcat	84056	0755	edit dl rm
xzcmp	6632	0755	edit dl rm
xzdec	16880	0755	edit dl rm
xzdiff	6632	0755	edit dl rm
xzegrep	5902	0755	edit dl rm
xzfgrep	5902	0755	edit dl rm
xzgrep	5902	0755	edit dl rm
xzless	1802	0755	edit dl rm
xzmore	2161	0755	edit dl rm
yat2m	34144	0755	edit dl rm
yes	34168	0755	edit dl rm
ypdomainname	21664	0755	edit dl rm
yum	2104	0755	edit dl rm
yum-builddep	3702	0755	edit dl rm
yum-config-manager	3702	0755	edit dl rm
yum-debug-dump	3702	0755	edit dl rm
yum-debug-restore	3702	0755	edit dl rm
yum-groups-manager	3702	0755	edit dl rm
yumdownloader	3702	0755	edit dl rm
zcat	1983	0755	edit dl rm
zcmp	1677	0755	edit dl rm
zdiff	5879	0755	edit dl rm
zegrep	29	0755	edit dl rm
zfgrep	29	0755	edit dl rm
zforce	2080	0755	edit dl rm
zgrep	7582	0755	edit dl rm
zip	234496	0755	edit dl rm
zipcloak	105376	0755	edit dl rm
zipdetails	50576	0755	edit dl rm
zipgrep	2953	0755	edit dl rm
zipinfo	206728	0755	edit dl rm
zipnote	100104	0755	edit dl rm
zipsplit	100104	0755	edit dl rm
zless	2205	0755	edit dl rm
zmore	1841	0755	edit dl rm
znew	4552	0755	edit dl rm
zone2json	1452648	0755	edit dl rm
zone2sql	1473776	0755	edit dl rm
zsoelim	43576	0755	edit dl rm
[	54888	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: