OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	05/26/2025 10:13:33 PM	rwxr-xr-x
📄 aa-remove-unknown	3 KB	03/06/2024 06:40:00 PM	rwxr-xr-x
📄 aa-status	8.63 KB	03/06/2024 06:40:00 PM	rwxr-xr-x
📄 aa-teardown	139 bytes	06/17/2019 11:55:38 PM	rwxr-xr-x
📄 add-shell	860 bytes	12/07/2019 02:13:44 AM	rwxr-xr-x
📄 addgroup	36.9 KB	04/16/2020 02:12:53 PM	rwxr-xr-x
📄 adduser	36.9 KB	04/16/2020 02:12:53 PM	rwxr-xr-x
📄 agetty	67.38 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 apparmor_parser	1.46 MB	03/06/2024 06:40:00 PM	rwxr-xr-x
📄 apparmor_status	8.63 KB	03/06/2024 06:40:00 PM	rwxr-xr-x
📄 arpd	78.27 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 arptables	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 arptables-nft	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 arptables-nft-restore	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 arptables-nft-save	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 arptables-restore	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 arptables-save	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 badblocks	34.32 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 blkdeactivate	14.49 KB	02/13/2020 09:21:51 PM	rwxr-xr-x
📄 blkdiscard	34.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 blkid	118.26 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 blkzone	70.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 blockdev	66.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 bridge	102.3 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 capsh	30.3 KB	02/20/2025 04:01:08 PM	rwxr-xr-x
📄 cfdisk	102.59 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 chcpu	46.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 chgpasswd	66.2 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 chmem	62.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 chpasswd	58.2 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 chroot	42.34 KB	09/05/2019 10:38:40 AM	rwxr-xr-x
📄 cpgr	60.34 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 cppw	60.34 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 cryptdisks_start	1.51 KB	02/04/2020 01:11:12 PM	rwxr-xr-x
📄 cryptdisks_stop	844 bytes	02/04/2020 01:11:12 PM	rwxr-xr-x
📄 cryptsetup	135.54 KB	01/29/2025 06:37:57 PM	rwxr-xr-x
📄 cryptsetup-reencrypt	105.32 KB	01/29/2025 06:37:57 PM	rwxr-xr-x
📄 ctrlaltdel	38.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 debugfs	225.8 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 delgroup	16.11 KB	04/16/2020 02:12:53 PM	rwxr-xr-x
📄 deluser	16.11 KB	04/16/2020 02:12:53 PM	rwxr-xr-x
📄 depmod	146.18 KB	07/28/2020 02:46:39 PM	rwxr-xr-x
📄 devlink	150.47 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 dhclient	508.98 KB	01/31/2023 10:10:35 PM	rwxr-xr-x
📄 dhclient-script	15.92 KB	01/31/2023 10:10:35 PM	rwxr-xr-x
📄 dmsetup	171.02 KB	02/13/2020 09:21:51 PM	rwxr-xr-x
📄 dmstats	171.02 KB	02/13/2020 09:21:51 PM	rwxr-xr-x
📄 dosfsck	58.08 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 dosfslabel	54.08 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 dumpe2fs	30.38 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2freefrag	18.38 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2fsck	327.21 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2image	42.38 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2label	106.55 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2mmpstatus	30.38 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2scrub	7.13 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2scrub_all	5.27 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e2undo	22.38 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e4crypt	30.38 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 e4defrag	34.3 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 ebtables	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ebtables-nft	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ebtables-nft-restore	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ebtables-nft-save	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ebtables-restore	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ebtables-save	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 faillock	14.15 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 fatlabel	54.08 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 fdformat	34.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 fdisk	150.27 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 filefrag	18.33 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 findfs	14.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 fsck	54.27 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 fsck.cramfs	38.26 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 fsck.ext2	327.21 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 fsck.ext3	327.21 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 fsck.ext4	327.21 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 fsck.fat	58.08 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 fsck.minix	122.25 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 fsck.msdos	58.08 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 fsck.vfat	58.08 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 fsfreeze	14.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 fstab-decode	14.3 KB	02/13/2020 06:38:21 PM	rwxr-xr-x
📄 fstrim	70.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 genl	82.29 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 getcap	14.3 KB	02/20/2025 04:01:08 PM	rwxr-xr-x
📄 getpcaps	14.3 KB	02/20/2025 04:01:08 PM	rwxr-xr-x
📄 getty	67.38 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 groupadd	90.95 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 groupdel	86.77 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 groupmems	62.24 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 groupmod	94.86 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 grpck	62.18 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 grpconv	58.05 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 grpunconv	58.05 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 halt	178.08 KB	03/02/2023 12:58:02 PM	rwxr-xr-x
📄 hwclock	102.35 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 iconvconfig	30.4 KB	01/29/2025 02:41:47 PM	rwxr-xr-x
📄 init	1.54 MB	03/02/2023 12:58:02 PM	rwxr-xr-x
📄 insmod	146.18 KB	07/28/2020 02:46:39 PM	rwxr-xr-x
📄 installkernel	2.58 KB	12/07/2019 02:13:44 AM	rwxr-xr-x
📄 integritysetup	60.23 KB	01/29/2025 06:37:57 PM	rwxr-xr-x
📄 invoke-rc.d	16.64 KB	06/21/2019 06:56:55 PM	rwxr-xr-x
📄 ip	545.12 KB	01/26/2021 01:33:08 PM	rwxr-xr-x
📄 ip6tables	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-apply	6.89 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-legacy	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-legacy-restore	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-legacy-save	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-nft	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-nft-restore	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-nft-save	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-restore	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-restore-translate	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-save	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 ip6tables-translate	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-apply	6.89 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-legacy	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-legacy-restore	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-legacy-save	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-nft	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-nft-restore	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-nft-save	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-restore	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-restore-translate	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-save	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 iptables-translate	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 isosize	30.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 killall5	26.38 KB	02/13/2020 06:38:21 PM	rwxr-xr-x
📄 ldattach	34.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 ldconfig	387 bytes	01/29/2025 02:41:47 PM	rwxr-xr-x
📄 ldconfig.real	1 MB	01/29/2025 02:41:47 PM	rwxr-xr-x
📄 logsave	14.16 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 losetup	110.34 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 lsmod	146.18 KB	07/28/2020 02:46:39 PM	rwxr-xr-x
📄 luksformat	3.32 KB	02/04/2020 01:11:12 PM	rwxr-xr-x
📄 mkdosfs	34.5 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 mke2fs	134.62 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 mkfs	14.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 mkfs.bfs	34.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 mkfs.cramfs	42.16 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 mkfs.ext2	134.62 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 mkfs.ext3	134.62 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 mkfs.ext4	134.62 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 mkfs.fat	34.5 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 mkfs.minix	106.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 mkfs.msdos	34.5 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 mkfs.vfat	34.5 KB	05/12/2018 10:59:39 PM	rwxr-xr-x
📄 mkhomedir_helper	22.17 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 mklost+found	14.3 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 mkswap	106.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 modinfo	146.18 KB	07/28/2020 02:46:39 PM	rwxr-xr-x
📄 modprobe	146.18 KB	07/28/2020 02:46:39 PM	rwxr-xr-x
📄 netplan	798 bytes	06/28/2024 04:59:34 PM	rwxr-xr-x
📄 newusers	98.8 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 nfnl_osf	18.3 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 nologin	14.3 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 pam-auth-update	19.86 KB	09/17/2021 06:05:34 AM	rwxr-xr-x
📄 pam_extrausers_chkpwd	42.16 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 pam_extrausers_update	42.16 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 pam_getenv	2.82 KB	08/12/2020 12:15:04 AM	rwxr-xr-x
📄 pam_tally	14.16 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 pam_tally2	18.16 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 pam_timestamp_check	14.15 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 pivot_root	14.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 poweroff	178.08 KB	03/02/2023 12:58:02 PM	rwxr-xr-x
📄 pwck	58.17 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 pwconv	54.05 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 pwunconv	54.05 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 raw	14.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 readprofile	22.26 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 reboot	178.08 KB	03/02/2023 12:58:02 PM	rwxr-xr-x
📄 remove-shell	904 bytes	12/07/2019 02:13:44 AM	rwxr-xr-x
📄 resize2fs	66.38 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 rfkill	50.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 rmmod	146.18 KB	07/28/2020 02:46:39 PM	rwxr-xr-x
📄 rmt	58.55 KB	12/05/2023 05:16:50 AM	rwxr-xr-x
📄 rmt-tar	58.55 KB	12/05/2023 05:16:50 AM	rwxr-xr-x
📄 rtacct	48.29 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 rtcwake	46.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 rtmon	78.24 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 runlevel	178.08 KB	03/02/2023 12:58:02 PM	rwxr-xr-x
📄 runuser	66.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 service	9.04 KB	06/21/2019 06:56:55 PM	rwxr-xr-x
📄 setcap	14.3 KB	02/20/2025 04:01:08 PM	rwxr-xr-x
📄 sfdisk	138.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 shadowconfig	885 bytes	07/14/2021 10:08:18 PM	rwxr-xr-x
📄 shutdown	178.08 KB	03/02/2023 12:58:02 PM	rwxr-xr-x
📄 sshd	863.79 KB	04/11/2025 12:16:08 PM	rwxr-xr-x
📄 start-stop-daemon	47.32 KB	05/25/2022 11:14:20 AM	rwxr-xr-x
📄 sulogin	50.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 swaplabel	18.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 swapoff	22.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 swapon	50.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 switch_root	14.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 sysctl	30.23 KB	10/31/2023 11:35:56 AM	rwxr-xr-x
📄 tarcat	936 bytes	12/05/2023 05:16:50 AM	rwxr-xr-x
📄 tc	529.45 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 telinit	178.08 KB	03/02/2023 12:58:02 PM	rwxr-xr-x
📄 tipc	126.23 KB	02/13/2020 05:21:59 PM	rwxr-xr-x
📄 tune2fs	106.55 KB	10/09/2023 01:56:01 AM	rwxr-xr-x
📄 tzconfig	106 bytes	03/26/2025 05:32:00 PM	rwxr-xr-x
📄 unix_chkpwd	42.15 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 unix_update	42.15 KB	01/10/2024 01:55:08 PM	rwxr-xr-x
📄 update-ca-certificates	5.29 KB	09/24/2024 05:46:09 PM	rwxr-xr-x
📄 update-mime	9.18 KB	10/18/2019 11:05:50 PM	rwxr-xr-x
📄 update-passwd	34.56 KB	12/16/2019 11:51:51 PM	rwxr-xr-x
📄 update-rc.d	16.76 KB	06/21/2019 06:56:55 PM	rwxr-xr-x
📄 useradd	143.71 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 userdel	98.89 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 usermod	139.49 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 veritysetup	51.82 KB	01/29/2025 06:37:57 PM	rwxr-xr-x
📄 vigr	68.55 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 vipw	68.55 KB	02/06/2024 12:49:54 PM	rwxr-xr-x
📄 visudo	218.2 KB	04/04/2023 11:56:28 AM	rwxr-xr-x
📄 wipefs	46.23 KB	04/09/2024 03:34:13 PM	rwxr-xr-x
📄 wpa_action	1.69 KB	08/13/2019 11:12:36 PM	rwxr-xr-x
📄 wpa_cli	152.22 KB	02/24/2025 08:14:55 PM	rwxr-xr-x
📄 wpa_supplicant	2.77 MB	02/24/2025 08:14:55 PM	rwxr-xr-x
📄 xtables-legacy-multi	96.97 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 xtables-monitor	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 xtables-nft-multi	215.32 KB	05/09/2023 06:39:57 PM	rwxr-xr-x
📄 zic	62.29 KB	01/29/2025 02:41:47 PM	rwxr-xr-x
📄 zramctl	114.34 KB	04/09/2024 03:34:13 PM	rwxr-xr-x

Editing: update-mime

#! /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);
			while (<FILE>) {
				chomp;
				next if (m/^\s*$|^\s*\#/);
				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);