Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
a2disconf	15.89 KB	-rwxr-xr-x	2019-06-16 11:49
a2dismod	15.89 KB	-rwxr-xr-x	2019-06-16 11:49
a2dissite	15.89 KB	-rwxr-xr-x	2019-06-16 11:49
a2enconf	15.89 KB	-rwxr-xr-x	2019-06-16 11:49
a2enmod	15.89 KB	-rwxr-xr-x	2019-06-16 11:49
a2ensite	15.89 KB	-rwxr-xr-x	2019-06-16 11:49
a2query	9.64 KB	-rwxr-xr-x	2022-03-18 13:54
accessdb	10.23 KB	-rwxrwxrwx	2016-12-13 14:10
add-shell	860 B	-rwxrwxrwx	2017-04-02 19:10
addgnupghome	3.01 KB	-rwxrwxrwx	2019-02-07 21:57
addgroup	33.7 KB	-rwxrwxrwx	2016-06-27 00:55
adduser	33.7 KB	-rwxrwxrwx	2016-06-27 00:55
anacron	34.02 KB	-rwxr-xr-x	2017-05-29 18:36
apache2	651.16 KB	-rwxr-xr-x	2022-03-18 13:54
apache2ctl	7.05 KB	-rwxr-xr-x	2019-10-13 17:39
apachectl	7.05 KB	-rwxr-xr-x	2019-10-13 17:39
applygnupgdefaults	2.17 KB	-rwxrwxrwx	2019-02-07 21:57
arp	62.03 KB	-rwxrwxrwx	2016-12-26 06:58
arpaname	9.99 KB	-rwxr-xr-x	2022-03-19 14:43
arpd	46.84 KB	-rwxrwxrwx	2017-11-24 10:22
aspell-autobuildhash	13.22 KB	-rwxrwxrwx	2016-10-10 11:58
backup-manager	6.94 KB	-rwxrwxrwx	2016-08-23 12:51
bacula-console	44.77 KB	-rwxr-xr-x	2020-08-26 20:03
bacula-fd	239.47 KB	-rwxr-xr-x	2020-08-26 20:03
bconsole	44.77 KB	-rwxr-xr-x	2020-08-26 20:03
biosdecode	18.82 KB	-rwxrwxrwx	2016-09-01 04:59
bsmtp	18.52 KB	-rwxr-xr-x	2020-08-26 20:03
btraceback	2.27 KB	-rwxr-xr-x	2020-08-26 20:03
check_forensic	952 B	-rwxr-xr-x	2011-04-26 17:10
chgpasswd	57.8 KB	-rwxr-xr-x	2021-03-17 10:27
chpasswd	49.9 KB	-rwxr-xr-x	2021-03-17 10:27
chroot	38.88 KB	-rwxrwxrwx	2017-02-22 13:23
clamd	202.1 KB	-rwxr-xr-x	2022-05-27 11:18
clamonacc	190.09 KB	-rwxr-xr-x	2022-05-27 11:18
convertquota	71.74 KB	-rwxrwxrwx	2018-02-24 07:55
cpgr	52 KB	-rwxr-xr-x	2021-03-17 10:27
cppw	52 KB	-rwxr-xr-x	2021-03-17 10:27
cron	47.48 KB	-rwxr-xr-x	2021-10-29 22:04
dbconfig-generate-include	12.37 KB	-rwxrwxrwx	2017-01-05 20:23
dbconfig-load-include	5.57 KB	-rwxrwxrwx	2017-01-05 20:23
ddns-confgen	17.99 KB	-rwxr-xr-x	2022-03-19 14:43
delgroup	15.43 KB	-rwxrwxrwx	2016-06-27 00:55
deluser	15.43 KB	-rwxrwxrwx	2016-06-27 00:55
dmidecode	102.49 KB	-rwxrwxrwx	2016-09-01 04:59
dnssec-checkds	10.66 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-coverage	28.07 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-dsfromkey	50 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-dsfromkey-pkcs11	50 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-importkey	50 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-importkey-pkcs11	50 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-keyfromlabel	54 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-keyfromlabel-pkcs11	54 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-keygen	62 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-keygen-pkcs11	62 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-revoke	46 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-revoke-pkcs11	46 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-settime	54 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-settime-pkcs11	54 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-signzone	102.03 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-signzone-pkcs11	102.03 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-verify	46.01 KB	-rwxr-xr-x	2022-03-19 14:43
dnssec-verify-pkcs11	46.01 KB	-rwxr-xr-x	2022-03-19 14:43
dovecot	86.09 KB	-rwxr-xr-x	2021-01-05 13:19
dpkg-preconfigure	3.52 KB	-rwxrwxrwx	2017-05-21 19:08
dpkg-reconfigure	4.23 KB	-rwxrwxrwx	2017-05-21 19:08
e2freefrag	10.07 KB	-rwxrwxrwx	2020-07-25 11:03
e4crypt	22.07 KB	-rwxrwxrwx	2020-07-25 11:03
e4defrag	25.99 KB	-rwxrwxrwx	2020-07-25 11:03
edquota	80.11 KB	-rwxrwxrwx	2018-02-24 07:55
fdformat	30.66 KB	-rwxrwxrwx	2018-03-07 19:29
filefrag	14.02 KB	-rwxrwxrwx	2020-07-25 11:03
genccode	10.59 KB	-rwxr-xr-x	2021-10-12 12:29
gencmn	10.64 KB	-rwxr-xr-x	2021-10-12 12:29
genl	50.79 KB	-rwxrwxrwx	2017-11-24 10:22
gennorm2	43.38 KB	-rwxr-xr-x	2021-10-12 12:29
genrandom	10 KB	-rwxr-xr-x	2022-03-19 14:43
gensprep	18.98 KB	-rwxr-xr-x	2021-10-12 12:29
groupadd	57.86 KB	-rwxr-xr-x	2021-03-17 10:27
groupdel	53.65 KB	-rwxr-xr-x	2021-03-17 10:27
groupmems	53.84 KB	-rwxr-xr-x	2021-03-17 10:27
groupmod	68.22 KB	-rwxr-xr-x	2021-03-17 10:27
grpck	53.77 KB	-rwxr-xr-x	2021-03-17 10:27
grpconv	49.65 KB	-rwxr-xr-x	2021-03-17 10:27
grpunconv	49.65 KB	-rwxr-xr-x	2021-03-17 10:27
grub-bios-setup	790.19 KB	-rwxrwxrwx	2019-06-12 13:20
grub-install	996.58 KB	-rwxrwxrwx	2019-06-12 13:20
grub-macbless	777.88 KB	-rwxrwxrwx	2019-06-12 13:20
grub-mkconfig	7.82 KB	-rwxrwxrwx	2019-06-12 13:20
grub-mkdevicemap	204.47 KB	-rwxrwxrwx	2019-06-12 13:20
grub-probe	790.19 KB	-rwxrwxrwx	2019-06-12 13:20
grub-reboot	4.01 KB	-rwxrwxrwx	2019-06-12 13:20
grub-set-default	3.48 KB	-rwxrwxrwx	2019-06-12 13:20
httxt2dbm	9.99 KB	-rwxr-xr-x	2022-03-18 13:54
iconvconfig	22.66 KB	-rwxrwxrwx	2019-02-06 22:17
icupkg	19.18 KB	-rwxr-xr-x	2021-10-12 12:29
inetd	34.38 KB	-rwxrwxrwx	2017-01-02 11:49
install-sgmlcatalog	4.44 KB	-rwxrwxrwx	2016-11-07 08:06
invoke-rc.d	17.69 KB	-rwxrwxrwx	2017-05-02 12:20
ip6tables-apply	6.85 KB	-rwxrwxrwx	2017-04-12 11:41
iptables-apply	6.85 KB	-rwxrwxrwx	2017-04-12 11:41
irqbalance	55.38 KB	-rwxrwxrwx	2017-03-10 19:56
isc-hmac-fixup	9.99 KB	-rwxr-xr-x	2022-03-19 14:43
ispell-autobuildhash	15.39 KB	-rwxrwxrwx	2016-10-10 11:58
ldattach	30.71 KB	-rwxrwxrwx	2018-03-07 19:29
locale-gen	1.5 KB	-rwxrwxrwx	2017-07-31 16:32
logrotate	75.27 KB	-rwxrwxrwx	2017-01-07 19:54
logwatch	58 KB	-rwxr-xr-x	2017-01-21 17:44
make-ssl-cert	3.78 KB	-rwxrwxrwx	2017-04-28 21:58
mkinitramfs	10.01 KB	-rwxrwxrwx	2017-04-26 03:00
mklost+found	9.99 KB	-rwxrwxrwx	2020-07-25 11:03
mysqld	17.05 MB	-rwxr-xr-x	2021-03-22 19:49
named	622.24 KB	-rwxr-xr-x	2022-03-19 14:43
named-checkconf	34.19 KB	-rwxr-xr-x	2022-03-19 14:43
named-checkzone	30.19 KB	-rwxr-xr-x	2022-03-19 14:43
named-compilezone	30.19 KB	-rwxr-xr-x	2022-03-19 14:43
named-journalprint	9.99 KB	-rwxr-xr-x	2022-03-19 14:43
named-pkcs11	622.24 KB	-rwxr-xr-x	2022-03-19 14:43
named-rrchecker	13.99 KB	-rwxr-xr-x	2022-03-19 14:43
netfilter-persistent	1.05 KB	-rwxr-xr-x	2020-05-02 21:33
newusers	78.43 KB	-rwxr-xr-x	2021-03-17 10:27
nfnl_osf	13.99 KB	-rwxrwxrwx	2017-04-12 11:41
nginx	1.01 MB	-rwxr-xr-x	2021-06-07 21:02
nologin	5.99 KB	-rwxr-xr-x	2021-03-17 10:27
nsec3hash	10 KB	-rwxr-xr-x	2022-03-19 14:43
ntp-keygen	73.77 KB	-rwxrwxrwx	2018-02-15 12:45
ntp-wait	3.13 KB	-rwxrwxrwx	2018-02-15 12:45
ntpd	713.22 KB	-rwxrwxrwx	2018-02-15 12:45
ntpdate	75.17 KB	-rwxrwxrwx	2018-02-15 12:45
ntpdate-debian	534 B	-rwxrwxrwx	2018-02-15 12:45
ntptime	18.12 KB	-rwxrwxrwx	2018-02-15 12:45
ownership	10.13 KB	-rwxrwxrwx	2016-09-01 04:59
pam-auth-update	19.03 KB	-rwxrwxrwx	2017-05-27 17:44
pam_getenv	2.82 KB	-rwxrwxrwx	2017-05-27 17:44
pam_timestamp_check	10.37 KB	-rwxrwxrwx	2017-05-27 17:44
paperconfig	4.07 KB	-rwxrwxrwx	2016-11-11 12:28
passenger-memory-stats	5.65 KB	-rwxrwxrwx	2019-03-17 19:40
passenger-status	10.68 KB	-rwxrwxrwx	2019-03-17 19:40
phpdismod	7.11 KB	-rwxrwxrwx	2017-01-01 20:43
phpenmod	7.11 KB	-rwxrwxrwx	2017-01-01 20:43
phpquery	6.26 KB	-rwxrwxrwx	2017-01-01 20:43
pkcs11-destroy	9.99 KB	-rwxr-xr-x	2022-03-19 14:43
pkcs11-keygen	15.58 KB	-rwxr-xr-x	2022-03-19 14:43
pkcs11-list	9.99 KB	-rwxr-xr-x	2022-03-19 14:43
pkcs11-tokens	9.99 KB	-rwxr-xr-x	2022-03-19 14:43
pma-configure	299 B	-rwxr-xr-x	2020-10-23 11:41
pma-secure	157 B	-rwxr-xr-x	2020-10-23 11:41
postalias	17.99 KB	-rwxr-xr-x	2020-02-16 20:59
postcat	14.06 KB	-rwxr-xr-x	2020-02-16 20:59
postconf	175.28 KB	-rwxr-xr-x	2020-02-16 20:59
postdrop	14.12 KB	-rwxr-sr-x	2020-02-16 20:59
postfix	14.07 KB	-rwxr-xr-x	2020-02-16 20:59
postfix-add-filter	4.9 KB	-rwxrwxrwx	2020-02-16 20:59
postfix-add-policy	3.83 KB	-rwxrwxrwx	2020-02-16 20:59
postkick	9.99 KB	-rwxr-xr-x	2020-02-16 20:59
postlock	9.99 KB	-rwxr-xr-x	2020-02-16 20:59
postlog	10.15 KB	-rwxr-xr-x	2020-02-16 20:59
postmap	17.99 KB	-rwxr-xr-x	2020-02-16 20:59
postmulti	26.38 KB	-rwxr-xr-x	2020-02-16 20:59
postqueue	22.07 KB	-rwxr-sr-x	2020-02-16 20:59
postsuper	22.32 KB	-rwxr-xr-x	2020-02-16 20:59
posttls-finger	34.09 KB	-rwxrwxrwx	2020-02-16 20:59
pure-authd	18.41 KB	-rwxrwxrwx	2016-12-08 13:28
pure-ftpd	161.4 KB	-rwxrwxrwx	2016-12-08 13:28
pure-ftpd-control	1.68 KB	-rwxrwxrwx	2016-12-08 13:28
pure-ftpd-virtualchroot	165.4 KB	-rwxrwxrwx	2016-12-08 13:28
pure-ftpd-wrapper	12.16 KB	-rwxrwxrwx	2016-12-08 13:28
pure-ftpwho	22.02 KB	-rwxrwxrwx	2016-12-08 13:28
pure-mrtginfo	9.99 KB	-rwxrwxrwx	2016-12-08 13:28
pure-quotacheck	14.01 KB	-rwxrwxrwx	2016-12-08 13:28
pure-uploadscript	14.26 KB	-rwxrwxrwx	2016-12-08 13:28
pwck	49.84 KB	-rwxr-xr-x	2021-03-17 10:27
pwconv	45.74 KB	-rwxr-xr-x	2021-03-17 10:27
pwunconv	41.72 KB	-rwxr-xr-x	2021-03-17 10:27
qmqp-sink	13.99 KB	-rwxrwxrwx	2020-02-16 20:59
qmqp-source	18.01 KB	-rwxrwxrwx	2020-02-16 20:59
qshape	12.55 KB	-rwxrwxrwx	2020-02-16 20:59
quot	67.48 KB	-rwxrwxrwx	2018-02-24 07:55
quota_nld	75.8 KB	-rwxrwxrwx	2018-02-24 07:55
quotastats	14.38 KB	-rwxrwxrwx	2018-02-24 07:55
quotatool	26.45 KB	-rwxrwxrwx	2014-12-21 21:54
readprofile	18.59 KB	-rwxrwxrwx	2018-03-07 19:29
remove-default-ispell	2.86 KB	-rwxrwxrwx	2016-10-10 11:58
remove-default-wordlist	2.86 KB	-rwxrwxrwx	2016-10-10 11:58
remove-shell	904 B	-rwxrwxrwx	2017-04-02 19:10
repquota	72.05 KB	-rwxrwxrwx	2018-02-24 07:55
rmail	13.99 KB	-rwxrwxrwx	2020-02-16 20:59
rmt	55.03 KB	-rwxr-xr-x	2021-11-27 22:50
rmt-tar	55.03 KB	-rwxr-xr-x	2021-11-27 22:50
rndc	29.99 KB	-rwxr-xr-x	2022-03-19 14:43
rndc-confgen	17.99 KB	-rwxr-xr-x	2022-03-19 14:43
rpc.rquotad	75.96 KB	-rwxrwxrwx	2018-02-24 07:55
rsyslogd	636.3 KB	-rwxr-xr-x	2022-05-20 21:25
rtcwake	42.81 KB	-rwxrwxrwx	2018-03-07 19:29
safe_finger	10.08 KB	-rwxrwxrwx	2016-12-26 00:08
select-default-ispell	3.23 KB	-rwxrwxrwx	2016-10-10 11:58
select-default-wordlist	3.21 KB	-rwxrwxrwx	2016-10-10 11:58
sendmail	26.15 KB	-rwxr-xr-x	2020-02-16 20:59
service	9.83 KB	-rwxrwxrwx	2017-05-02 12:20
setquota	84.11 KB	-rwxrwxrwx	2018-02-24 07:55
smartctl	663.63 KB	-rwxrwxrwx	2016-07-30 19:10
smartd	591.07 KB	-rwxrwxrwx	2016-07-30 19:10
smtp-sink	30.93 KB	-rwxrwxrwx	2020-02-16 20:59
smtp-source	22.02 KB	-rwxrwxrwx	2020-02-16 20:59
snmpd	30.01 KB	-rwxr-xr-x	2020-08-04 17:15
split-logfile	2.36 KB	-rwxr-xr-x	2022-03-18 13:54
sshd	772.48 KB	-rwxrwxrwx	2019-07-15 15:32
tarcat	936 B	-rwxr-xr-x	2021-11-27 22:50
tcpd	10 KB	-rwxrwxrwx	2016-12-26 00:08
tcpdchk	22.13 KB	-rwxrwxrwx	2016-12-26 00:08
tcpdmatch	18.04 KB	-rwxrwxrwx	2016-12-26 00:08
tcpdump	1007.6 KB	-rwxr-xr-x	2020-11-10 15:22
tcptraceroute	1.56 KB	-rwxrwxrwx	2016-08-29 17:45
tcptraceroute.db	1.56 KB	-rwxrwxrwx	2016-08-29 17:45
traceroute	67.16 KB	-rwxrwxrwx	2016-08-29 17:45
try-from	10 KB	-rwxrwxrwx	2016-12-26 00:08
tsig-keygen	17.99 KB	-rwxr-xr-x	2022-03-19 14:43
tunelp	26.61 KB	-rwxrwxrwx	2018-03-07 19:29
tzconfig	106 B	-rwxr-xr-x	2019-10-11 09:23
ufw	4.4 KB	-rwx------	2017-01-10 22:16
unhide	38.26 KB	-rwxrwxrwx	2019-12-17 18:08
unhide-linux	38.26 KB	-rwxrwxrwx	2019-12-17 18:08
unhide-posix	10 KB	-rwxrwxrwx	2019-12-17 18:08
unhide-tcp	18.85 KB	-rwxrwxrwx	2019-12-17 18:08
unhide.rb	13.97 KB	-rwxrwxrwx	2015-11-09 01:23
unhide_rb	14.09 KB	-rwxrwxrwx	2019-12-17 18:08
update-ca-certificates	4.85 KB	-rwxr-xr-x	2021-03-13 18:38
update-catalog	9.15 KB	-rwxrwxrwx	2016-11-07 08:06
update-default-aspell	1 KB	-rwxrwxrwx	2016-10-10 11:58
update-default-ispell	9.68 KB	-rwxrwxrwx	2016-10-10 11:58
update-default-wordlist	7.5 KB	-rwxrwxrwx	2016-10-10 11:58
update-dictcommon-aspell	1 KB	-rwxrwxrwx	2016-10-10 11:58
update-dictcommon-hunspell	782 B	-rwxrwxrwx	2016-10-10 11:58
update-grub	64 B	-rwxrwxrwx	2019-06-12 13:20
update-grub2	64 B	-rwxrwxrwx	2019-06-12 13:20
update-gsfontmap	450 B	-rwxr-xr-x	2022-05-01 17:15
update-inetd	6.05 KB	-rwxrwxrwx	2017-01-15 12:37
update-initramfs	8.02 KB	-rwxrwxrwx	2017-03-06 23:42
update-locale	2.99 KB	-rwxrwxrwx	2016-03-21 00:45
update-mime	8.84 KB	-rwxrwxrwx	2016-05-01 13:20
update-passwd	30.41 KB	-rwxrwxrwx	2017-01-16 16:52
update-rc.d	15.69 KB	-rwxrwxrwx	2017-05-02 12:20
update-xmlcatalog	16.88 KB	-rwxrwxrwx	2016-11-07 15:53
upgrade-from-grub-legacy	1.49 KB	-rwxrwxrwx	2019-06-12 13:20
useradd	119.29 KB	-rwxr-xr-x	2021-03-17 10:27
userdel	82.49 KB	-rwxr-xr-x	2021-03-17 10:27
usermod	119.1 KB	-rwxr-xr-x	2021-03-17 10:27
validlocale	1.73 KB	-rwxrwxrwx	2016-03-21 00:45
vigr	60.22 KB	-rwxr-xr-x	2021-03-17 10:27
vipw	60.22 KB	-rwxr-xr-x	2021-03-17 10:27
visudo	200.34 KB	-rwxr-xr-x	2021-01-23 10:10
vpddecode	14.27 KB	-rwxrwxrwx	2016-09-01 04:59
warnquota	84.11 KB	-rwxrwxrwx	2018-02-24 07:55
xqmstats	14.36 KB	-rwxrwxrwx	2018-02-24 07:55
zic	42.54 KB	-rwxrwxrwx	2019-02-06 22:17

Rename

#!/usr/bin/perl
## ----------------------------------------------------------------------
## Debian GNU/Linux update-catalog version 0.2
## ----------------------------------------------------------------------
## Copyright (c) 2001-2004 Ardo van Rangelrooij
## Copyright (c) 2012 Helmut Grohne
## Copyright (c) 2012 Jakub Wilk
##
## This is free software; see the GNU General Public Licence version 2
## or later for copying conditions.  There is NO warranty.
## ----------------------------------------------------------------------

## ----------------------------------------------------------------------
use strict;

## ----------------------------------------------------------------------
$0 =~ m|[^/]+$|;

## ----------------------------------------------------------------------
use vars qw( $name );
$name = $&;

## ----------------------------------------------------------------------
use vars qw( $add );
use vars qw( $backup );
use vars qw( $catalog );
use vars qw( @data );
use vars qw( $debug );
use vars qw( $entry );
use vars qw( $quiet );
use vars qw( $remove );
use vars qw( $super );
use vars qw( $updatesuper );
use vars qw( $template );
use vars qw( $type );

## ----------------------------------------------------------------------
while ( $ARGV[0] =~ m/^--/ )
{
    $_ = shift( @ARGV );
    last if $_ eq '--';
    if ( $_ eq '--add' )
    {
        $add = 1;
    }
    elsif ( $_ eq '--remove' )
    {
        $remove = 1;
    }
    elsif ( $_ eq '--quiet' )
    {
        $quiet = 1;
    }
    elsif ( $_ eq '--super' )
    {
        $super = 1;
    }
    elsif ( $_ eq '--test' )
    {
        $debug = 1;
    }
    elsif ( $_ eq '--update-super' )
    {
        $updatesuper = 1;
    }
    elsif ( $_ eq '--help' )
    {
        &help;
	exit -1;
    }
    elsif ( $_ eq '--version' )
    {
        &help;
	exit -1;
    }
    else
    {
        print STDERR "$name: unknown option \`$_'\n";
	&help;
	exit 1;
    }
}

## ----------------------------------------------------------------------
if ( $add + $remove + $updatesuper != 1)
{
    print "Huh? You have to use precisely one out of --add --remove or --update-super.\n";
    exit 1;
}

## ----------------------------------------------------------------------
if ( $add || $remove )
{
    if ( ! @ARGV )
    {
        print STDERR "\n";
        &help;
        exit 1;
    }

if ( $super )
    {
	$catalog = '/etc/sgml/catalog';
    }
    else
    {
	$catalog = shift( @ARGV );
    }

if ( ! @ARGV )
    {
        print STDERR "\n";
        &help;
        exit 1;
    }

$entry = shift( @ARGV );
}

## ----------------------------------------------------------------------
if ( @ARGV )
{
    print STDERR "$name: too many arguments\n";
    &help;
    exit 1;
}

## ----------------------------------------------------------------------
print STDERR "$name: test mode - catalog file will not be updated\n"
    if $debug && ! $quiet;

## ----------------------------------------------------------------------
if ( $super )
{
    print "update-catalog: Suppressing action on super catalog. Invoking trigger instead.\n";
    system("dpkg-trigger /etc/sgml");
    if ( $? != 0 )
    {
        print "Invocation of dpkg-trigger failed with status $?.\n";
        print "Forcing update of the super catalog...\n";
        &update_super;
    }
}
elsif ( $add )
{
    print "Adding entry $entry to catalog $catalog...\n"
        unless $quiet;
    
    &read_catalog_without_entry;
    &add_entry;
    &write_catalog;
}
elsif ( $remove )
{
    print "Removing entry $entry from catalog $catalog...\n"
        unless $quiet;
    
    &read_catalog_without_entry;
    &write_catalog;
}
elsif ( $updatesuper )
{
    print "Updating the super catalog...\n"
        unless $quiet;
    &update_super;
}

## ----------------------------------------------------------------------
exit 0;

## ----------------------------------------------------------------------
 sub read_catalog_without_entry
{
    if ( -f $catalog )
    {
	print "Reading catalog $catalog and removing entry $entry...\n"
	    if $debug;
	open( CATALOG, "<$catalog" )
	    or die "cannot open catalog $catalog for reading: $!";
	while ( <CATALOG> )
	{
	    chop;
	    push( @data, $_ ) unless m/$entry/;
	}
	close( CATALOG );
    }
    else
    {
	$type = $super ? 'super' : 'centralized';
	$template = "/usr/share/sgml-base/catalog.$type";
	print "Reading template $template...\n"
	    if $debug;
	open( TEMPLATE, "<$template" )
	    or die "cannot open template $template for reading: $!";
	while ( <TEMPLATE> )
	{
	    chop;
	    s|CATALOG|$catalog| if m/CATALOG/;
	    push( @data, $_ );
	}
	close( TEMPLATE );
    }
}

## ----------------------------------------------------------------------
sub add_entry
{
    print "Appending entry $entry...\n" if $debug;
    push( @data, "CATALOG $entry" );
}

## ----------------------------------------------------------------------
sub write_catalog
{
    $backup = $catalog . '.old';
    if ( not $debug )
    {
	if ( -f $catalog )
	{
	    # remove old backup file
	    if ( -f $backup )
	    {
		unlink( $backup )
		    or die "cannot remove backup copy $backup: $!";
	    }
	    rename( $catalog, $backup )
		or die "cannot rename $catalog to $backup: $!";
	}
	open( CATALOG, ">$catalog" )
	    or die "cannot open catalog $catalog for writing: $!";
	for ( @data ) { print CATALOG "$_\n"; };
	close( CATALOG );
    }
    else
    {
	print "Writing new entry to $catalog...\n";
	for ( @data ) { print "$_\n"; };
    }
}

## ----------------------------------------------------------------------
# Reference: https://www.oasis-open.org/specs/a401.htm
sub check_catalog($)
{
    my($catalog)=shift;
    my $base = $catalog;
    $base =~ s,/[^/]+$,,;
    my $catalog_tokens = qr{
        ( (?: \s+ | -- .*? --)+ # whitespace and comments
        | ' .*? ' | " .*? " # literal
        | \S+ # other tokens
        )
        }sx;
    unless(open(PKGCAT, "<", $catalog)) {
        print "Warning: Ignoring unreadable catalog file `$catalog'.\n"
            unless $quiet;
        return 0;
    };
    local $/;
    my $contents = <PKGCAT>;
    close PKGCAT;
    my $prevtoken = 0;
    while ($contents =~ m/$catalog_tokens/g) {
        my $token = $1;
        if ($prevtoken) {
            next if $token =~ m/^\s|^--/;
            $token =~ s/^(['"])(.*)\1$/$2/;
            if($prevtoken eq 'base') {
                $base = $token;
            } elsif($prevtoken eq 'catalog') {
                my $path;
                if($token =~ m,^/,) {
                    $path = $token;
                } else {
                    $path = "$base/$token";
                }
                if(not -f $path) {
                    print "Warning ignoring catalog `$catalog' which references non-existent catalogs. See man update-catalog for details.\n"
                        unless $quiet;
                    return 0;
                }
            }
            $prevtoken = 0;
        } elsif ("\L$token" eq 'catalog') {
            $prevtoken = 'catalog';
        } elsif ("\L$token" eq 'base') {
            $prevtoken = 'base';
        }
    }
    return 1;
}
## ----------------------------------------------------------------------
sub update_super
{
    my(@cats);
    my($catdir)="/etc/sgml";
    my($supercat)="/var/lib/sgml-base/supercatalog";
    my $catfile;
    opendir(CATDIR, $catdir)
        or die "cannot open catalog directory $catdir: $!";
    while( readdir CATDIR )
    {
        m/^[^.].*\.cat$/ or next;
        $catfile = $catdir . "/" . $_;
        check_catalog($catfile) or next;
        push(@cats, $catfile);
    }
    closedir(CATDIR)
        or die "cannot close catalog directory $catdir: $!";
    if ( not $debug )
    {
        open( CATALOG, ">$supercat.new")
            or die "cannot open $supercat.new for writing: $!";
        print CATALOG "--\n";
        print CATALOG "## This file is created by update-catalog with update-super.\n";
        print CATALOG "## Please see update-catalog(8) for how to modify this file.\n";
        print CATALOG "--\n";
        for ( @cats ) { print CATALOG "CATALOG $_\n"; }
        close( CATALOG );
        if( -e $supercat)
        {
            rename( $supercat, "$supercat.old" )
                or die "cannot rename $supercat to $supercat.old: $!";
        }
        rename( "$supercat.new", $supercat )
            or die "cannot rename $supercat.new to $supercat: $!";
   }
   else
   {
        print "The new super catalog would contain the following entries.\n";
        for ( @cats ) { print "CATALOG $_\n"; }
   }
}

## ----------------------------------------------------------------------
sub help
{
    print STDERR <<END;
Usage:
    $name <options> --add --super <centralized_catalog>
    $name <options> --add <centralized_catalog> <ordinary_catalog>
or
    $name <options> --remove --super <centralized_catalog>
    $name <options> --remove <centralized_catalog> <ordinary_catalog>

Options:
    --quiet         be quiet
    --test          do not modify any files, enables debugging mode
    --version       display version number
    --help          display this text
END
}

## ----------------------------------------------------------------------
sub version
{
    print "Debian $name version 0.2\n";
}

## ----------------------------------------------------------------------