Gecko [ betsfootball.net ]

Name	Size	Permission	Date
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

Rename

#! /usr/bin/perl

# Copyright (C) 2000 Roland Bauerschmidt <rb@debian.org>
#
# Based on the Debian "adduser" utility developed by:
#   Guy Maor <maor@debian.org>
#   Ted Hajek <tedhajek@boombox.micro.umn.edu>
#   Ian A. Murdock <imurdock@gnu.ai.mit.edu>
#
# This program is 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:
#
#   Free Software Foundation
#   51 Franklin Street, Fifth Floor
#   Boston, MA 02110
#   USA

use strict;
use warnings;

use Getopt::Long;

use Debian::AdduserCommon;

my $version = "3.134";

my $install_more_packages;

BEGIN {
    local $ENV{PERL_DL_NONLAZY}=1;
    eval 'use File::Find';
    if ($@) {
      $install_more_packages = 1;
    }
    #no warnings "File::Find";
    eval 'use File::Temp';
    if ($@) {
      $install_more_packages = 1;
    }
}

BEGIN {
    eval 'use Locale::gettext';
    if ($@) {
        *gettext = sub { shift };
        *textdomain = sub { "" };
        *LC_MESSAGES = sub { 5 };
    }
    eval {
        require POSIX;
        import POSIX qw(setlocale);
    };
    if ($@) {
        *setlocale = sub { return 1 };
    }
}

setlocale(LC_MESSAGES, "");
textdomain("adduser");

my $action = $0 =~ /delgroup$/ ? "delgroup" : "deluser";
our $verbose = 1;
my %pconfig = ();
my %config = ();
my @configfiles;
my @defaults;
my $no_preserve_root;

unless ( 
    GetOptions (
        "quiet|q" => sub {$verbose = 0; },
        "debug" => sub {$verbose = 2; },
        "verbose" => sub {$verbose = 2; },
        "version|v" => sub { &version(); exit 0; },
        "help|h" => sub { &usage(); exit 0;},
        "group" => sub { $action = "delgroup";},
        "conf|c=s" => \@configfiles,
        "system" => \$pconfig{"system"},
        "only-if-empty" => \$pconfig{"only_if_empty"},
        "remove-home" => \$pconfig{"remove_home"},
        "remove-all-files" => \$pconfig{"remove_all_files"},
        "backup" => \$pconfig{"backup"},
        "backup-to=s" => \$pconfig{"backup_to"},
        "backup-suffix=s" => \$pconfig{"backup_suffix"},
        "no-preserve-root" => \$no_preserve_root
    )
) {
    &usage;
    exit 1;
}

# everyone can issue "--help" and "--version", but only root can go on
dief (gtx("Only root may remove a user or group from the system.\n")) if ($> != 0);

if (!@configfiles) {
    @defaults = ("/etc/adduser.conf", "/etc/deluser.conf");
} else {
    @defaults = (@configfiles);
}

# explicitly set PATH, because super (1) cleans up the path and makes deluser unusable;
# this is also a good idea for sudo (which doesn't clean up)
$ENV{"PATH"}="/bin:/usr/bin:/sbin:/usr/sbin";

my @names = ();
my ($user,$group);

######################
# handling of @names #
######################

while (defined(my $arg = shift(@ARGV))) {
  if (defined($names[0]) && $arg =~ /^--/) {
        dief (gtx("No options allowed after names.\n"));
    } else {                    # it's a username
        push (@names, $arg);
    }
}

if(@names == 0) {
    if($action eq "delgroup") {
        print (gtx("Enter a group name to remove: "));
    } else {
        print (gtx("Enter a user name to remove: "));
    }
    chomp(my $answer=<STDIN>);
    push(@names, $answer);
}

if (length($names[0]) == 0 || @names > 2) {
    dief (gtx("Only one or two names allowed.\n"));
}

if(@names == 2) {      # must be deluserfromgroup
    $action = "deluserfromgroup";
    $user = shift(@names);
    $group = shift(@names);
} else {
    if($action eq "delgroup") {
        $group = shift(@names);
    } else {
        $user = shift(@names);
    }
}

undef(@names);

$ENV{"VERBOSE"} = $verbose;
$ENV{"DEBUG"}   = $verbose;

##########################################################
# (1) preseed the config
# (2) read the default /etc/adduser.conf configuration.
# (3) read the default /etc/deluser.conf configuration.
# (4) process commmand line settings
# last match wins
##########################################################

preseed_config (\@defaults,\%config);

foreach(keys(%pconfig)) {
    $config{$_} = $pconfig{$_} if ($pconfig{$_});
}

if (($config{remove_home} || $config{remove_all_files} || $config{backup}) && ($install_more_packages)) {
    fail (8, gtx("In order to use the --remove-home, --remove-all-files, and --backup features,
you need to install the `perl' package. To accomplish that, run
apt-get install perl.\n"));
}

my ($pw_uid, $pw_gid, $pw_homedir, $gr_gid, $maingroup);

if(defined($user)) {
    my @passwd = getpwnam($user);
    $pw_uid = $passwd[2];
    $pw_gid = $passwd[3];
    $pw_homedir = $passwd[7];

$maingroup = $pw_gid ? getgrgid($pw_gid) : "";
}
if(defined($group)) {
    #($gr_name,$gr_passwd,$gr_gid,$gr_members) = getgrnam($group);
    my @group = getgrnam($group);
    $gr_gid = $group[2];
}

# arguments are processed:
#
#  $action = "deluser"
#     $user          name of the user to remove
#
#  $action = "delgroup"
#     $group         name of the group to remove
#
#  $action = "deluserfromgroup"
#     $user          the user to be remove
#     $group         the group to remove him/her from

if($action eq "deluser") {
    my($dummy1,$dummy2,$uid);

# Don't allow a non-system user to be deleted when --system is given
    # Also, "user does not exist" is only a warning with --system, but an
    # error without --system.
    if( $config{"system"} ) {
        if( ($dummy1,$dummy2,$uid) = getpwnam($user) ) {
            if ( ($uid < $config{"first_system_uid"} ||
                $uid > $config{"last_system_uid" } ) ) {
                warnf (gtx("The user `%s' is not a system user. Exiting.\n"), $user) if $verbose;
                 exit 1;
            }
        } else {
            warnf (gtx("The user `%s' does not exist, but --system was given. Exiting.\n"), $user) if $verbose;
            exit 0;
        }
    }

unless(exist_user($user)) {
        fail (2,gtx("The user `%s' does not exist.\n"),$user);
    }

# Warn in any case if you want to remove the root account
    if ((defined($pw_uid)) && ($pw_uid == 0) && (!defined($no_preserve_root)))  {
        printf (gtx("WARNING: You are just about to delete the root account (uid 0)\n"));
        printf (gtx("Usually this is never required as it may render the whole system unusable\n"));
        printf (gtx("If you really want this, call deluser with parameter --no-preserve-root\n"));
        printf (gtx("Stopping now without having performed any action\n"));
        exit 9;
    }

# consistency check
    # if --backup-to is specified, --backup should be set too
    if ($pconfig{"backup_to"}) {
        $config{"backup"} = 1;
    }

if($config{"remove_home"} || $config{"remove_all_files"}) {
        s_print (gtx("Looking for files to backup/remove ...\n"));
        my @mountpoints;
        my $exclude_fstypes = $config{"exclude_fstypes"};
        open(MOUNT, '/proc/mounts')
            || fail (4 ,gtx("failed to open /proc/mounts: %s\n", $!));
        while (<MOUNT>) {
          my @temparray = split;
          my ($fstype, $fname) = ($temparray[2], $temparray[1]);

next if $fname eq '/';
          next if $fname eq '/home';

push @mountpoints,$fname if ($fstype =~ /$exclude_fstypes/);
        }
        close(MOUNT) or dief (gtx("failed to close /proc/mounts: %s\n",$!));
        my(@files,@dirs);
        if($config{"remove_home"}) {
            # collect all files in user home
            sub home_match {
                push(@files, $File::Find::name)
                    if(-f $File::Find::name || -l $File::Find::name);
                push(@dirs, $File::Find::name)
                    if(-d $File::Find::name);
            } # sub home_match

File::Find::find({wanted => \&home_match, untaint => 1, no_chdir => 1}, $pw_homedir)
                if(-d "$pw_homedir");
            push(@files, "/var/mail/$user")
                if(-e "/var/mail/$user");
        }

if ($config{"remove_all_files"}) {
            # collect all files on system belonging to that user
            sub find_match {
                my ($dev,$ino,$mode,$nlink,$uid,$gid) = lstat;
                foreach my $mount (@mountpoints) {
                    if( $File::Find::name eq $mount ) {
                        s_printf (gtx("Not backing up/removing `%s', it is a mount point.\n"),$File::Find::name) if ($verbose > 1);
                        $File::Find::prune=1;
                        return;
                    }
                }
                foreach my $re ( split ' ', $config{"no_del_paths"} ) {
                    if( $File::Find::name =~ qr/$re/ ) {
                      s_printf (gtx("Not backing up/removing `%s', it matches %s.\n"),$File::Find::name,$re) if ($verbose > 1);
                      $File::Find::prune=1;
                      return;
                    }
                }
                (defined($uid) && ($uid == $pw_uid)) &&
                    (
                        (-f $File::Find::name && push(@files, $File::Find::name)) ||
                        (-l $File::Find::name && push(@files, $File::Find::name)) ||
                        (-d $File::Find::name && push(@dirs, $File::Find::name)) ||
                        (-S $File::Find::name && push(@files, $File::Find::name)) ||
                        (-p $File::Find::name && push(@files, $File::Find::name))
                    );
                if ( -b $File::Find::name || -c $File::Find::name ) {
                    warnf (gtx("Cannot handle special file %s\n"),$File::Find::name);
                }
            } # sub find_match

File::Find::find({wanted => \&find_match, untaint => 1, no_chdir => 1}, '/');
        }

if($config{"backup"}) {
            s_printf (gtx("Backing up files to be removed to %s ...\n"),$config{"backup_to"});
            my $filesfile = new File::Temp(TEMPLATE=>"deluser.XXXXX", DIR=>"/tmp");
            my $filesfilename = $filesfile->filename;
            my $backup_name = $config{"backup_to"} . "/$user.tar";
            print $filesfile join("\n", map { s/^\///r } @files);
    
            $filesfile->close();
            my $tar = &which('tar');
            &check_backup_suffix();
            $backup_name .= $config{'backup_suffix'};
            print "backup_name = $backup_name\n";
            &systemcall($tar, "--directory", "/", "--auto-compress", "-cf", $backup_name, "--files-from", $filesfilename);
            chmod 0600, $backup_name;
            my $rootid = 0;
            chown $rootid, $rootid, $backup_name;
            unlink($filesfilename);
        }

if(@files || @dirs) {
            s_print (gtx("Removing files ...\n"));
            unlink(@files) if(@files);
            foreach(reverse(sort(@dirs))) {
                rmdir unless /^$config{dhome}$/ || /^\/$/;
            }
        }
    }

if (-x '/usr/bin/crontab') {
        s_print(gtx("Removing crontab ...\n"));

if (&systemcall_silent('/usr/bin/crontab', '-u', $user, '-l') == 0) {
            &systemcall_or_warn('/usr/bin/crontab', '-u', $user, '-r');
        }
    } else {
        warnf(gtx("`%s' not executed. Skipping crontab removal. Package `cron' required.\n"),
            '/usr/bin/crontab');
    }

s_printf(gtx("Removing user `%s' ...\n"), $user);
    acquire_lock();
    &systemcall('/usr/sbin/userdel', $user);
    release_lock();

&systemcall('/usr/local/sbin/deluser.local', $user, $pw_uid,
        $pw_gid, $pw_homedir) if (-x "/usr/local/sbin/deluser.local");

s_print(gtx("Done.\n"));
    exit 0;
}

if ($action eq 'delgroup') {
    unless (exist_group($group)) {
        warnf (gtx("The group `%s' does not exist.\n"), $group) if $verbose;
        exit(0) if $config{'system'};
        exit(3);
    }

my($dummy,$gid,$members);
    if( !(($dummy, $dummy, $gid, $members ) = getgrnam($group)) ) {
        fail (4 ,gtx("getgrnam `%s' failed. This shouldn't happen.\n"), $group);
    }
    if( $config{"system"} &&
        ($gid < $config{"first_system_gid"} ||
         $gid > $config{"last_system_gid" } )) {
        warnf (gtx("The group `%s' is not a system group. Exiting.\n"), $group) if $verbose;
        exit 3;
    }
    if( $config{"only_if_empty"} && $members ne "") {
        fail (5, gtx("The group `%s' is not empty!\n"),$group);
    }

# groupdel will error out if there are users left that
    # have $group as primary group. We are not checking this
    # ourself since this would mean enumerating all users.
    s_printf (gtx("Removing group `%s' ...\n"),$group);
    my $groupdel = &which('groupdel');
    acquire_lock();
    &systemcall($groupdel,$group);
    release_lock();
    s_print (gtx("Done.\n"));
    exit 0;
}

if($action eq 'deluserfromgroup')
{
    unless(exist_user($user)) {
        fail (2, gtx("The user `%s' does not exist.\n"),$user);
    }
    unless(exist_group($group)) {
        fail (3, gtx("The group `%s' does not exist.\n"),$group);
    }
    if($maingroup eq $group) {
        fail (7, gtx("You may not remove the user from their primary group.\n"));
    }

my $is_member;
    my @members;

foreach my $member (get_group_members($group)) {

if ($member eq $user) {
            $is_member = 1;
            next;
        }

push @members, $member;
    }

unless($is_member) {
        fail (6, gtx("The user `%s' is not a member of group `%s'.\n"),$user,$group);
    }

s_printf (gtx("Removing user `%s' from group `%s' ...\n"),$user,$group);

acquire_lock();
    &systemcall('/usr/bin/gpasswd', '-M', join(',', @members), $group);
    release_lock();

s_print (gtx("Done.\n"));
}

######

sub fail {
  my ($errorcode, $format, @args) = @_;
  warnf "$format",@args;
  exit $errorcode;
}

sub version {
    printf (gtx("deluser version %s\n\n"), $version);
    print gtx("Removes users and groups from the system.

For detailed copyright information, please refer to
/usr/share/doc/adduser/copyright.
\n");

print gtx("This program is 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, /usr/share/common-licenses/GPL, for more details.
");
}

sub usage {
    printf gtx(
"deluser [--system] [--remove-home] [--remove-all-files] [--backup]
        [--backup-to dir] [--backup-suffix str] [--conf file]
        [--quiet] [--verbose] [--debug] user

remove a normal user from the system

deluser --group [--system] [--only-if-empty] [--conf file] [--quiet]
        [--verbose] [--debug] group
delgroup [--system] [--only-if-empty] [--conf file] [--quiet]
         [--verbose] [--debug] group
  remove a group from the system

deluser [--conf file] [--quiet] [--verbose] [--debug] user group
  remove the user from a group\n");
}

sub exist_user {
    my $exist_user = shift;
    return(defined getpwnam($exist_user));
}

sub exist_group {
    my $exist_group = shift;
    return(defined getgrnam($exist_group));
}

sub check_backup_suffix {
    my $tar = &which('tar');
    my $suffix = $config{'backup_suffix'} || 'gz';
    if ($suffix !~ /^\./) {
        $suffix = ".$suffix";
    }
    my $filename = '/tmp/deluser-check.tar';
    my $testfile = 'usr/sbin/deluser';
    &systemcall_silent_error($tar, '--auto-compress', '--directory', '/', '-cf', $filename.$suffix, $testfile);

if ($?) {
        # compressor recognized, not available
        warnf gtx("Backup suffix %s unavailable, using gzip.\n"), $suffix;
        $suffix = '.gz';
    } else {
        # no error, check if compressed
        &systemcall_silent($tar, '--directory', '/', '-cf', $filename, $testfile);

my @zstat = stat($filename.$suffix);
        my @ustat = stat($filename);
        unlink($filename, $filename.$suffix);
        if ($zstat[7] == $ustat[7]) {
            warnf gtx("Backup suffix %s unavailable, using gzip.\n"), $suffix;
            $suffix = '.gz';
        }
    }
    $config{'backup_suffix'} = $suffix;
}

# vim: tabstop=4 shiftwidth=4 expandtab