Linux srv25.usacloudserver.us 5.14.0-570.39.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Sep 4 05:08:52 EDT 2025 x86_64
LiteSpeed
Server IP : 23.137.84.82 & Your IP : 216.73.216.127
Domains :
Cant Read [ /etc/named.conf ]
User : epicgamerzoneco
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
bin /
Delete
Unzip
Name
Size
Permission
Date
Action
GET
15.82
KB
-rwxr-xr-x
2022-03-25 08:00
[
51.8
KB
-rwxr-xr-x
2025-03-12 12:52
aclocal
35.52
KB
-rwxr-xr-x
2023-09-27 12:16
aclocal-1.16
35.52
KB
-rwxr-xr-x
2023-09-27 12:16
addr2line
27.74
KB
-rwxr-xr-x
2025-03-31 10:32
animate
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
ar
55.98
KB
-rwxr-xr-x
2025-03-31 10:32
arch
31.66
KB
-rwxr-xr-x
2025-03-12 12:52
arpaname
15.11
KB
-rwxr-xr-x
2025-07-29 21:44
as
710.31
KB
-rwxr-xr-x
2025-03-31 10:32
aspell
151.12
KB
-rwxr-xr-x
2022-01-26 21:47
at
1.02
KB
-rwxr-xr-x
2025-08-05 06:15
atq
1.02
KB
-rwxr-xr-x
2025-08-05 06:15
atrm
1.02
KB
-rwxr-xr-x
2025-08-05 06:15
autoconf
14.42
KB
-rwxr-xr-x
2024-10-02 20:06
autoheader
8.33
KB
-rwxr-xr-x
2024-10-02 20:06
autom4te
31.43
KB
-rwxr-xr-x
2024-10-02 20:06
automake
251.93
KB
-rwxr-xr-x
2023-09-27 12:16
automake-1.16
251.93
KB
-rwxr-xr-x
2023-09-27 12:16
autoreconf
20.57
KB
-rwxr-xr-x
2024-10-02 20:06
autoscan
16.72
KB
-rwxr-xr-x
2024-10-02 20:06
autoupdate
33.08
KB
-rwxr-xr-x
2024-10-02 20:06
awk
698.17
KB
-rwxr-xr-x
2022-03-30 22:25
b2sum
51.79
KB
-rwxr-xr-x
2025-03-12 12:52
base32
35.69
KB
-rwxr-xr-x
2025-03-12 12:52
base64
35.7
KB
-rwxr-xr-x
2025-03-12 12:52
basename
35.67
KB
-rwxr-xr-x
2025-03-12 12:52
basenc
48.02
KB
-rwxr-xr-x
2025-03-12 12:52
bash
1.32
MB
-rwxr-xr-x
2024-04-30 14:33
bashbug-64
6.91
KB
-rwxr-xr-x
2024-04-30 14:33
batch
140
B
-rwxr-xr-x
2025-08-05 06:15
bison
494.76
KB
-rwxr-xr-x
2022-01-27 00:15
bunzip2
39.62
KB
-rwxr-xr-x
2025-02-04 03:42
bzcat
39.62
KB
-rwxr-xr-x
2025-02-04 03:42
bzcmp
2.09
KB
-rwxr-xr-x
2025-02-04 03:42
bzdiff
2.09
KB
-rwxr-xr-x
2025-02-04 03:42
bzgrep
2.01
KB
-rwxr-xr-x
2025-02-04 03:42
bzip2
39.62
KB
-rwxr-xr-x
2025-02-04 03:42
bzip2recover
15.4
KB
-rwxr-xr-x
2025-02-04 03:42
bzless
1.23
KB
-rwxr-xr-x
2025-02-04 03:42
bzmore
1.23
KB
-rwxr-xr-x
2025-02-04 03:42
c++
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
c++filt
27.18
KB
-rwxr-xr-x
2025-03-31 10:32
c89
228
B
-rwxr-xr-x
2025-02-12 13:07
c99
219
B
-rwxr-xr-x
2025-02-12 13:07
cagefs_enter.proxied
1.04
KB
-rwxr-xr-x
2025-05-26 11:09
cal
52.01
KB
-rwxr-xr-x
2025-03-13 06:30
captoinfo
87.8
KB
-rwxr-xr-x
2025-08-05 09:46
cat
35.66
KB
-rwxr-xr-x
2025-03-12 12:52
catchsegv
3.21
KB
-rwxr-xr-x
2025-08-04 21:43
cc
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
chcon
60.24
KB
-rwxr-xr-x
2025-03-12 12:52
chgrp
56.19
KB
-rwxr-xr-x
2025-03-12 12:52
chmod
56.16
KB
-rwxr-xr-x
2025-03-12 12:52
chown
60.19
KB
-rwxr-xr-x
2025-03-12 12:52
chrt
27.48
KB
-rwxr-xr-x
2025-03-13 06:30
cksum
35.57
KB
-rwxr-xr-x
2025-03-12 12:52
cldetect
10.35
KB
-rwxr-xr-x
2025-08-28 09:14
clear
15.16
KB
-rwxr-xr-x
2025-08-05 09:46
cloudlinux-awp-user
1.78
KB
-rwxr-xr-x
2025-08-21 15:01
clwpos-user
1.78
KB
-rwxr-xr-x
2025-08-21 15:01
cmp
40.13
KB
-rwxr-xr-x
2022-01-29 18:15
col
23.41
KB
-rwxr-xr-x
2025-03-13 06:30
colcrt
15.38
KB
-rwxr-xr-x
2025-03-13 06:30
colrm
15.36
KB
-rwxr-xr-x
2025-03-13 06:30
column
35.52
KB
-rwxr-xr-x
2025-03-13 06:30
comm
35.75
KB
-rwxr-xr-x
2025-03-12 12:52
compare
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
composite
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
conjure
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
convert
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
cp
149.24
KB
-rwxr-xr-x
2025-03-12 12:52
cpan
8.37
KB
-rwxr-xr-x
2025-05-13 21:00
cpp
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
crontab
1.49
KB
-rwxr-xr-x
2025-08-05 06:13
crontab.cagefs
40.47
KB
-rwxr-xr-x
2025-06-23 12:21
csplit
108.88
KB
-rwxr-xr-x
2025-03-12 12:52
curl
248.49
KB
-rwxr-xr-x
2025-08-05 06:19
cut
47.8
KB
-rwxr-xr-x
2025-03-12 12:52
cyrusbdb2current
1.58
MB
-rwxr-xr-x
2023-04-10 14:10
date
104.05
KB
-rwxr-xr-x
2025-03-12 12:52
dbiprof
6.06
KB
-rwxr-xr-x
2022-02-16 08:03
dd
68.14
KB
-rwxr-xr-x
2025-03-12 12:52
delv
45.38
KB
-rwxr-xr-x
2025-07-29 21:44
df
84.73
KB
-rwxr-xr-x
2025-03-12 12:52
diff
194.7
KB
-rwxr-xr-x
2022-01-29 18:15
diff3
52.3
KB
-rwxr-xr-x
2022-01-29 18:15
dig
136.59
KB
-rwxr-xr-x
2025-07-29 21:44
dir
137.65
KB
-rwxr-xr-x
2025-03-12 12:52
dircolors
39.8
KB
-rwxr-xr-x
2025-03-12 12:52
dirname
31.48
KB
-rwxr-xr-x
2025-03-12 12:52
display
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
dnstap-read
23.19
KB
-rwxr-xr-x
2025-07-29 21:44
du
149.44
KB
-rwxr-xr-x
2025-03-12 12:52
echo
35.48
KB
-rwxr-xr-x
2025-03-12 12:52
ed
52.51
KB
-rwxr-xr-x
2022-01-30 05:02
egrep
32
B
-rwxr-xr-x
2022-01-31 20:22
enc2xs
40.69
KB
-rwxr-xr-x
2022-02-11 16:42
enchant
23.73
KB
-rwxr-xr-x
2022-01-30 11:02
enchant-lsmod
15.8
KB
-rwxr-xr-x
2022-01-30 11:02
env
44.23
KB
-rwxr-xr-x
2025-03-12 12:52
eps2eps
643
B
-rwxr-xr-x
2025-05-14 16:03
eqn
189.52
KB
-rwxr-xr-x
2022-02-01 10:44
ex
1.38
MB
-rwxr-xr-x
2025-05-13 20:05
expand
39.73
KB
-rwxr-xr-x
2025-03-12 12:52
expr
108.6
KB
-rwxr-xr-x
2025-03-12 12:52
factor
72.05
KB
-rwxr-xr-x
2025-03-12 12:52
false
27.47
KB
-rwxr-xr-x
2025-03-12 12:52
fc-cache
139
B
-rwxr-xr-x
2023-01-23 15:48
fc-cache-64
23.17
KB
-rwxr-xr-x
2023-01-23 19:48
fc-cat
19.16
KB
-rwxr-xr-x
2023-01-23 19:48
fc-conflist
15.13
KB
-rwxr-xr-x
2023-01-23 19:48
fc-list
15.13
KB
-rwxr-xr-x
2023-01-23 19:48
fc-match
15.13
KB
-rwxr-xr-x
2023-01-23 19:48
fc-pattern
15.14
KB
-rwxr-xr-x
2023-01-23 19:48
fc-query
15.13
KB
-rwxr-xr-x
2023-01-23 19:48
fc-scan
15.14
KB
-rwxr-xr-x
2023-01-23 19:48
fc-validate
15.14
KB
-rwxr-xr-x
2023-01-23 19:48
fgrep
32
B
-rwxr-xr-x
2022-01-31 20:22
file
27.74
KB
-rwxr-xr-x
2024-04-03 12:38
find
284.95
KB
-rwxr-xr-x
2024-10-02 21:04
flex
412.64
KB
-rwxr-xr-x
2022-01-30 08:23
flex++
412.64
KB
-rwxr-xr-x
2022-01-30 08:23
flock
23.56
KB
-rwxr-xr-x
2025-03-13 06:30
fmt
39.77
KB
-rwxr-xr-x
2025-03-12 12:52
fold
39.71
KB
-rwxr-xr-x
2025-03-12 12:52
free
23.36
KB
-rwxr-xr-x
2024-04-30 16:43
freetype-config
4.32
KB
-rwxr-xr-x
2025-03-31 15:40
funzip
31.42
KB
-rwxr-xr-x
2025-03-18 03:53
g++
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
gawk
698.17
KB
-rwxr-xr-x
2022-03-30 22:25
gcc
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
gcc-ar
27.81
KB
-rwxr-xr-x
2025-02-12 13:11
gcc-nm
27.8
KB
-rwxr-xr-x
2025-02-12 13:11
gcc-ranlib
27.82
KB
-rwxr-xr-x
2025-02-12 13:11
gcov
468.98
KB
-rwxr-xr-x
2025-02-12 13:11
gcov-dump
283.74
KB
-rwxr-xr-x
2025-02-12 13:11
gcov-tool
312.46
KB
-rwxr-xr-x
2025-02-12 13:11
gem
542
B
-rwxr-xr-x
2025-05-06 04:04
gencat
27.45
KB
-rwxr-xr-x
2025-08-04 21:46
geoiplookup
15.87
KB
-rwxr-xr-x
2022-11-23 16:40
geoiplookup6
15.82
KB
-rwxr-xr-x
2022-11-23 16:40
geqn
189.52
KB
-rwxr-xr-x
2022-02-01 10:44
getconf
35.23
KB
-rwxr-xr-x
2025-08-04 21:46
getent
35.86
KB
-rwxr-xr-x
2025-08-04 21:46
getopt
23.45
KB
-rwxr-xr-x
2025-03-13 06:30
ghostscript
15.13
KB
-rwxr-xr-x
2025-05-14 16:03
git
4.06
MB
-rwxr-xr-x
2025-07-21 16:25
git-receive-pack
4.06
MB
-rwxr-xr-x
2025-07-21 16:25
git-shell
770.68
KB
-rwxr-xr-x
2025-07-21 16:25
git-upload-archive
4.06
MB
-rwxr-xr-x
2025-07-21 16:25
git-upload-pack
4.06
MB
-rwxr-xr-x
2025-07-21 16:25
gm
15.67
KB
-rwxr-xr-x
2022-11-23 17:49
gmake
249.8
KB
-rwxr-xr-x
2024-04-02 12:55
gneqn
916
B
-rwxr-xr-x
2022-02-01 10:44
gnroff
3.21
KB
-rwxr-xr-x
2022-02-01 10:44
gpg
1.07
MB
-rwxr-xr-x
2023-09-26 19:39
gpg-agent
342.25
KB
-rwxr-xr-x
2023-09-26 19:39
gpg-error
36.1
KB
-rwxr-xr-x
2022-02-09 23:24
gpgsplit
27.49
KB
-rwxr-xr-x
2023-09-26 19:39
gpgv
295.42
KB
-rwxr-xr-x
2023-09-26 19:39
gpic
201.72
KB
-rwxr-xr-x
2022-02-01 10:44
gprof
101.48
KB
-rwxr-xr-x
2025-03-31 10:32
grep
154.49
KB
-rwxr-xr-x
2022-01-31 20:22
groff
96.77
KB
-rwxr-xr-x
2022-02-01 10:44
grops
167.26
KB
-rwxr-xr-x
2022-02-01 10:44
grotty
122.2
KB
-rwxr-xr-x
2022-02-01 10:44
groups
35.66
KB
-rwxr-xr-x
2025-03-12 12:52
gs
15.13
KB
-rwxr-xr-x
2025-05-14 16:03
gsnd
281
B
-rwxr-xr-x
2025-05-14 16:03
gtar
514.27
KB
-rwxr-xr-x
2024-10-02 21:24
gtbl
130.86
KB
-rwxr-xr-x
2022-02-01 10:44
gtroff
732.07
KB
-rwxr-xr-x
2022-02-01 10:44
gunzip
2.29
KB
-rwxr-xr-x
2022-10-15 17:26
gzexe
6.3
KB
-rwxr-xr-x
2022-10-15 17:26
gzip
89.63
KB
-rwxr-xr-x
2022-10-15 17:26
h2ph
28.69
KB
-rwxr-xr-x
2025-07-28 03:54
h2xs
59.5
KB
-rwxr-xr-x
2025-07-28 03:53
head
43.8
KB
-rwxr-xr-x
2025-03-12 12:52
hexdump
51.59
KB
-rwxr-xr-x
2025-03-13 06:30
host
108.57
KB
-rwxr-xr-x
2025-07-29 21:44
hostid
31.66
KB
-rwxr-xr-x
2025-03-12 12:52
hostname
23.84
KB
-rwxr-xr-x
2022-02-14 11:22
hunspell
102.67
KB
-rwxr-xr-x
2022-01-31 20:22
iconv
64.09
KB
-rwxr-xr-x
2025-08-04 21:46
icu-config
205
B
-rwxr-xr-x
2025-07-29 16:13
icu-config-64
21.67
KB
-rwxr-xr-x
2025-07-29 16:16
icuinfo
15.49
KB
-rwxr-xr-x
2025-07-29 16:17
id
39.71
KB
-rwxr-xr-x
2025-03-12 12:52
identify
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
idn
36.46
KB
-rwxr-xr-x
2022-02-14 15:33
ifnames
4.03
KB
-rwxr-xr-x
2024-10-02 20:06
import
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
infocmp
63.69
KB
-rwxr-xr-x
2025-08-05 09:46
infotocap
87.8
KB
-rwxr-xr-x
2025-08-05 09:46
install
149.29
KB
-rwxr-xr-x
2025-03-12 12:52
instmodsh
4.1
KB
-rwxr-xr-x
2022-02-24 09:56
ionice
15.4
KB
-rwxr-xr-x
2025-03-13 06:30
ipcrm
19.41
KB
-rwxr-xr-x
2025-03-13 06:30
ipcs
39.52
KB
-rwxr-xr-x
2025-03-13 06:30
isosize
15.34
KB
-rwxr-xr-x
2025-03-13 06:30
ispell
992
B
-rwxr-xr-x
2019-10-08 00:15
join
51.9
KB
-rwxr-xr-x
2025-03-12 12:52
kill
31.47
KB
-rwxr-xr-x
2025-03-13 06:30
ld
1.71
MB
-rwxr-xr-x
2025-03-31 10:32
ld.bfd
1.71
MB
-rwxr-xr-x
2025-03-31 10:32
ldd
5.32
KB
-rwxr-xr-x
2025-08-04 21:44
less
197.9
KB
-rwxr-xr-x
2024-10-02 20:38
lessecho
15.37
KB
-rwxr-xr-x
2024-10-02 20:38
lesskey
24.8
KB
-rwxr-xr-x
2024-10-02 20:38
lesspipe.sh
3.5
KB
-rwxr-xr-x
2024-10-02 19:31
lex
412.64
KB
-rwxr-xr-x
2022-01-30 08:23
libnetcfg
15.41
KB
-rwxr-xr-x
2025-07-28 03:54
libtool
359.18
KB
-rwxr-xr-x
2024-10-01 17:49
libtoolize
126.17
KB
-rwxr-xr-x
2024-10-01 17:49
link
31.66
KB
-rwxr-xr-x
2025-03-12 12:52
ln
60.16
KB
-rwxr-xr-x
2025-03-12 12:52
locale
59.08
KB
-rwxr-xr-x
2025-08-04 21:46
localedef
314.05
KB
-rwxr-xr-x
2025-08-04 21:46
logger
36.16
KB
-rwxr-xr-x
2025-03-13 06:30
login
43.62
KB
-rwxr-xr-x
2025-03-13 06:30
logname
31.66
KB
-rwxr-xr-x
2025-03-12 12:52
look
19.36
KB
-rwxr-xr-x
2025-03-13 06:30
ls
137.64
KB
-rwxr-xr-x
2025-03-12 12:52
lto-dump
26.58
MB
-rwxr-xr-x
2025-02-12 13:11
m4
240.4
KB
-rwxr-xr-x
2022-03-31 07:28
make
249.8
KB
-rwxr-xr-x
2024-04-02 12:55
make-dummy-cert
614
B
-rwxr-xr-x
2025-02-11 21:56
mariadb
5.08
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-access
109.34
KB
-rwxr-xr-x
2025-07-28 16:17
mariadb-admin
4.85
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-binlog
5.13
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-check
4.84
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-conv
4.56
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-convert-table-format
4.12
KB
-rwxr-xr-x
2025-07-28 16:17
mariadb-dump
4.94
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-dumpslow
8.05
KB
-rwxr-xr-x
2025-07-28 16:17
mariadb-embedded
24.07
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-find-rows
3.21
KB
-rwxr-xr-x
2025-07-28 16:17
mariadb-hotcopy
34.53
KB
-rwxr-xr-x
2025-07-28 16:17
mariadb-import
4.84
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-plugin
4.53
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-secure-installation
13.49
KB
-rwxr-xr-x
2025-07-28 16:17
mariadb-setpermission
17.56
KB
-rwxr-xr-x
2025-07-28 16:17
mariadb-show
4.83
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-slap
4.86
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-tzinfo-to-sql
4.53
MB
-rwxr-xr-x
2025-07-28 17:11
mariadb-waitpid
4.52
MB
-rwxr-xr-x
2025-07-28 17:11
mcookie
27.5
KB
-rwxr-xr-x
2025-03-13 06:30
md5sum
39.64
KB
-rwxr-xr-x
2025-03-12 12:52
mesg
15.33
KB
-rwxr-xr-x
2025-03-13 06:30
mkdir
68.31
KB
-rwxr-xr-x
2025-03-12 12:52
mkfifo
39.83
KB
-rwxr-xr-x
2025-03-12 12:52
mknod
43.88
KB
-rwxr-xr-x
2025-03-12 12:52
mktemp
39.8
KB
-rwxr-xr-x
2025-03-12 12:52
mogrify
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
montage
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
more
43.63
KB
-rwxr-xr-x
2025-03-13 06:30
msql2mysql
1.42
KB
-rwxr-xr-x
2025-07-28 16:17
mv
141.17
KB
-rwxr-xr-x
2025-03-12 12:52
my_print_defaults
4.53
MB
-rwxr-xr-x
2025-07-28 17:11
mysql
5.08
MB
-rwxr-xr-x
2025-07-28 17:11
mysql_config
4.5
KB
-rwxr-xr-x
2025-07-28 16:17
mysql_find_rows
3.21
KB
-rwxr-xr-x
2025-07-28 16:17
mysql_waitpid
4.52
MB
-rwxr-xr-x
2025-07-28 17:11
mysqlaccess
109.34
KB
-rwxr-xr-x
2025-07-28 16:17
mysqladmin
4.85
MB
-rwxr-xr-x
2025-07-28 17:11
mysqlbinlog
5.13
MB
-rwxr-xr-x
2025-07-28 17:11
mysqlcheck
4.84
MB
-rwxr-xr-x
2025-07-28 17:11
mysqldump
4.94
MB
-rwxr-xr-x
2025-07-28 17:11
mysqlimport
4.84
MB
-rwxr-xr-x
2025-07-28 17:11
mysqlshow
4.83
MB
-rwxr-xr-x
2025-07-28 17:11
mytop
71.95
KB
-rwxr-xr-x
2025-07-28 16:17
namei
23.41
KB
-rwxr-xr-x
2025-03-13 06:30
nano
346.2
KB
-rwxr-xr-x
2025-03-13 03:12
neqn
916
B
-rwxr-xr-x
2022-02-01 10:44
nice
35.67
KB
-rwxr-xr-x
2025-03-12 12:52
nl
100.71
KB
-rwxr-xr-x
2025-03-12 12:52
nm
44.71
KB
-rwxr-xr-x
2025-03-31 10:32
nohup
35.58
KB
-rwxr-xr-x
2025-03-12 12:52
nproc
35.69
KB
-rwxr-xr-x
2025-03-12 12:52
nroff
3.21
KB
-rwxr-xr-x
2022-02-01 10:44
nslookup
112.52
KB
-rwxr-xr-x
2025-07-29 21:44
nsupdate
71.8
KB
-rwxr-xr-x
2025-07-29 21:44
numfmt
55.83
KB
-rwxr-xr-x
2025-03-12 12:52
objcopy
185.37
KB
-rwxr-xr-x
2025-03-31 10:32
objdump
413.09
KB
-rwxr-xr-x
2025-03-31 10:32
od
64.06
KB
-rwxr-xr-x
2025-03-12 12:52
openssl
1.01
MB
-rwxr-xr-x
2025-02-11 21:56
pango-list
19.11
KB
-rwxr-xr-x
2023-04-07 10:19
pango-segmentation
19.13
KB
-rwxr-xr-x
2023-04-07 10:19
pango-view
60.17
KB
-rwxr-xr-x
2023-04-07 10:19
passenger
1.73
KB
-rwxr-xr-x
2025-04-17 08:59
passwd
1.02
KB
-rwxr-xr-x
2022-04-14 14:45
paste
35.58
KB
-rwxr-xr-x
2025-03-12 12:52
patch
195.02
KB
-rwxr-xr-x
2022-03-25 15:42
pathchk
35.66
KB
-rwxr-xr-x
2025-03-12 12:52
pdf2dsc
701
B
-rwxr-xr-x
2025-05-14 16:03
pdf2ps
913
B
-rwxr-xr-x
2025-05-14 16:03
perl
15.13
KB
-rwxr-xr-x
2025-07-28 03:54
perl5.32.1
15.13
KB
-rwxr-xr-x
2025-07-28 03:54
perlbug
43.81
KB
-rwxr-xr-x
2025-07-28 03:54
perldoc
118
B
-rwxr-xr-x
2022-02-14 23:51
perlivp
10.56
KB
-rwxr-xr-x
2025-07-28 03:53
perlml
14.18
KB
-rwxr-xr-x
2022-08-10 20:54
perlthanks
43.81
KB
-rwxr-xr-x
2025-07-28 03:54
pgrep
31.42
KB
-rwxr-xr-x
2024-04-30 16:43
php
937
B
-rwxr-xr-x
2025-07-01 16:06
pic
201.72
KB
-rwxr-xr-x
2022-02-01 10:44
piconv
8.08
KB
-rwxr-xr-x
2022-02-11 16:42
ping
76.51
KB
-rwxr-xr-x
2025-06-24 14:19
pinky
35.61
KB
-rwxr-xr-x
2025-03-12 12:52
pkg-config
335
B
-rwxr-xr-x
2023-04-06 20:27
pkill
31.42
KB
-rwxr-xr-x
2024-04-30 16:43
pl2pm
4.43
KB
-rwxr-xr-x
2025-07-28 03:54
pmap
35.39
KB
-rwxr-xr-x
2024-04-30 16:43
pod2html
4.04
KB
-rwxr-xr-x
2025-07-28 03:54
pod2man
14.68
KB
-rwxr-xr-x
2022-03-25 12:10
pod2text
10.55
KB
-rwxr-xr-x
2022-03-25 12:10
pod2usage
4.01
KB
-rwxr-xr-x
2022-02-11 16:01
podchecker
3.57
KB
-rwxr-xr-x
2022-02-11 19:01
post-grohtml
199.76
KB
-rwxr-xr-x
2022-02-01 10:44
pr
72.28
KB
-rwxr-xr-x
2025-03-12 12:52
pre-grohtml
92.92
KB
-rwxr-xr-x
2022-02-01 10:44
precat
5.53
KB
-rwxr-xr-x
2019-10-08 00:15
preunzip
5.53
KB
-rwxr-xr-x
2019-10-08 00:15
prezip
5.53
KB
-rwxr-xr-x
2019-10-08 00:15
prezip-bin
15.69
KB
-rwxr-xr-x
2022-01-26 21:47
printenv
31.47
KB
-rwxr-xr-x
2025-03-12 12:52
printf
51.77
KB
-rwxr-xr-x
2025-03-12 12:52
prove
13.24
KB
-rwxr-xr-x
2022-02-16 11:58
ps
141.15
KB
-rwxr-xr-x
2024-04-30 16:43
ps2ascii
635
B
-rwxr-xr-x
2025-05-14 16:03
ps2epsi
1.24
KB
-rwxr-xr-x
2025-05-14 16:03
ps2pdf
276
B
-rwxr-xr-x
2025-05-14 16:03
ps2pdf12
219
B
-rwxr-xr-x
2025-05-14 16:03
ps2pdf13
219
B
-rwxr-xr-x
2025-05-14 16:03
ps2pdf14
219
B
-rwxr-xr-x
2025-05-14 16:03
ps2pdfwr
1.06
KB
-rwxr-xr-x
2025-05-14 16:03
ps2ps
651
B
-rwxr-xr-x
2025-05-14 16:03
ps2ps2
673
B
-rwxr-xr-x
2025-05-14 16:03
ptx
129.03
KB
-rwxr-xr-x
2025-03-12 12:52
pwd
35.7
KB
-rwxr-xr-x
2025-03-12 12:52
pwdx
15.28
KB
-rwxr-xr-x
2024-04-30 16:43
pydoc
78
B
-rwxr-xr-x
2025-09-02 07:04
pydoc3
78
B
-rwxr-xr-x
2025-09-02 07:04
pydoc3.9
78
B
-rwxr-xr-x
2025-09-02 07:04
ranlib
56
KB
-rwxr-xr-x
2025-03-31 10:32
readelf
667.28
KB
-rwxr-xr-x
2025-03-31 10:32
readlink
39.69
KB
-rwxr-xr-x
2025-03-12 12:52
realpath
39.77
KB
-rwxr-xr-x
2025-03-12 12:52
recode
31.93
KB
-rwxr-xr-x
2022-11-02 11:35
red
92
B
-rwxr-xr-x
2022-01-30 05:02
rename
23.41
KB
-rwxr-xr-x
2025-03-13 06:30
renew-dummy-cert
729
B
-rwxr-xr-x
2025-02-11 21:56
renice
15.36
KB
-rwxr-xr-x
2025-03-13 06:30
replace
4.5
MB
-rwxr-xr-x
2025-07-28 17:11
reset
27.34
KB
-rwxr-xr-x
2025-08-05 09:46
rev
15.35
KB
-rwxr-xr-x
2025-03-13 06:30
rm
60.21
KB
-rwxr-xr-x
2025-03-12 12:52
rmdir
43.61
KB
-rwxr-xr-x
2025-03-12 12:52
rnano
346.2
KB
-rwxr-xr-x
2025-03-13 03:12
ruby
15.27
KB
-rwxr-xr-x
2025-05-06 03:53
run-with-aspell
89
B
-rwxr-xr-x
2022-01-26 21:47
runcon
35.65
KB
-rwxr-xr-x
2025-03-12 12:52
rvi
1.38
MB
-rwxr-xr-x
2025-05-13 20:05
rview
1.38
MB
-rwxr-xr-x
2025-05-13 20:05
scalar
819.34
KB
-rwxr-xr-x
2025-07-21 16:25
scl
39.55
KB
-rwxr-xr-x
2023-04-07 01:57
scl_enabled
262
B
-rwxr-xr-x
2021-07-27 15:14
scl_source
1.88
KB
-rwxr-xr-x
2021-07-27 15:14
scp
133.06
KB
-rwxr-xr-x
2025-03-13 13:04
script
51.75
KB
-rwxr-xr-x
2025-03-13 06:30
sdiff
44.2
KB
-rwxr-xr-x
2022-01-29 18:15
sed
114.01
KB
-rwxr-xr-x
2022-02-15 10:36
selectorctl
7.63
KB
-rwxr-xr-x
2025-07-11 15:01
seq
47.79
KB
-rwxr-xr-x
2025-03-12 12:52
setsid
15.34
KB
-rwxr-xr-x
2025-03-13 06:30
setterm
35.52
KB
-rwxr-xr-x
2025-03-13 06:30
sftp
141.05
KB
-rwxr-xr-x
2025-03-13 13:04
sh
1.32
MB
-rwxr-xr-x
2024-04-30 14:33
sha1sum
39.64
KB
-rwxr-xr-x
2025-03-12 12:52
sha224sum
39.64
KB
-rwxr-xr-x
2025-03-12 12:52
sha256sum
39.64
KB
-rwxr-xr-x
2025-03-12 12:52
sha384sum
39.64
KB
-rwxr-xr-x
2025-03-12 12:52
sha512sum
39.64
KB
-rwxr-xr-x
2025-03-12 12:52
shred
51.88
KB
-rwxr-xr-x
2025-03-12 12:52
shuf
48.01
KB
-rwxr-xr-x
2025-03-12 12:52
size
31.61
KB
-rwxr-xr-x
2025-03-31 10:32
skill
31.4
KB
-rwxr-xr-x
2024-04-30 16:43
slabtop
23.42
KB
-rwxr-xr-x
2024-04-30 16:43
sleep
35.65
KB
-rwxr-xr-x
2025-03-12 12:52
snice
31.4
KB
-rwxr-xr-x
2024-04-30 16:43
sort
113.09
KB
-rwxr-xr-x
2025-03-12 12:52
spell
125
B
-rwxr-xr-x
2019-10-08 00:15
splain
18.96
KB
-rwxr-xr-x
2025-07-28 03:54
split
52.31
KB
-rwxr-xr-x
2025-03-12 12:52
sprof
35.45
KB
-rwxr-xr-x
2025-08-04 21:46
sqlite3
1.52
MB
-rwxr-xr-x
2025-07-28 21:55
ssh
843.53
KB
-rwxr-xr-x
2025-03-13 13:04
ssh-add
164.86
KB
-rwxr-xr-x
2025-03-13 13:04
ssh-agent
281.02
KB
-rwxr-xr-x
2025-03-13 13:04
ssh-copy-id
12.38
KB
-rwxr-xr-x
2025-03-13 13:04
ssh-keygen
455.04
KB
-rwxr-xr-x
2025-03-13 13:04
ssh-keyscan
197.43
KB
-rwxr-xr-x
2025-03-13 13:04
stat
80.06
KB
-rwxr-xr-x
2025-03-12 12:52
stdbuf
43.74
KB
-rwxr-xr-x
2025-03-12 12:52
strace
2.08
MB
-rwxr-xr-x
2025-03-12 19:11
stream
15.27
KB
-rwxr-xr-x
2025-04-01 12:55
strings
31.74
KB
-rwxr-xr-x
2025-03-31 10:32
strip
185.36
KB
-rwxr-xr-x
2025-03-31 10:32
stty
75.83
KB
-rwxr-xr-x
2025-03-12 12:52
sum
35.59
KB
-rwxr-xr-x
2025-03-12 12:52
sync
35.54
KB
-rwxr-xr-x
2025-03-12 12:52
tabs
19.16
KB
-rwxr-xr-x
2025-08-05 09:46
tac
104.6
KB
-rwxr-xr-x
2025-03-12 12:52
tail
68.09
KB
-rwxr-xr-x
2025-03-12 12:52
tar
514.27
KB
-rwxr-xr-x
2024-10-02 21:24
taskset
23.41
KB
-rwxr-xr-x
2025-03-13 06:30
tbl
130.86
KB
-rwxr-xr-x
2022-02-01 10:44
tclsh
15.69
KB
-rwxr-xr-x
2022-10-15 21:29
tclsh8.6
15.69
KB
-rwxr-xr-x
2022-10-15 21:29
tee
35.69
KB
-rwxr-xr-x
2025-03-12 12:52
test
43.79
KB
-rwxr-xr-x
2025-03-12 12:52
tic
87.8
KB
-rwxr-xr-x
2025-08-05 09:46
timeout
40.17
KB
-rwxr-xr-x
2025-03-12 12:52
tload
19.34
KB
-rwxr-xr-x
2024-04-30 16:43
tmpwatch
36.03
KB
-rwxr-xr-x
2022-02-11 11:52
toe
23.23
KB
-rwxr-xr-x
2025-08-05 09:46
top
132.27
KB
-rwxr-xr-x
2024-04-30 16:43
touch
92.03
KB
-rwxr-xr-x
2025-03-12 12:52
tput
27.25
KB
-rwxr-xr-x
2025-08-05 09:46
tr
47.87
KB
-rwxr-xr-x
2025-03-12 12:52
troff
732.07
KB
-rwxr-xr-x
2022-02-01 10:44
true
27.47
KB
-rwxr-xr-x
2025-03-12 12:52
truncate
35.66
KB
-rwxr-xr-x
2025-03-12 12:52
tset
27.34
KB
-rwxr-xr-x
2025-08-05 09:46
tsort
47.79
KB
-rwxr-xr-x
2025-03-12 12:52
tty
31.65
KB
-rwxr-xr-x
2025-03-12 12:52
tzselect
14.99
KB
-rwxr-xr-x
2025-08-04 21:43
uapi
1.02
KB
-rwxr-xr-x
2025-08-25 08:36
ul
23.45
KB
-rwxr-xr-x
2025-03-13 06:30
uname
31.66
KB
-rwxr-xr-x
2025-03-12 12:52
unexpand
39.73
KB
-rwxr-xr-x
2025-03-12 12:52
uniq
43.83
KB
-rwxr-xr-x
2025-03-12 12:52
unlink
31.66
KB
-rwxr-xr-x
2025-03-12 12:52
unzip
196.14
KB
-rwxr-xr-x
2025-03-18 03:53
unzipsfx
87.89
KB
-rwxr-xr-x
2025-03-18 03:53
uptime
15.29
KB
-rwxr-xr-x
2024-04-30 16:43
users
35.68
KB
-rwxr-xr-x
2025-03-12 12:52
utmpdump
23.4
KB
-rwxr-xr-x
2025-03-13 06:30
vdir
137.65
KB
-rwxr-xr-x
2025-03-12 12:52
vi
691
B
-rwxr-xr-x
2025-05-13 20:05
view
150
B
-rwxr-xr-x
2025-05-13 20:05
vmstat
39.41
KB
-rwxr-xr-x
2024-04-30 16:43
watch
27.87
KB
-rwxr-xr-x
2024-04-30 16:43
wc
43.73
KB
-rwxr-xr-x
2025-03-12 12:52
wget
521.41
KB
-rwxr-xr-x
2024-09-03 11:58
whereis
32.03
KB
-rwxr-xr-x
2025-03-13 06:30
which
27.89
KB
-rwxr-xr-x
2025-08-05 06:19
who
51.77
KB
-rwxr-xr-x
2025-03-12 12:52
whoami
31.66
KB
-rwxr-xr-x
2025-03-12 12:52
word-list-compress
15.7
KB
-rwxr-xr-x
2022-01-26 21:47
x86_64-redhat-linux-c++
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
x86_64-redhat-linux-g++
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
x86_64-redhat-linux-gcc
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
x86_64-redhat-linux-gcc-11
1.04
MB
-rwxr-xr-x
2025-02-12 13:11
xargs
64.09
KB
-rwxr-xr-x
2024-10-02 21:04
xmlcatalog
23.15
KB
-rwxr-xr-x
2025-08-07 15:49
xmllint
80.55
KB
-rwxr-xr-x
2025-08-07 15:49
xmlwf
39.63
KB
-rwxr-xr-x
2025-05-13 17:53
xsltproc
31.23
KB
-rwxr-xr-x
2025-05-13 19:06
xsubpp
4.96
KB
-rwxr-xr-x
2022-02-16 08:56
yes
31.51
KB
-rwxr-xr-x
2025-03-12 12:52
zcat
1.94
KB
-rwxr-xr-x
2022-10-15 17:26
zcmp
1.64
KB
-rwxr-xr-x
2022-10-15 17:26
zdiff
6.31
KB
-rwxr-xr-x
2022-10-15 17:26
zegrep
33
B
-rwxr-xr-x
2022-10-15 17:26
zfgrep
33
B
-rwxr-xr-x
2022-10-15 17:26
zforce
2.04
KB
-rwxr-xr-x
2022-10-15 17:26
zgrep
7.93
KB
-rwxr-xr-x
2022-10-15 17:26
zip
221.09
KB
-rwxr-xr-x
2023-04-07 14:02
zipcloak
75.7
KB
-rwxr-xr-x
2023-04-07 14:02
zipgrep
2.89
KB
-rwxr-xr-x
2008-10-10 17:40
zipinfo
196.14
KB
-rwxr-xr-x
2025-03-18 03:53
zipnote
67.61
KB
-rwxr-xr-x
2023-04-07 14:02
zipsplit
63.58
KB
-rwxr-xr-x
2023-04-07 14:02
zless
2.16
KB
-rwxr-xr-x
2022-10-15 17:26
zmore
1.8
KB
-rwxr-xr-x
2022-10-15 17:26
znew
4.47
KB
-rwxr-xr-x
2022-10-15 17:26
Save
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); }