Linux vmi2545633.contaboserver.net 6.1.0-32-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.129-1 (2025-03-06) x86_64
Apache/2.4.62 (Debian)
Server IP : 127.0.0.1 & Your IP : 127.0.0.1
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
sbin /
Delete
Unzip
Name
Size
Permission
Date
Action
a2disconf
15.86
KB
-rwxr-xr-x
2024-10-04 15:16
a2dismod
15.86
KB
-rwxr-xr-x
2024-10-04 15:16
a2dissite
15.86
KB
-rwxr-xr-x
2024-10-04 15:16
a2enconf
15.86
KB
-rwxr-xr-x
2024-10-04 15:16
a2enmod
15.86
KB
-rwxr-xr-x
2024-10-04 15:16
a2ensite
15.86
KB
-rwxr-xr-x
2024-10-04 15:16
a2query
9.6
KB
-rwxr-xr-x
2024-10-04 15:21
aa-remove-unknown
3.13
KB
-rwxr-xr-x
2023-02-14 11:49
aa-status
38.3
KB
-rwxr-xr-x
2023-02-14 11:49
aa-teardown
137
B
-rwxr-xr-x
2022-11-22 00:54
accessdb
14.46
KB
-rwxr-xr-x
2023-03-12 22:23
add-shell
1.03
KB
-rwxr-xr-x
2023-07-28 23:46
addgnupghome
3
KB
-rwxr-xr-x
2023-03-26 13:03
addgroup
47.25
KB
-rwxr-xr-x
2023-05-25 15:54
adduser
47.25
KB
-rwxr-xr-x
2023-05-25 15:54
agetty
67.49
KB
-rwxr-xr-x
2024-11-21 20:01
apache2
712.5
KB
-rwxr-xr-x
2024-10-04 15:21
apache2ctl
7.19
KB
-rwxr-xr-x
2024-10-04 15:16
apachectl
7.19
KB
-rwxr-xr-x
2024-10-04 15:16
apparmor_parser
1.39
MB
-rwxr-xr-x
2023-02-14 11:49
apparmor_status
38.3
KB
-rwxr-xr-x
2023-02-14 11:49
applygnupgdefaults
2.17
KB
-rwxr-xr-x
2023-03-26 13:03
arpd
104.48
KB
-rwxr-xr-x
2023-05-22 13:19
arptables
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
arptables-nft
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
arptables-nft-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
arptables-nft-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
arptables-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
arptables-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
aspell-autobuildhash
13.36
KB
-rwxr-xr-x
2023-03-14 21:17
badblocks
34.25
KB
-rwxr-xr-x
2023-03-05 03:16
biosdecode
27.13
KB
-rwxr-xr-x
2022-06-30 18:37
blkdeactivate
15.96
KB
-rwxr-xr-x
2022-10-19 19:37
blkdiscard
34.31
KB
-rwxr-xr-x
2024-11-21 20:01
blkid
122.34
KB
-rwxr-xr-x
2024-11-21 20:01
blkzone
78.31
KB
-rwxr-xr-x
2024-11-21 20:01
blockdev
78.31
KB
-rwxr-xr-x
2024-11-21 20:01
bridge
152.54
KB
-rwxr-xr-x
2023-05-22 13:19
capsh
53.29
KB
-rwxr-xr-x
2023-05-15 18:34
cfdisk
106.66
KB
-rwxr-xr-x
2024-11-21 20:01
chcpu
46.3
KB
-rwxr-xr-x
2024-11-21 20:01
check_forensic
952
B
-rwxr-xr-x
2011-04-26 15:10
chgpasswd
66.29
KB
-rwxr-xr-x
2023-03-23 12:40
chmem
66.31
KB
-rwxr-xr-x
2024-11-21 20:01
chpasswd
62.36
KB
-rwxr-xr-x
2023-03-23 12:40
chroot
46.98
KB
-rwxr-xr-x
2022-09-20 15:27
cpgr
60.43
KB
-rwxr-xr-x
2023-03-23 12:40
cppw
60.43
KB
-rwxr-xr-x
2023-03-23 12:40
cron
50.56
KB
-rwxr-xr-x
2023-03-02 07:33
ctrlaltdel
38.3
KB
-rwxr-xr-x
2024-11-21 20:01
dcb
144.6
KB
-rwxr-xr-x
2023-05-22 13:19
debugfs
233.83
KB
-rwxr-xr-x
2023-03-05 03:16
delgroup
16.33
KB
-rwxr-xr-x
2023-05-25 15:54
deluser
16.33
KB
-rwxr-xr-x
2023-05-25 15:54
depmod
174.27
KB
-rwxr-xr-x
2022-12-10 00:02
devlink
220.98
KB
-rwxr-xr-x
2023-05-22 13:19
dhclient
2.63
MB
-rwxr-xr-x
2023-04-17 12:20
dhclient-script
14.21
KB
-rwxr-xr-x
2023-04-17 12:20
discover
23.23
KB
-rwxr-xr-x
2022-01-09 07:48
discover-modprobe
4.9
KB
-rwxr-xr-x
2022-01-09 07:48
discover-pkginstall
5.66
KB
-rwxr-xr-x
2022-01-09 07:48
dmidecode
127.16
KB
-rwxr-xr-x
2022-06-30 18:37
dmsetup
166.98
KB
-rwxr-xr-x
2022-10-19 19:37
dmstats
166.98
KB
-rwxr-xr-x
2022-10-19 19:37
dpkg-fsys-usrunmess
16.99
KB
-rwxr-xr-x
2023-05-11 02:04
dpkg-preconfigure
3.83
KB
-rwxr-xr-x
2023-01-08 21:50
dpkg-reconfigure
4.38
KB
-rwxr-xr-x
2023-01-08 21:50
dumpe2fs
30.31
KB
-rwxr-xr-x
2023-03-05 03:16
e2freefrag
14.3
KB
-rwxr-xr-x
2023-03-05 03:16
e2fsck
348.27
KB
-rwxr-xr-x
2023-03-05 03:16
e2image
54.45
KB
-rwxr-xr-x
2023-03-05 03:16
e2label
114.52
KB
-rwxr-xr-x
2023-03-05 03:16
e2mmpstatus
30.31
KB
-rwxr-xr-x
2023-03-05 03:16
e2scrub
7.12
KB
-rwxr-xr-x
2023-03-05 03:16
e2scrub_all
5.27
KB
-rwxr-xr-x
2023-03-05 03:16
e2undo
22.3
KB
-rwxr-xr-x
2023-03-05 03:16
e4crypt
26.3
KB
-rwxr-xr-x
2023-03-05 03:16
e4defrag
30.23
KB
-rwxr-xr-x
2023-03-05 03:16
ebtables
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ebtables-nft
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ebtables-nft-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ebtables-nft-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ebtables-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ebtables-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ebtables-translate
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
faillock
14.24
KB
-rwxr-xr-x
2023-09-21 20:55
fdisk
158.35
KB
-rwxr-xr-x
2024-11-21 20:01
filefrag
18.26
KB
-rwxr-xr-x
2023-03-05 03:16
findfs
14.3
KB
-rwxr-xr-x
2024-11-21 20:01
fsck
54.36
KB
-rwxr-xr-x
2024-11-21 20:01
fsck.cramfs
42.37
KB
-rwxr-xr-x
2024-11-21 20:01
fsck.ext2
348.27
KB
-rwxr-xr-x
2023-03-05 03:16
fsck.ext3
348.27
KB
-rwxr-xr-x
2023-03-05 03:16
fsck.ext4
348.27
KB
-rwxr-xr-x
2023-03-05 03:16
fsck.minix
122.34
KB
-rwxr-xr-x
2024-11-21 20:01
fsfreeze
14.3
KB
-rwxr-xr-x
2024-11-21 20:01
fstab-decode
14.23
KB
-rwxr-xr-x
2023-04-03 06:25
fstrim
74.31
KB
-rwxr-xr-x
2024-11-21 20:01
genl
116.51
KB
-rwxr-xr-x
2023-05-22 13:19
getcap
14.23
KB
-rwxr-xr-x
2023-05-15 18:34
getpcaps
14.23
KB
-rwxr-xr-x
2023-05-15 18:34
getty
67.49
KB
-rwxr-xr-x
2024-11-21 20:01
groupadd
99.04
KB
-rwxr-xr-x
2023-03-23 12:40
groupdel
90.85
KB
-rwxr-xr-x
2023-03-23 12:40
groupmems
66.33
KB
-rwxr-xr-x
2023-03-23 12:40
groupmod
99.01
KB
-rwxr-xr-x
2023-03-23 12:40
grpck
66.3
KB
-rwxr-xr-x
2023-03-23 12:40
grpconv
58.14
KB
-rwxr-xr-x
2023-03-23 12:40
grpunconv
58.14
KB
-rwxr-xr-x
2023-03-23 12:40
grub-bios-setup
934.42
KB
-rwxr-xr-x
2023-10-02 14:11
grub-install
1.14
MB
-rwxr-xr-x
2023-10-02 14:11
grub-macbless
922.26
KB
-rwxr-xr-x
2023-10-02 14:11
grub-mkconfig
8.46
KB
-rwxr-xr-x
2023-10-02 14:11
grub-mkdevicemap
216.7
KB
-rwxr-xr-x
2023-10-02 14:11
grub-probe
934.57
KB
-rwxr-xr-x
2023-10-02 14:11
grub-reboot
4.73
KB
-rwxr-xr-x
2023-10-02 14:11
grub-set-default
3.47
KB
-rwxr-xr-x
2023-10-02 14:11
halt
1.29
MB
-rwxr-xr-x
2025-03-06 14:56
httxt2dbm
14.23
KB
-rwxr-xr-x
2024-10-04 15:21
hwclock
86.44
KB
-rwxr-xr-x
2024-11-21 20:01
iconvconfig
30.84
KB
-rwxr-xr-x
2025-03-06 22:46
ifdown
86.16
KB
-rwxr-xr-x
2023-01-24 13:07
ifquery
86.16
KB
-rwxr-xr-x
2023-01-24 13:07
ifup
86.16
KB
-rwxr-xr-x
2023-01-24 13:07
init
90.38
KB
-rwxr-xr-x
2025-03-06 14:56
insmod
174.27
KB
-rwxr-xr-x
2022-12-10 00:02
install-sgmlcatalog
4.44
KB
-rwxr-xr-x
2022-10-06 18:03
installkernel
2.6
KB
-rwxr-xr-x
2023-07-28 23:46
invoke-rc.d
16.13
KB
-rwxr-xr-x
2022-07-02 15:23
ip
674.82
KB
-rwxr-xr-x
2023-05-22 13:19
ip6tables
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-apply
6.87
KB
-rwxr-xr-x
2023-01-12 10:27
ip6tables-legacy
88.98
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-legacy-restore
88.98
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-legacy-save
88.98
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-nft
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-nft-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-nft-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-restore-translate
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
ip6tables-translate
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-apply
6.87
KB
-rwxr-xr-x
2023-01-12 10:27
iptables-legacy
88.98
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-legacy-restore
88.98
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-legacy-save
88.98
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-nft
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-nft-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-nft-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-restore
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-restore-translate
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-save
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
iptables-translate
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
isosize
30.31
KB
-rwxr-xr-x
2024-11-21 20:01
ispell-autobuildhash
15.52
KB
-rwxr-xr-x
2023-03-14 21:17
iucode-tool
58.26
KB
-rwxr-xr-x
2023-02-17 19:51
iucode_tool
58.26
KB
-rwxr-xr-x
2023-02-17 19:51
kbdrate
14.52
KB
-rwxr-xr-x
2023-03-23 09:34
killall5
26.31
KB
-rwxr-xr-x
2023-04-03 06:25
ldattach
34.31
KB
-rwxr-xr-x
2024-11-21 20:01
ldconfig
959.84
KB
-rwxr-xr-x
2025-03-06 22:46
locale-gen
1.38
KB
-rwxr-xr-x
2025-03-06 22:46
logrotate
98.16
KB
-rwxr-xr-x
2022-12-14 18:16
logsave
14.09
KB
-rwxr-xr-x
2023-03-05 03:16
losetup
114.42
KB
-rwxr-xr-x
2024-11-21 20:01
lsmod
174.27
KB
-rwxr-xr-x
2022-12-10 00:02
make-ssl-cert
6.65
KB
-rwxr-xr-x
2021-12-30 16:52
mariadbd
25.77
MB
-rwxr-xr-x
2025-02-19 00:56
mke2fs
138.58
KB
-rwxr-xr-x
2023-03-05 03:16
mkfs
14.3
KB
-rwxr-xr-x
2024-11-21 20:01
mkfs.bfs
34.31
KB
-rwxr-xr-x
2024-11-21 20:01
mkfs.cramfs
42.24
KB
-rwxr-xr-x
2024-11-21 20:01
mkfs.ext2
138.58
KB
-rwxr-xr-x
2023-03-05 03:16
mkfs.ext3
138.58
KB
-rwxr-xr-x
2023-03-05 03:16
mkfs.ext4
138.58
KB
-rwxr-xr-x
2023-03-05 03:16
mkfs.minix
110.32
KB
-rwxr-xr-x
2024-11-21 20:01
mkhomedir_helper
22.27
KB
-rwxr-xr-x
2023-09-21 20:55
mkinitramfs
12.4
KB
-rwxr-xr-x
2024-08-24 23:14
mklost+found
14.23
KB
-rwxr-xr-x
2023-03-05 03:16
mkswap
114.31
KB
-rwxr-xr-x
2024-11-21 20:01
modinfo
174.27
KB
-rwxr-xr-x
2022-12-10 00:02
modprobe
174.27
KB
-rwxr-xr-x
2022-12-10 00:02
mysqld
25.77
MB
-rwxr-xr-x
2025-02-19 00:56
newusers
102.92
KB
-rwxr-xr-x
2023-03-23 12:40
nfnl_osf
18.23
KB
-rwxr-xr-x
2023-01-16 13:44
nft
26.15
KB
-rwxr-xr-x
2023-09-16 05:47
nginx
1.2
MB
-rwxr-xr-x
2025-02-17 19:40
nologin
14.23
KB
-rwxr-xr-x
2023-03-23 12:40
ownership
14.38
KB
-rwxr-xr-x
2022-06-30 18:37
pam-auth-update
20.79
KB
-rwxr-xr-x
2023-09-21 20:55
pam_getenv
2.82
KB
-rwxr-xr-x
2023-09-21 20:55
pam_namespace_helper
467
B
-rwxr-xr-x
2023-09-21 20:55
pam_timestamp_check
14.24
KB
-rwxr-xr-x
2023-09-21 20:55
php-fpm8.4
5.68
MB
-rwxr-xr-x
2025-10-01 20:26
phpdismod
7.11
KB
-rwxr-xr-x
2025-03-09 16:33
phpenmod
7.11
KB
-rwxr-xr-x
2025-03-09 16:33
phpquery
6.24
KB
-rwxr-xr-x
2025-03-09 16:33
pivot_root
14.3
KB
-rwxr-xr-x
2024-11-21 20:01
poweroff
1.29
MB
-rwxr-xr-x
2025-03-06 14:56
pwck
58.26
KB
-rwxr-xr-x
2023-03-23 12:40
pwconv
54.13
KB
-rwxr-xr-x
2023-03-23 12:40
pwhistory_helper
18.24
KB
-rwxr-xr-x
2023-09-21 20:55
pwunconv
54.17
KB
-rwxr-xr-x
2023-03-23 12:40
qemu-ga
985.25
KB
-rwxr-xr-x
2025-01-04 14:47
readprofile
34.34
KB
-rwxr-xr-x
2024-11-21 20:01
reboot
1.29
MB
-rwxr-xr-x
2025-03-06 14:56
remove-default-ispell
2.86
KB
-rwxr-xr-x
2023-03-14 21:17
remove-default-wordlist
2.86
KB
-rwxr-xr-x
2023-03-14 21:17
remove-shell
1.08
KB
-rwxr-xr-x
2023-07-28 23:46
resize2fs
62.3
KB
-rwxr-xr-x
2023-03-05 03:16
rmmod
174.27
KB
-rwxr-xr-x
2022-12-10 00:02
rmt
59.02
KB
-rwxr-xr-x
2024-01-20 09:27
rmt-tar
59.02
KB
-rwxr-xr-x
2024-01-20 09:27
rtacct
44.37
KB
-rwxr-xr-x
2023-05-22 13:19
rtcwake
46.31
KB
-rwxr-xr-x
2024-11-21 20:01
rtmon
112.45
KB
-rwxr-xr-x
2023-05-22 13:19
runlevel
1.29
MB
-rwxr-xr-x
2025-03-06 14:56
runuser
70.31
KB
-rwxr-xr-x
2024-11-21 20:01
select-default-ispell
3.23
KB
-rwxr-xr-x
2023-03-14 21:17
select-default-wordlist
3.21
KB
-rwxr-xr-x
2023-03-14 21:17
service
8.89
KB
-rwxr-xr-x
2022-09-18 01:53
setcap
14.23
KB
-rwxr-xr-x
2023-05-15 18:34
setvesablank
14.51
KB
-rwxr-xr-x
2023-03-23 09:34
sfdisk
142.3
KB
-rwxr-xr-x
2024-11-21 20:01
shadowconfig
2.22
KB
-rwxr-xr-x
2022-11-11 08:28
shutdown
1.29
MB
-rwxr-xr-x
2025-03-06 14:56
split-logfile
2.36
KB
-rwxr-xr-x
2024-10-04 15:21
sshd
1.21
MB
-rwxr-xr-x
2025-02-14 13:06
start-stop-daemon
43.42
KB
-rwxr-xr-x
2023-05-11 02:04
sudo_logsrvd
244.57
KB
-rwxr-xr-x
2023-06-27 11:45
sudo_sendlog
151.41
KB
-rwxr-xr-x
2023-06-27 11:45
sulogin
54.31
KB
-rwxr-xr-x
2024-11-21 20:01
swaplabel
18.3
KB
-rwxr-xr-x
2024-11-21 20:01
swapoff
22.3
KB
-rwxr-xr-x
2024-11-21 20:01
swapon
50.3
KB
-rwxr-xr-x
2024-11-21 20:01
switch_root
18.3
KB
-rwxr-xr-x
2024-11-21 20:01
sysctl
30.31
KB
-rwxr-xr-x
2022-12-19 06:06
tarcat
936
B
-rwxr-xr-x
2024-01-20 09:27
tc
574
KB
-rwxr-xr-x
2023-05-22 13:19
tcptraceroute
1.56
KB
-rwxr-xr-x
2023-02-25 12:24
tcptraceroute.db
1.56
KB
-rwxr-xr-x
2023-02-25 12:24
telinit
1.29
MB
-rwxr-xr-x
2025-03-06 14:56
tipc
152.6
KB
-rwxr-xr-x
2023-05-22 13:19
traceroute
71.23
KB
-rwxr-xr-x
2023-02-25 12:24
tune2fs
114.52
KB
-rwxr-xr-x
2023-03-05 03:16
ufw
4.84
KB
-rwxr-xr-x
2023-05-18 14:03
unix_chkpwd
38.24
KB
-rwxr-sr-x
2023-09-21 20:55
unix_update
38.24
KB
-rwxr-xr-x
2023-09-21 20:55
update-ca-certificates
5.29
KB
-rwxr-xr-x
2023-03-11 08:47
update-catalog
9.17
KB
-rwxr-xr-x
2022-10-06 18:03
update-default-aspell
1
KB
-rwxr-xr-x
2023-03-14 21:17
update-default-ispell
9.68
KB
-rwxr-xr-x
2023-03-14 21:17
update-default-wordlist
7.5
KB
-rwxr-xr-x
2023-03-14 21:17
update-dictcommon-aspell
1
KB
-rwxr-xr-x
2023-03-14 21:17
update-dictcommon-hunspell
782
B
-rwxr-xr-x
2023-03-14 21:17
update-grub
64
B
-rwxr-xr-x
2023-10-02 14:11
update-grub2
64
B
-rwxr-xr-x
2023-10-02 14:11
update-initramfs
6.75
KB
-rwxr-xr-x
2024-08-22 19:30
update-locale
2.99
KB
-rwxr-xr-x
2025-03-06 22:46
update-mime
9.39
KB
-rwxr-xr-x
2021-11-29 13:07
update-passwd
38.49
KB
-rwxr-xr-x
2022-09-20 10:22
update-pciids
1.71
KB
-rwxr-xr-x
2023-01-17 23:50
update-rc.d
17.33
KB
-rwxr-xr-x
2022-07-02 15:23
update-shells
3.89
KB
-rwxr-xr-x
2023-07-28 23:46
update-xmlcatalog
16.88
KB
-rwxr-xr-x
2019-02-27 00:18
upgrade-from-grub-legacy
1.56
KB
-rwxr-xr-x
2023-10-02 14:11
useradd
155.8
KB
-rwxr-xr-x
2023-03-23 12:40
userdel
110.95
KB
-rwxr-xr-x
2023-03-23 12:40
usermod
143.61
KB
-rwxr-xr-x
2023-03-23 12:40
validlocale
1.73
KB
-rwxr-xr-x
2025-03-06 22:46
vcstime
14.38
KB
-rwxr-xr-x
2023-03-23 09:34
vdpa
116.66
KB
-rwxr-xr-x
2023-05-22 13:19
vigr
72.64
KB
-rwxr-xr-x
2023-03-23 12:40
vipw
72.64
KB
-rwxr-xr-x
2023-03-23 12:40
visudo
256.63
KB
-rwxr-xr-x
2023-06-27 11:45
vpddecode
14.51
KB
-rwxr-xr-x
2022-06-30 18:37
wipefs
46.31
KB
-rwxr-xr-x
2024-11-21 20:01
xtables-legacy-multi
88.98
KB
-rwxr-xr-x
2023-01-16 13:44
xtables-monitor
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
xtables-nft-multi
223.16
KB
-rwxr-xr-x
2023-01-16 13:44
zic
58.73
KB
-rwxr-xr-x
2025-03-06 22:46
zramctl
114.42
KB
-rwxr-xr-x
2024-11-21 20:01
Save
Rename
#! /usr/bin/perl ############################################################################### # # Update-MIME: Install programs into "/etc/mailcap", resolve conflicts, # auto-uninstall, make dinner, and wash dishes. # # Written by Brian White <bcwhite@pobox.com>. # # This program has been placed in the public domain (the only true "free"). # Do whatever you wish with it, though I'd appreciate it if my name stayed # on it as the original author. # ############################################################################### umask(022); # These are pretty well always a Good Idea(tm) use strict; use warnings; # # Program Constants # my $debug = 0; my $conffile = "/etc/update-mime.conf"; my $mailcap = "/etc/mailcap"; my $mailcapdef = "/usr/lib/mime/mailcap"; my $mimedir = "/usr/lib/mime/packages"; my $appsdir = "/usr/share/applications"; my $orderfile = "/etc/mailcap.order"; my $defpriority = 5; my $localgen = 0; # If the call comes from dpkg, only accept it if --triggered is passed # This is so that we don't get useless calls from packages' postinsts # that call update-mime due to dh_installmime adding that call for # when there was no triggers support. # # When this 'hack' is removed, mime-support's postinst should be updated # to not pass --triggered anymore in 'triggered'. if (defined $ENV{"DPKG_RUNNING_VERSION"} && defined $ARGV[0] && $ARGV[0] ne "--triggered") { exit (0); } # Allow local run if (defined $ARGV[0] && $ARGV[0] eq "--local") { $conffile = "$ENV{HOME}/.update-mime.conf"; $mailcap = "$ENV{HOME}/.mailcap"; $orderfile = "$ENV{HOME}/.mailcap.order"; $localgen = 1; } # # Allow local customizations # do $conffile if -f $conffile; # # Global Variables # my %entries; my %packages; my %priorities; my @order; my $counter=1; sub ReadEntries { my($pkg,$priority); # foreach my $file (glob "$mimedir/*") { foreach my $file (map { glob $_.'/*' } split ':',$mimedir) { next if ($file =~ m!(^|/)(\.|\#)|(\~)$!); ($pkg) = ($file =~ m|/([^/]*)$|); print STDERR "$pkg:\n" if $debug; if (!defined $packages{$pkg}) { $packages{$pkg} = []; } if (open(FILE,"<$file")) { while (<FILE>) { chomp; next if m/^\s*$|^\s*\#/; if (! m(^[a-zA-Z0-9*][a-zA-Z0-9!#\$&^_.+-]*/[a-zA-Z0-9*][a-zA-Z0-9!#\$&^_.+-]*;) ) { print STDERR "Warning: mailcap line not starting with a media type in $pkg\n"; print STDERR "Problematic line: $_\n"; } if (m/priority\s*=\s*(\d+)\s*($|;)/i) { $priority=$1; } else { $priority=$defpriority; } if ($priority < 0 || $priority > 9) { print STDERR "Error: priority of $priority is out of range (0 <= pri <= 9)\n"; print STDERR " $_\n"; $priority=$defpriority; } $entries{$counter} = $_; push @{$packages{$pkg}},$counter; push @{$priorities{$priority}},$counter; print STDERR "$counter: $_\n" if $debug; $counter++; } close(FILE); } else { print STDERR "Warning: could not open file '$file' -- $!\n"; } } } sub RecurseIntoDirectories { my @files; foreach my $dir (@_) { next if ($dir =~ m!(^|/)(\.|\#)|(\~)$!); my @entries = glob "$dir/*"; push @files, RecurseIntoDirectories(grep { -d $_ } @entries); push @files, grep { -f $_ } @entries; } return @files; } sub ReadDesktopEntries { my($pkg,$priority); foreach my $file (RecurseIntoDirectories(split ':',$appsdir)) { next if ($file =~ m!(^|/)(\.|\#)|(\~)$!); next unless ($file =~ m/\.desktop$/); ($pkg) = ($file =~ m|/([^/]*)\.desktop$|); print STDERR "$pkg:\n" if $debug; next if (defined $packages{$pkg}); $packages{$pkg} = []; if (open(FILE,"<$file")) { my($terminal, $name, $icon, $exec, @types) = ("test=test -n \"\$DISPLAY\"", $pkg); my $in_desktop_group = 0; while (<FILE>) { chomp; next if (m/^\s*$|^\s*\#/); if (m/^\[Desktop Entry\]$/) { $in_desktop_group = 1; next; } if (m/^\[.*\]$/) { $in_desktop_group = 0; next; } next unless $in_desktop_group; if (m/^Terminal=(\w+)/i) { $terminal = "needsterminal" if ($1 eq "true"); } elsif (m/^Name=(.+)/i) { $name = $1; } elsif (m/^Icon=(.+)/i) { $icon = $1; } elsif (m/Exec=(.*)$/i) { $exec = $1; $exec =~ s/%[fFuU]/%s/g; $exec .= " %s" if ($exec !~ m/%s/); } elsif (m/MimeType=(.*)/i) { my $err = 0; push @types, grep { if (length>0) {1} else {++$err;0} } split(/\s*;\s*/, $1); print STDERR "Warning: $file:$.: ignoring empty entries in MimeType\n" if $err; } } if (!defined($exec) || !scalar(@types)) { close(FILE); next; } $exec =~ s/%c/$name/g; $exec =~ s/%i/--icon $icon/g; foreach my $type (@types) { my $entry = "$type; $exec; $terminal"; $priority=$defpriority; $entries{$counter} = $entry; push @{$packages{$pkg}},$counter; push @{$priorities{$priority}},$counter; print STDERR "$counter: $entry\n" if $debug; $counter++; } close(FILE); } else { print STDERR "Warning: could not open file '$file' -- $!\n"; } } } sub ReadOrder { if (-e $orderfile) { if (open(FILE,"<$orderfile")) { while (<FILE>) { chomp; s/\s*\#.*$//; next if m/^\s*$/; push @order,$_; /(.*):/; my $pkg = $1; unless( grep {/^$pkg$/} keys(%packages)) { print STDERR "Warning: package $pkg listed in /etc/mailcap.order does not have mailcap entries.\n"; } } close(FILE); } else { print STDERR "Warning: could not open file '$orderfile' -- $!\n"; } } } sub OrderEntries { my(@entrylist,@orderlist,@templist,$priority,$entrycode,$ordercode); foreach $priority (sort {$b <=> $a} keys %priorities) { print STDERR " - Priority $priority:" if $debug; @templist = @{$priorities{$priority}}; @templist = sort { my $ae = $entries{$a}; my $ac = 0; $ac += 1 if $ae =~ m!^\S+/\*!; $ac += 2 if $ae =~ m!^\*/!; my $be = $entries{$b}; my $bc = 0; $bc += 1 if $be =~ m!^\S+/\*!; $bc += 2 if $be =~ m!^\*/!; $ac <=> $bc; } @templist; foreach my $entry (@templist) { print STDERR " $entry" if $debug; push @entrylist,$entry; } print STDERR "\n" if $debug; } print STDERR "entrylist: @entrylist\n" if $debug; foreach $ordercode (@order) { my($pkg,$typ); if ($ordercode =~ m/:/) { ($pkg,$typ) = ($ordercode =~ m/^(.*):(\S*)/); } else { $pkg = $ordercode; $typ = "*/*"; } $typ = "*/*" unless $typ; print STDERR " - Ordering '$ordercode'... (package=$pkg, type=$typ, orderlist=@orderlist)\n" if $debug; $typ =~ s/\*/\.\*/g; foreach $entrycode (@entrylist) { next if grep(/^\Q$entrycode\E$/,@orderlist); print STDERR " - Checking entrycode '$entrycode' against (@{$packages{$pkg}})...\n" if $debug; if (grep(/^\Q$entrycode\E$/,@{$packages{$pkg}})) { my $entry = $entries{$entrycode}; my($etype) = ($entry =~ m/^(.*?)(;|\s)/); print STDERR " - entry found, type=$etype, checking against '$typ'\n" if $debug; if ($etype =~ m!^$typ$!) { # print STDERR " - matched!\n" if $debug; # my($oaction) = ($ordercode =~ m/action=([^\s;]*)/i); # my($eaction) = ($entry =~ m/action=([^\s;]*)/i); # $eaction="view" unless $eaction; # print STDERR " - checking entry action '$eaction' against '$oaction'\n" if $debug; # if (!$oaction || $eaction =~ m/^($oaction)$/) { push @orderlist,$entrycode; print STDERR " - matched! (orderlist=@orderlist)\n" if $debug; # } } } } } foreach $entrycode (@entrylist) { next if grep(/^\Q$entrycode\E$/,@orderlist); push @orderlist,$entrycode; } print STDERR "orderlist: @orderlist\n" if $debug; return @orderlist; } # # Generate new mailcap file # sub UpdateMailcap { my(@entrylist) = @_; my(@above,@user,@below,$state,$entrycode); $state = 0; if (!open(PATH,"<$mailcap")) { if (!open(PATH,"<$mailcapdef")) { # print STDERR "Warning: could not read '$mailcap' (update stopped) -- $!\n"; # print STDERR " restore from backup or delete and re-install mime-support package"; return; } } while (<PATH>) { s/install-mime/update-mime/g; if ($state == 0) { push @above,$_; } $state=2 if ($state == 1 && /^\# ----- .* Ends /); if ($state == 1) { push @user,$_; } $state=1 if ($state == 0 && /^\# ----- .* Begins /); if ($state == 2) { push @below,$_; } $state=3 if ($state == 2); } close PATH; if ($state == 3) { my $newfile = join('',@above,@user,@below); $newfile .= "\n###############################################################################\n\n"; foreach $entrycode (@entrylist) { my $entry = $entries{$entrycode}; $entry =~ s/\s*priority\s*=\s*\d+\s*($|;)//; $entry =~ s/\s*;\s*$//; $newfile .= $entry."\n"; } if (!open(PATH,">$mailcap.new")) { print STDERR "Error: could not write '$mailcap.new' -- $!\n"; exit(1) unless ($debug); open(PATH,">-"); } print PATH $newfile; close PATH; if (!open(PATH,"<$mailcap.new")) { die "Error: could not read generated '$mailcap.new' -- $!\n"; } my $savfile = ""; $savfile .= $_ while (<PATH>); if ($savfile ne $newfile) { die "Error: contents of '$mailcap.new' do not match what was written -- abort\n"; } rename "$mailcap.new","$mailcap"; } else { print STDERR "Error: '$mailcap' is not in required format -- not updated\n"; print STDERR " Restore from backup or delete and re-install mime-support package"; } } ReadEntries(); ReadDesktopEntries(); ReadOrder(); my @list = OrderEntries(); UpdateMailcap(@list);