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

# a2query - Apache2 helper to retrieve configuration informations
# Copyright (C) 2012 Arno Töll <debian@toell.net>
#
# This program is licensed at your choice under the terms of the GNU General
# Public License version 2+ or under the terms of the Apache Software License
# 2.0.
#
# For GPL-2+:
# 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 the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301,
# USA.
#
# For ASF 2.0:
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

use feature "switch";
use strict;
use Getopt::Std;

=head1 NAME

a2query - retrieve runtime configuration from a local Apache 2 HTTP server

=cut

our $APACHE2 = "apache2ctl";
our $API = "20120211";
our $MODULE_DIR = "/usr/lib/apache2/modules/";
our $SERVER_VERSION = "2.4.62";
our $MODULE_DIR = "/usr/lib/apache2/modules/";
our $STATE_DIR = "/var/lib/apache2";
our @STATES = ("maint", "admin");

our $MPM = "invalid";
our $CONFIG_DIR = "/etc/apache2";
our $QUIET = 0;

# time to introduce more _exit_ values
our $E_OK = '0';
our $E_FOUND = '0';
our $E_NOTFOUND = '1';
our $E_OFFBYADMIN = '32';
our $E_OFFBYMAINT = '33';
our @RETVALS = ( $E_OK, $E_FOUND, $E_OFFBYADMIN, $E_NOTFOUND, $E_OFFBYMAINT );

our @MODULES = ();
our @CONFS = ();
our @SITES =();
our @HELP = ();
our %verbose_state = ( 'admin' => 'site administrator', 'maint' => 'maintainer script', 'unknown' => 'unknown' );

=head1 SYNOPSIS

B<a2query>  [S<-m> [I<MODULE>]] [S<-s> [I<SITE>]] [S<-c> [I<CONF>]] [S<-a>] [S<-v>]
[S<-M>] [S<-d>] [S<-h>]

=head1 DESCRIPTION

B<a2query> is a program designed to retrieve configuration values from a locally
available Apache 2 HTTP web server. It was designed to be as robust as possible
by returning feasible values even if the Apache 2 syntax validator fails.

This program is primarily meant to be used from maintainer scripts.

=head1 OPTIONS

=over 4

=item S<-a>

Returns the Apache 2 "Module Magic Version" (API version) number, the server was
compiled with. The returned version does not contain any minor versions which
are known to be compatible with the major version returned.

=item S<-c> [I<CONF>]

Checks whether the configuration I<CONF> is enabled. If no argument was given,
all enabled configuration files are being returned. I<CONF> is compared by
string comparison by ignoring a leading "mod_" prefix and possibly a '.conf' or
'.load' suffix.

=item S<-h>

Displays a brief summary how the program can be called and exits.

=item S<-m> [I<MODULE>]

Checks whether the module I<MODULE> is enabled, The argument is interpreted in
the same way, as for configuration files queried by the S<-c> switch.

=item S<-M>

Returns the currently enabled Apache 2 MPM (Multi Processing Module).

=item S<-s> [I<SITE>]

Checks whether the module I<SITE> is enabled, The argument is interpreted in
the same way, as for configuration files queried by the S<-c> switch.

=item S<-v>

returns the currently installed Apache 2 HTTP server version

=item S<-q>

suppress any output. This is useful to invoke a2query from another script. This
is useful if only the return code is of interest.

=back

=head1 EXIT CODES

B<a2query> returns with a zero (S<0>) exit status if the requested operation was
effectuated successfully and with a non-zero status otherwise. In case of an
error it leaves with error code S<32> if a requested module, site or
configuration was not found and S<33> if a module, site or configuration was
disabled by a maintainer script. However, exit status S<1> is returned if the
module was not found at all

=head1 SEE ALSO

L<apache2ctl>(8), L<apache2>(8), L<perl>(1)

=head1 AUTHOR

This manual and L<a2query> was written by Arno Toell <debian@toell.net>.

=cut

sub output
{
	print @_ unless $QUIET;
}

sub warning
{
	print STDERR @_ unless $QUIET;
}

sub fail
{
	die('usage: fail($reason, $retval)') if @_ != 2;
	my $reason = shift;
	my $retval = shift;
	warning "$reason\n";
	exit $retval;
}

sub load_defaults
{
	my @out = `$APACHE2 -V 2>/dev/null`;
	return if $?;
	foreach my $line (@out)
	{
		if ($line =~ m/(Server version|Server MPM|Magic Number):\s+(.*?)$/)
		{
			my ($pattern, $value) = ($1, $2);
			if ($pattern =~ /version/)
			{
				$SERVER_VERSION = $value;
				$SERVER_VERSION =~ s/[^\d\.]//g;
			}
			elsif ($pattern =~ /MPM/)
			{
				$MPM = $value;
			}
			elsif ($pattern =~ /Magic/)
			{
				$API = $value;
				$API =~ s/\:\d+//;
			}
		}
	}

}

sub load_modules
{
	my $conf_dir = $CONFIG_DIR . "/mods-enabled";
	opendir(DIR, $conf_dir) || fail("$conf_dir: $!", 1);
	while ( readdir(DIR) )
	{
		my $file = $_;
		next if $file !~ m/\.load$/;
		$file =~ s/\.load//;
		if ($file =~ /mpm_(event|worker|prefork)/)
		{
			$MPM = $1 if $MPM eq 'invalid';
			if (grep { $_ =~ m/^mpm_(?:event|worker|prefork)/ } @MODULES)
			{
				fail("There is more than one MPM loaded. Do not proceed due to undefined results", 1);
			}
		}
		push @MODULES, $file;
	}
	closedir(DIR);
}

sub load_conf
{
	if ($#CONFS >= 0)
	{
		return;
	}
	my $conf_dir = $CONFIG_DIR . "/conf-enabled";
	opendir(DIR, $conf_dir) || fail("$conf_dir: $!", 1);
	while ( readdir(DIR) )
	{
		my $file = $_;
		next if $file !~ m/\.conf$/;
		$file =~ s/\.conf$//;
		push @CONFS, $file;
	}
	closedir(DIR);
}

sub load_sites
{
	if ($#SITES >= 0)
	{
		return;
	}
	my $conf_dir = $CONFIG_DIR . "/sites-enabled";
	opendir(DIR, $conf_dir) || fail("$conf_dir: $!", 1);
	while ( readdir(DIR) )
	{
		my $file = $_;
		next if $file !~ m/\.conf$/;
		$file =~ s/\.conf$//;
		push @SITES, $file;
	}
	closedir(DIR);
}

sub switch_history
{
	die('usage: switch_history([module|site|conf], [enabled|disabled], $name)') if @_ != 3;
	my $which = shift;
	my $what = shift;
	my $name = shift;

$name =~ s/\.conf$//;

foreach my $state (@STATES)
	{
		my $state_token = "$STATE_DIR/$which/$what" . "_by_$state/" . $name;
		if (-e $state_token)
		{
			return $state;
		}
	}
	return 0;
}

sub query_state
{
	my $type    = shift;
	my $pattern = shift;
	my $listref = shift;

$pattern =~ s/^mod//;
	$pattern =~ s/\.(conf|load)//;
	my @candidates;

if ($pattern)
	{
		@candidates = grep { $_ eq $pattern } @{ $listref };
	}
	else
	{
		@candidates = @{ $listref }
	}

my $matches = 0;
	foreach my $module (@candidates)
	{
		my $state = switch_history($type, "enabled", $module);
		if (!$state)
		{
			$state = "unknown";
		}
		output("$module (enabled by $verbose_state{$state})\n");
		$matches++;
	}
	if (!$matches)
	{
		my $reason = "No $type matches $pattern";
		my $retval = $E_NOTFOUND;
		my $state = switch_history($type, "disabled", $pattern);
		if ($state)
		{
			$reason .= " (disabled by $verbose_state{$state})";
			if ($state eq 'maint')
			{
				$retval = $E_OFFBYMAINT;
			}
			if ($state eq 'admin')
			{
				$retval = $E_OFFBYADMIN;
			}
		}
		fail($reason, $retval);
	}
}

load_defaults();
load_modules();

my %opts;
my $help = 1;
getopts('m:s:c:havMdq', \%opts);
#foreach my $key (keys %opts) { print("$key=$opts{$key}\n");}

push @HELP, ["q", "suppress any output. Useful for invocation from scripts"];
if (exists $opts{'q'})
{
	--$help;
	$QUIET=1;
}

push @HELP, ["m [MODULE]", "checks whether the module MODULE is enabled, lists all enabled modules if no argument was given"];
if (exists $opts{'m'})
{
	--$help;
	query_state('module', $opts{'m'}, \@MODULES);
}

push @HELP, ["s [SITE]", "checks whether the site SITE is enabled, lists all sites if no argument was given"];
if (exists $opts{'s'})
{
	--$help;
	load_sites();
	query_state('site', $opts{'s'}, \@SITES);
}

push @HELP, ["c [CONF]", "checks whether the configuration CONF is enabled, lists all configurations if no argument was given"];
if (exists $opts{'c'})
{
	--$help;
	load_conf();
	query_state('conf', $opts{'c'}, \@CONFS);
}

push @HELP, ["a", "returns the current Apache 2 module magic version"];
if (exists $opts{'a'})
{
	--$help;
	output("$API\n");
}

push @HELP, ["v", "returns the current Apache 2 version"];
if (exists $opts{'v'})
{
	--$help;
	output("$SERVER_VERSION\n");
}

push @HELP, ["M", "returns the enabled Apache 2 MPM"];
if (exists $opts{'M'})
{
	--$help;
	output("$MPM\n");
}

push @HELP, ["d", "returns the Apache 2 module directory"];
if (exists $opts{'d'})
{
	--$help;
	output("$MODULE_DIR\n");
}

push @HELP, ["h", "display this help"];
if (exists $opts{'h'} or $help == 1)
{
	my $usage = "$0 ";
	map { $usage .= "-$_->[0] " } @HELP;
	print("Usage: $usage\n");
	my $switch_name;
	my $description;
	format STDOUT =
@<<<<<<<<<<<<	^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
"-$switch_name",        $description,
~~	        ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
			$description,
.
	foreach my $switch (@HELP)
	{
		($switch_name, $description) = ($switch->[0], $switch->[1]);
		write STDOUT;
	}
	exit $E_OK;
}