Gecko [ emad.team ]

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

Rename

#!/usr/bin/perl
## Emacs, this is -*- perl -*- mode? :-)

# Copyright (c) 2000, 2017, Oracle and/or its affiliates. All rights reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; version 2
# of the License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
# MA 02110-1335  USA

##
##        Permission setter for MySQL
##
##        mady by Luuk de Boer (luuk@wxs.nl) 1998.
##        it's made under GPL ...:-))
##
##
############################################################################
## History
##
## 1.0 first start of the program
## 1.1 some changes from monty and after that
##     initial release in mysql 3.22.10 (nov 1998)
## 1.2 begin screen now in a loop + quit is using 0 instead of 9
##     after ideas of Paul DuBois.
## 1.2a Add Grant, References, Index and Alter privilege handling (Monty)
## 1.3 Applied patch provided by Martin Mokrejs <mmokrejs@natur.cuni.cz>
##     (General code cleanup, use the GRANT statement instead of updating
##     the privilege tables directly, added option to revoke privileges)
## 1.4 Remove option 6 which attempted to erroneously grant global privileges

#### TODO
#
# empty ... suggestions ... mail them to me ...

$version="1.4";

use DBI;
use Getopt::Long;
use strict;
use vars qw($dbh $sth $hostname $opt_user $opt_password $opt_help $opt_host
	    $opt_socket $opt_port $host $version);

my $sqlhost = "";
my $user = "";

$dbh=$host=$opt_user= $opt_password= $opt_help= $opt_host= $opt_socket= "";
$opt_port=3306;

read_my_cnf();		# Read options from ~/.my.cnf

GetOptions("user=s","password=s","help","host=s","socket=s","port=i");

usage() if ($opt_help); # the help function

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

if ($opt_host =~ s/:(\d+)$//)
{
  $opt_port = $1;
}

if ($opt_host eq '')
{
  $sqlhost = "localhost";
}
else
{
  $sqlhost = $opt_host;
}

# ask for a password if no password is set already
if ($opt_password eq '')
{
  system "stty -echo";
  print "Password for user $opt_user to connect to MariaDB: ";
  $opt_password = <STDIN>;
  chomp($opt_password);
  system "stty echo";
  print "\n";
}

## Socket takes precedence.
my $dsn;
my $prefix= 'mysql';

if (eval {DBI->install_driver("MariaDB")}) {
  $dsn ="DBI:MariaDB:;";
  $prefix= 'mariadb';
}
else {
  $dsn = "DBI:mysql:;";
}

if ($opt_socket and -S $opt_socket)
{
  $dsn .= "${prefix}_socket=$opt_socket";
}
else
{
  $dsn .= "host=$sqlhost";
  if ($sqlhost ne "localhost")
  {
    $dsn .= ";port=$opt_port";
  }
}

# make the connection to MariaDB
$dbh= DBI->connect($dsn,$opt_user,$opt_password, { RaiseError => 1, PrintError => 0}) ||
  die("Can't make a connection to the MariaDB server.\n The error: $DBI::errstr");

# the start of the program
&q1();
exit(0); # the end...

#####
# below all subroutines of the program
#####

###
# the beginning of the program
###
sub q1 { # first question ...
  my ($answer,$end);
  while (! $end) {
    print "#"x70;
    print "\n";
    print "## Welcome to the permission setter $version for MariaDB.\n";
    print "## made by Luuk de Boer\n";
    print "#"x70;
    print "\n";
    print "What would you like to do:\n";
    print "  1. Set password for an existing user.\n";
    print "  2. Create a database + user privilege for that database\n";
		print "     and host combination (user can only do SELECT)\n";
    print "  3. Create/append user privilege for an existing database\n";
		print "     and host combination (user can only do SELECT)\n";
    print "  4. Create/append broader user privileges for an existing\n";
		print "     database and host combination\n";
		print "     (user can do SELECT,INSERT,UPDATE,DELETE)\n";
    print "  5. Create/append quite extended user privileges for an\n";
		print "     existing database and host combination (user can do\n";
		print "     SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,INDEX,\n";
		print "     LOCK TABLES,CREATE TEMPORARY TABLES)\n";
    print "  6. Create/append full privileges for an existing database\n";
		print "     and host combination (user has FULL privilege)\n";
    print "  7. Remove all privileges for for an existing database and\n";
		print "     host combination.\n";
    print "     (user will have all permission fields set to N)\n";
    print "  0. exit this program\n";
    print "\nMake your choice [1,2,3,4,5,6,7,0]: ";
    while (<STDIN>) {
      $answer = $_;
      chomp($answer);
      if ($answer =~ /^[1234567]$/) {
        if ($answer == 1) {
	   setpwd();
        } elsif ($answer =~ /^[234567]$/) {
	   addall($answer);
	} else {
          print "Sorry, something went wrong. With such option number you should not get here.\n\n";
          $end = 1;
        }
      } elsif ($answer == 0) {
        print "We hope we can help you next time \n\n";
	$end = 1;
      } else {
        print "Your answer was $answer\n";
        print "and that's wrong .... Try again\n";
      }
      last;
    }
  }
}

###
# set a password for a user
###
sub setpwd
{
  my ($user,$pass,$host) = "";
  print "\n\nSetting a (new) password for a user.\n";

$user = user();
  $pass = newpass($user);
  $host = hosts($user);

print "#"x70;
  print "\n\n";
  print "That was it ... here is an overview of what you gave to me:\n";
  print "The username 		: $user\n";
#  print "The password		: $pass\n";
  print "The host		: $host\n";
  print "#"x70;
  print "\n\n";
  print "Are you pretty sure you would like to implement this [yes/no]: ";
  my $no = <STDIN>;
  chomp($no);
  if ($no =~ /n/i)
  {
    print "Okay .. that was it then ... See ya\n\n";
    return(0);
  }
  else
  {
    print "Okay ... let's go then ...\n\n";
  }
  $user = $dbh->quote($user);
  $host = $dbh->quote($host);
  if ($pass eq '')
  {
    $pass = "''";
  }
  else
  {
    $pass = "PASSWORD(". $dbh->quote($pass) . ")";
  }
  my $uh= $user."@".$host;
  my $sth = $dbh->prepare("set password for $uh =$pass") || die $dbh->errstr;
  $sth->execute || die $dbh->errstr;
  $sth->finish;
  print "The password is set for user $uh.\n\n";

}

###
# all things which will be added are done here
###
sub addall {
  my ($todo) = @_;
  my ($answer,$good,$db,$user,$pass,$host,$priv);

if ($todo == 2) {
    $db = newdatabase();
  } else {
    $db = database();
  }

$user = newuser();
  $pass = newpass("$user");
  $host = newhosts();

print "#"x70;
  print "\n\n";
  print "That was it ... here is an overview of what you gave to me:\n";
  print "The database name	: $db\n";
  print "The username 		: $user\n";
#  print "The password		: $pass\n";
  print "The host(s)		: $host\n";
  print "#"x70;
  print "\n\n";
  print "Are you pretty sure you would like to implement this [yes/no]: ";
  my $no = <STDIN>;
  chomp($no);
  if ($no =~ /n/i) {
    print "Okay .. that was it then ... See ya\n\n";
    return(0);
  } else {
    print "Okay ... let's go then ...\n\n";
  }

if ($todo == 2) {
    # create the database
    if ($db) {
    my $sth = $dbh->do("CREATE DATABASE $db") || $dbh->errstr;
    } else {
      print STDERR "What do you want? You wanted to create new database and add new user, right?\n";
      die "But then specify databasename, please\n";
  }
  }

if ( ( !$todo ) or not ( $todo =~ m/^[2-7]$/ ) ) {
    print STDERR "Sorry, select option $todo isn't known inside the program .. See ya\n";
    quit();
  }

my @hosts = split(/,/,$host);
  if (!$user) {
     die "username not specified: $user\n";
  }
  if (!$db) {
     die "databasename is not specified nor *\n";
  }
  foreach $host (@hosts) {
    # user privileges: SELECT
    if (($todo == 2) || ($todo == 3)) {
      $sth = $dbh->do("GRANT SELECT ON $db.* TO \'$user\'@\'$host\' IDENTIFIED BY \'$pass\'") || die $dbh->errstr;
    } elsif ($todo == 4) {
      # user privileges: SELECT,INSERT,UPDATE,DELETE
      $sth = $dbh->do("GRANT SELECT,INSERT,UPDATE,DELETE ON $db.* TO \'$user\'@\'$host\' IDENTIFIED BY \'$pass\'") || die $dbh->errstr;
    } elsif ($todo == 5) {
      # user privileges: SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,INDEX,LOCK TABLES,CREATE TEMPORARY TABLES
      $sth = $dbh->do("GRANT SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,INDEX,LOCK TABLES,CREATE TEMPORARY TABLES ON $db.* TO \'$user\'@\'$host\' IDENTIFIED BY \'$pass\'") || die $dbh->errstr;
    } elsif ($todo == 6) {
       # all privileges
       $sth = $dbh->do("GRANT ALL ON $db.* TO \'$user\'\@\'$host\' IDENTIFIED BY \'$pass\'") || die $dbh->errstr;
    } elsif ($todo == 7) {
       # all privileges set to N
       $sth = $dbh->do("REVOKE ALL ON $db.* FROM \'$user\'\@\'$host\'") || die $dbh->errstr;
    }
    }
  print "Everything is inserted and mysql privileges have been reloaded.\n\n";
}

###
# ask for a new database name
###
sub newdatabase {
  my ($answer,$good,$db);
  print "\n\nWhich database would you like to add: ";
  while (<STDIN>) {
    $answer = $_;
    $good = 0;
    chomp($answer);
    if ($answer) {
      my $sth = $dbh->prepare("SHOW DATABASES") || die $dbh->errstr;
      $sth->execute || die $dbh->errstr;
      while (my @r = $sth->fetchrow_array) {
        if ($r[0] eq $answer) {
          print "\n\nSorry, this database name is already in use; try something else: ";
          $good = 1;
        }
      }
    } else {
      print "You must type something ...\nTry again: ";
      next;
    }
    last if ($good == 0);
  }
  $db = $answer;
  print "The new database $db will be created\n";
  return($db);
}

###
# select a database
###
sub database {
  my ($answer,$good,$db);
  print "\n\nWhich database from existing databases would you like to select: \n";
  print "You can choose from: \n";
  my $sth = $dbh->prepare("show databases") || die $dbh->errstr;
  $sth->execute || die $dbh->errstr;
  while (my @r = $sth->fetchrow_array) {
    print "  - $r[0] \n";
  }
  print "Which database will it be (case sensitive). Type * for any: \n";
  while (<STDIN>) {
    $answer = $_;
    $good = 0;
    chomp($answer);
    if ($answer) {
      if ($answer eq "*") {
        print "OK, the user entry will NOT be limited to any database";
        return("*");
      }
      my $sth = $dbh->prepare("show databases") || die $dbh->errstr;
      $sth->execute || die $dbh->errstr;
      while (my @r = $sth->fetchrow_array) {
        if ($r[0] eq $answer) {
          $good = 1;
          $db = $r[0];
          last;
        }
      }
    } else {
        print "Type either database name or * meaning any databasename. That means";
        print " any of those above but also any which will be created in future!";
        print " This option gives a user chance to operate on databse mysql, which";
        print " contains privilege settings. That is really risky!\n";
      next;
    }
    if ($good == 1) {
      last;
    } else {
      print "You must select one from the list.\nTry again: ";
      next;
    }
  }
  print "The database $db will be used.\n";
  return($db);
}

###
# ask for a new username
###
sub newuser
{
  my $user = "";
  my $answer = "";

print "\nWhat username is to be created: ";
  while(<STDIN>)
  {
    $answer = $_;
    chomp($answer);
    if ($answer)
    {
      $user = $answer;
    }
    else
    {
      print "You must type something ...\nTry again: ";
      next;
    }
    last;
  }
  print "Username = $user\n";
  return($user);
}

###
# ask for a user which is already in the user table
###
sub user
{
  my ($answer,$user);

print "\nFor which user do you want to specify a password: ";
  while(<STDIN>)
  {
    $answer = $_;
    chomp($answer);
    if ($answer)
    {
      my $sth = $dbh->prepare("select User from mysql.user where User = '$answer'") || die $dbh->errstr;
      $sth->execute || die $dbh->errstr;
      my @r = $sth->fetchrow_array;
      if ($r[0])
      {
        $user = $r[0];
      }
      else
      {
       print "Sorry, user $answer isn't known in the user table.\nTry again: ";
       next;
     }
    }
    else
    {
      print "You must type something ...\nTry again: ";
      next;
    }
    last;
  }
  print "Username = $user\n";
  return($user);
}

###
# ask for a new password
###
sub newpass
{
  my ($user) = @_;
  my ($pass,$answer,$good,$yes);

print "Would you like to set a password for $user [y/n]: ";
  $yes = <STDIN>;
  chomp($yes);
  if ($yes =~ /y/)
  {
    system "stty -echo";
    print "What password do you want to specify for $user: ";
    while(<STDIN>)
    {
      $answer = $_;
      chomp($answer);
      system "stty echo";
      print "\n";
      if ($answer)
      {
        system "stty -echo";
        print "Type the password again: ";
        my $second = <STDIN>;
        chomp($second);
        system "stty echo";
        print "\n";
        if ($answer ne $second)
        {
          print "Passwords aren't the same; we begin from scratch again.\n";
          system "stty -echo";
          print "Password please: ";
          next;
        }
        else
        {
          $pass = $answer;
        }
      }
      else
      {
        print "You must type something ...\nTry again: ";
        next;
      }
      last;
    }
#    print "The password for $user is $pass.\n";
  }
  else
  {
    print "We won't set a password so the user doesn't have to use it\n";
    $pass = "";
  }
  return($pass);
}

###
# ask for new hosts
###
sub newhosts
{
  my ($host,$answer,$good);

print "We now need to know from what host(s) the user will connect.\n";
  print "Keep in mind that % means 'from any host' ...\n";
  print "The host please: ";
  while(<STDIN>)
  {
    $answer = $_;
    chomp($answer);
    if ($answer)
    {
      $host .= ",$answer";
      print "Would you like to add another host [yes/no]: ";
      my $yes = <STDIN>;
      chomp($yes);
      if ($yes =~ /y/i)
      {
        print "Okay, give us the host please: ";
        next;
      }
      else
      {
        print "Okay we keep it with this ...\n";
      }
    }
    else
    {
      print "You must type something ...\nTry again: ";
      next;
    }
    last;
  }
  $host =~ s/^,//;
  print "The following host(s) will be used: $host.\n";
  return($host);
}

###
# ask for a host which is already in the user table
###
sub hosts
{
  my ($user) = @_;
  my ($answer,$good,$host);

print "We now need to know which host for $user we have to change.\n";
  print "Choose from the following hosts: \n";
  $user = $dbh->quote($user);
  my $sth = $dbh->prepare("select Host,User from mysql.user where User = $user") || die $dbh->errstr;
  $sth->execute || die $dbh->errstr;
  while (my @r = $sth->fetchrow_array)
  {
    print "  - $r[0] \n";
  }
  print "The host please (case sensitive): ";
  while(<STDIN>)
  {
    $answer = $_;
    chomp($answer);
    if ($answer)
    {
      $sth = $dbh->prepare("select Host,User from mysql.user where Host = '$answer' and User = $user") || die $dbh->errstr;
      $sth->execute || die $dbh->errstr;
      my @r = $sth->fetchrow_array;
      if ($r[0])
      {
        $host = $answer;
        last;
      }
      else
      {
        print "You have to select a host from the list ...\nTry again: ";
        next;
      }
    }
    else
    {
      print "You have to type something ...\nTry again: ";
      next;
    }
    last;
  }
  print "The following host will be used: $host.\n";
  return($host);
}

###
# a nice quit (first disconnect and then exit
###
sub quit
{
  $dbh->disconnect;
  exit(0);
}

###
# Read variables password, port and socket from .my.cnf under the client
# or perl groups
###

sub read_my_cnf
{
  open(TMP,$ENV{'HOME'} . "/.my.cnf") || return 1;
  while (<TMP>)
  {
    if (/^\[(client|perl)\]/i)
    {
      print "Options read from mycnf:\n";
      while ((defined($_=<TMP>)) && !/^\[\w+\]/)
      {
  next if /^\s*($|#)/;  ## skip blanks and comments
	print $_;
	if (/^host\s*=\s*(\S+)/i)
	{
	  $opt_host = $1;
	}
	elsif (/^user\s*=\s*(\S+)/i)
	{
	  $opt_user = $1;
	}
	elsif (/^password\s*=\s*(\S+)/i)
	{
	  $opt_password = $1;
	}
	elsif (/^port\s*=\s*(\S+)/i)
	{
	  $opt_port = $1;
	}
	elsif (/^socket\s*=\s*(\S+)/i)
	{
	  $opt_socket = $1;
	}
      }
      print "------------------------\n";
    }
  }
  close(TMP);
}

###
# the help text
###
sub usage
{
  print <<EOL;
----------------------------------------------------------------------
                 The permission setter for MariaDB.
                      version: $version

made by: Luuk de Boer <luuk\@wxs.nl>
----------------------------------------------------------------------

The permission setter is a little program which can help you add users
or databases or change passwords in MariaDB. Keep in mind that we don't
check permissions which already been set in MariaDB. So if you can't
connect to MariaDB using the permission you just added, take a look at
the permissions which have already been set in MariaDB.

The permission setter first reads your .my.cnf file in your Home
directory if it exists.

Options for the permission setter:

--help		: print this help message and exit.

The options shown below are used for making the connection to the MariaDB
server. Keep in mind that the permissions for the user specified via
these options must be sufficient to add users / create databases / set
passwords.

--user		: is the username to connect with.
--password	: the password of the username.
--host		: the host to connect to.
--socket	: the socket to connect to.
--port		: the port number of the host to connect to.

If you don't give a password and no password is set in your .my.cnf
file, then the permission setter will ask for a password.

EOL
exit(0);
}