Gecko [ oric.aiou.edu.pk ]

Name	Size	Permission
[	58.34 KB	-rwxr-xr-x
aa-enabled	30.52 KB	-rwxr-xr-x
aa-exec	34.52 KB	-rwxr-xr-x
addpart	30.23 KB	-rwxr-xr-x
arch	38.37 KB	-rwxr-xr-x
awk	158.74 KB	-rwxr-xr-x
b2sum	58.37 KB	-rwxr-xr-x
base32	42.34 KB	-rwxr-xr-x
base64	42.34 KB	-rwxr-xr-x
basename	38.34 KB	-rwxr-xr-x
bash	1.13 MB	-rwxr-xr-x
bashbug	6.63 KB	-rwxr-xr-x
bootctl	62.34 KB	-rwxr-xr-x
bunzip2	38.23 KB	-rwxr-xr-x
busctl	86.34 KB	-rwxr-xr-x
bzcat	38.23 KB	-rwxr-xr-x
bzcmp	2.17 KB	-rwxr-xr-x
bzdiff	2.17 KB	-rwxr-xr-x
bzegrep	3.69 KB	-rwxr-xr-x
bzexe	4.76 KB	-rwxr-xr-x
bzfgrep	3.69 KB	-rwxr-xr-x
bzgrep	3.69 KB	-rwxr-xr-x
bzip2	38.23 KB	-rwxr-xr-x
bzip2recover	18.15 KB	-rwxr-xr-x
bzless	1.27 KB	-rwxr-xr-x
bzmore	1.27 KB	-rwxr-xr-x
c_rehash	6.65 KB	-rwxr-xr-x
captoinfo	90.41 KB	-rwxr-xr-x
cat	42.4 KB	-rwxr-xr-x
catchsegv	3.25 KB	-rwxr-xr-x
cautious-launcher	853 B	-rwxr-xr-x
chage	82.53 KB	-rwxr-sr-x
chardet3	389 B	-rwxr-xr-x
chardetect3	389 B	-rwxr-xr-x
chattr	14.31 KB	-rwxr-xr-x
chcon	70.34 KB	-rwxr-xr-x
chfn	83.07 KB	-rwsr-xr-x
chgrp	70.34 KB	-rwxr-xr-x
chmod	62.37 KB	-rwxr-xr-x
choom	50.23 KB	-rwxr-xr-x
chown	70.34 KB	-rwxr-xr-x
chrt	38.23 KB	-rwxr-xr-x
chsh	51.8 KB	-rwsr-xr-x
cksum	38.34 KB	-rwxr-xr-x
clear	14.31 KB	-rwxr-xr-x
clear_console	14.23 KB	-rwxr-xr-x
cloud-id	396 B	-rwxr-xr-x
cloud-init	400 B	-rwxr-xr-x
cloud-init-per	2.06 KB	-rwxr-xr-x
cmp	50.09 KB	-rwxr-xr-x
comm	42.37 KB	-rwxr-xr-x
compose	18.05 KB	-rwxr-xr-x
console-conf	406 B	-rwxr-xr-x
core-sshd-host-keygen	1.49 KB	-rwxr-xr-x
cp	150.37 KB	-rwxr-xr-x
csplit	54.37 KB	-rwxr-xr-x
ctstat	30.51 KB	-rwxr-xr-x
cut	46.37 KB	-rwxr-xr-x
cvtsudoers	266.7 KB	-rwxr-xr-x
dash	126.77 KB	-rwxr-xr-x
date	106.37 KB	-rwxr-xr-x
dbus-cleanup-sockets	14.14 KB	-rwxr-xr-x
dbus-daemon	243.2 KB	-rwxr-xr-x
dbus-monitor	30.14 KB	-rwxr-xr-x
dbus-run-session	14.14 KB	-rwxr-xr-x
dbus-send	30.14 KB	-rwxr-xr-x
dbus-update-activation-environ...	14.14 KB	-rwxr-xr-x
dbus-uuidgen	14.14 KB	-rwxr-xr-x
dd	78.38 KB	-rwxr-xr-x
deb-systemd-helper	20.83 KB	-rwxr-xr-x
deb-systemd-invoke	4.33 KB	-rwxr-xr-x
delpart	30.23 KB	-rwxr-xr-x
df	90.95 KB	-rwxr-xr-x
dh_bash-completion	2.39 KB	-rwxr-xr-x
diff	214.34 KB	-rwxr-xr-x
diff3	66.21 KB	-rwxr-xr-x
dir	138.81 KB	-rwxr-xr-x
dircolors	46.34 KB	-rwxr-xr-x
dirname	38.34 KB	-rwxr-xr-x
dmesg	82.46 KB	-rwxr-xr-x
dnsdomainname	26.23 KB	-rwxr-xr-x
domainname	26.23 KB	-rwxr-xr-x
dpkg-deb	174.54 KB	-rwxr-xr-x
du	106.37 KB	-rwxr-xr-x
ec2metadata	7.12 KB	-rwxr-xr-x
echo	38.34 KB	-rwxr-xr-x
edit	18.05 KB	-rwxr-xr-x
editor	1.29 MB	-rwxr-xr-x
egrep	28 B	-rwxr-xr-x
env	42.34 KB	-rwxr-xr-x
ex	1.29 MB	-rwxr-xr-x
expand	42.37 KB	-rwxr-xr-x
expiry	30.58 KB	-rwxr-sr-x
expr	54.34 KB	-rwxr-xr-x
factor	78.37 KB	-rwxr-xr-x
faillog	22.59 KB	-rwxr-xr-x
fallocate	34.23 KB	-rwxr-xr-x
false	38.34 KB	-rwxr-xr-x
fgrep	28 B	-rwxr-xr-x
file	26.47 KB	-rwxr-xr-x
finalrd	2.1 KB	-rwxr-xr-x
fincore	34.27 KB	-rwxr-xr-x
find	312.66 KB	-rwxr-xr-x
findmnt	71.41 KB	-rwxr-xr-x
flock	34.3 KB	-rwxr-xr-x
fmt	46.34 KB	-rwxr-xr-x
fold	42.34 KB	-rwxr-xr-x
free	26.23 KB	-rwxr-xr-x
gdbserver	509.55 KB	-rwxr-xr-x
getconf	34.29 KB	-rwxr-xr-x
getent	38.65 KB	-rwxr-xr-x
getopt	22.23 KB	-rwxr-xr-x
gpasswd	86.39 KB	-rwsr-xr-x
gpgv	447.15 KB	-rwxr-xr-x
grep	194.47 KB	-rwxr-xr-x
groups	38.34 KB	-rwxr-xr-x
growpart	23.95 KB	-rwxr-xr-x
gunzip	2.29 KB	-rwxr-xr-x
gzexe	6.3 KB	-rwxr-xr-x
gzip	95.21 KB	-rwxr-xr-x
head	46.37 KB	-rwxr-xr-x
helpztags	2.46 KB	-rwxr-xr-x
hostid	38.34 KB	-rwxr-xr-x
hostname	26.23 KB	-rwxr-xr-x
hostnamectl	26.22 KB	-rwxr-xr-x
i386	26.5 KB	-rwxr-xr-x
iconv	66.41 KB	-rwxr-xr-x
id	46.37 KB	-rwxr-xr-x
infocmp	62.38 KB	-rwxr-xr-x
infotocap	90.41 KB	-rwxr-xr-x
install	154.41 KB	-rwxr-xr-x
ionice	30.23 KB	-rwxr-xr-x
ip	597.62 KB	-rwxr-xr-x
ipcmk	34.3 KB	-rwxr-xr-x
ipcrm	34.23 KB	-rwxr-xr-x
ipcs	66.23 KB	-rwxr-xr-x
iptables-xml	96.97 KB	-rwxr-xr-x
ischroot	14.2 KB	-rwxr-xr-x
join	54.37 KB	-rwxr-xr-x
journalctl	78.24 KB	-rwxr-xr-x
jsondiff	1004 B	-rwxr-xr-x
jsonpatch	3.58 KB	-rwxr-xr-x
jsonpatch-jsondiff	1004 B	-rwxr-xr-x
jsonpointer	1.79 KB	-rwxr-xr-x
jsonschema	397 B	-rwxr-xr-x
kernel-install	5.07 KB	-rwxr-xr-x
kill	30.23 KB	-rwxr-xr-x
kmod	170.34 KB	-rwxr-xr-x
kmodsign	22.29 KB	-rwxr-xr-x
last	50.23 KB	-rwxr-xr-x
lastb	50.23 KB	-rwxr-xr-x
lastlog	31.66 KB	-rwxr-xr-x
lcf	7.6 KB	-rwxr-xr-x
ldd	5.3 KB	-rwxr-xr-x
less	175.84 KB	-rwxr-xr-x
lessecho	14.31 KB	-rwxr-xr-x
lessfile	8.36 KB	-rwxr-xr-x
lesskey	23.72 KB	-rwxr-xr-x
lesspipe	8.36 KB	-rwxr-xr-x
link	38.34 KB	-rwxr-xr-x
linux32	26.5 KB	-rwxr-xr-x
linux64	26.5 KB	-rwxr-xr-x
ln	74.38 KB	-rwxr-xr-x
lnstat	30.51 KB	-rwxr-xr-x
locale	57.56 KB	-rwxr-xr-x
locale-check	14.16 KB	-rwxr-xr-x
localectl	26.22 KB	-rwxr-xr-x
localedef	326.96 KB	-rwxr-xr-x
logger	50.82 KB	-rwxr-xr-x
login	55.77 KB	-rwxr-xr-x
loginctl	58.34 KB	-rwxr-xr-x
logname	38.34 KB	-rwxr-xr-x
ls	138.81 KB	-rwxr-xr-x
lsattr	14.31 KB	-rwxr-xr-x
lsblk	130.23 KB	-rwxr-xr-x
lscpu	98.23 KB	-rwxr-xr-x
lsipc	94.23 KB	-rwxr-xr-x
lslocks	38.55 KB	-rwxr-xr-x
lslogins	66.23 KB	-rwxr-xr-x
lsmem	66.23 KB	-rwxr-xr-x
lsmod	170.34 KB	-rwxr-xr-x
lsns	50.23 KB	-rwxr-xr-x
man	128 B	-rwxr-xr-x
mawk	158.74 KB	-rwxr-xr-x
mcookie	34.3 KB	-rwxr-xr-x
md5sum	46.37 KB	-rwxr-xr-x
md5sum.textutils	46.37 KB	-rwxr-xr-x
mesg	14.23 KB	-rwxr-xr-x
miniterm	34.28 KB	-rwxr-xr-x
mkdir	86.34 KB	-rwxr-xr-x
mkfifo	66.34 KB	-rwxr-xr-x
mknod	70.34 KB	-rwxr-xr-x
mksquashfs	205.96 KB	-rwxr-xr-x
mkswapfile	865 B	-rwxr-xr-x
mktemp	46.34 KB	-rwxr-xr-x
more	42.15 KB	-rwxr-xr-x
mount	54.23 KB	-rwsr-xr-x
mountpoint	14.23 KB	-rwxr-xr-x
mv	146.38 KB	-rwxr-xr-x
namei	34.23 KB	-rwxr-xr-x
nawk	158.74 KB	-rwxr-xr-x
nc	42.64 KB	-rwxr-xr-x
nc.openbsd	42.64 KB	-rwxr-xr-x
netcat	42.64 KB	-rwxr-xr-x
networkctl	74.23 KB	-rwxr-xr-x
newgrp	43.73 KB	-rwsr-xr-x
nice	42.34 KB	-rwxr-xr-x
nisdomainname	26.23 KB	-rwxr-xr-x
nl	42.43 KB	-rwxr-xr-x
nohup	42.34 KB	-rwxr-xr-x
nproc	42.34 KB	-rwxr-xr-x
nsenter	34.43 KB	-rwxr-xr-x
nstat	78.23 KB	-rwxr-xr-x
numfmt	66.4 KB	-rwxr-xr-x
od	70.37 KB	-rwxr-xr-x
openssl	735.68 KB	-rwxr-xr-x
p11-kit	34.39 KB	-rwxr-xr-x
p11tool	355.38 KB	-rwxr-xr-x
pager	175.84 KB	-rwxr-xr-x
partx	118.23 KB	-rwxr-xr-x
passwd	66.61 KB	-rwsr-xr-x
paste	42.37 KB	-rwxr-xr-x
pathchk	38.34 KB	-rwxr-xr-x
pdb3	61.27 KB	-rwxr-xr-x
pdb3.8	61.27 KB	-rwxr-xr-x
perl	3.32 MB	-rwxr-xr-x
perl5.30.0	3.32 MB	-rwxr-xr-x
pgrep	30.24 KB	-rwxr-xr-x
pidof	26.38 KB	-rwxr-xr-x
ping	71.07 KB	-rwxr-xr-x
ping4	71.07 KB	-rwxr-xr-x
ping6	71.07 KB	-rwxr-xr-x
pinky	42.37 KB	-rwxr-xr-x
pkcs11-tool	152.77 KB	-rwxr-xr-x
pkill	30.24 KB	-rwxr-xr-x
pldd	22.37 KB	-rwxr-xr-x
pmap	34.24 KB	-rwxr-xr-x
pr	74.43 KB	-rwxr-xr-x
print	18.05 KB	-rwxr-xr-x
printenv	38.34 KB	-rwxr-xr-x
printf	58.34 KB	-rwxr-xr-x
prlimit	38.74 KB	-rwxr-xr-x
ps	134.46 KB	-rwxr-xr-x
ptx	78.4 KB	-rwxr-xr-x
pwd	42.34 KB	-rwxr-xr-x
pwdx	14.23 KB	-rwxr-xr-x
py3clean	7.63 KB	-rwxr-xr-x
py3compile	11.84 KB	-rwxr-xr-x
py3versions	11.44 KB	-rwxr-xr-x
pydoc3	79 B	-rwxr-xr-x
pydoc3.8	79 B	-rwxr-xr-x
pygettext3	21.03 KB	-rwxr-xr-x
pygettext3.8	21.03 KB	-rwxr-xr-x
pyjwt3	372 B	-rwxr-xr-x
python3	5.21 MB	-rwxr-xr-x
python3.8	5.21 MB	-rwxr-xr-x
rbash	1.13 MB	-rwxr-xr-x
rcp	114.3 KB	-rwxr-xr-x
rdma	130.23 KB	-rwxr-xr-x
readlink	50.34 KB	-rwxr-xr-x
realpath	50.37 KB	-rwxr-xr-x
rename.ul	22.23 KB	-rwxr-xr-x
renice	14.23 KB	-rwxr-xr-x
reset	30.31 KB	-rwxr-xr-x
resizepart	62.23 KB	-rwxr-xr-x
resolvectl	126.38 KB	-rwxr-xr-x
rev	14.23 KB	-rwxr-xr-x
rgrep	30 B	-rwxr-xr-x
rlogin	774.95 KB	-rwxr-xr-x
rm	70.37 KB	-rwxr-xr-x
rmdir	46.34 KB	-rwxr-xr-x
routef	208 B	-rwxr-xr-x
routel	1.62 KB	-rwxr-xr-x
rsh	774.95 KB	-rwxr-xr-x
rtstat	30.51 KB	-rwxr-xr-x
run-mailcap	18.05 KB	-rwxr-xr-x
run-parts	26.51 KB	-rwxr-xr-x
runcon	38.34 KB	-rwxr-xr-x
rview	1.29 MB	-rwxr-xr-x
savelog	10.24 KB	-rwxr-xr-x
sbattach	58.48 KB	-rwxr-xr-x
sbkeysync	66.7 KB	-rwxr-xr-x
sbsiglist	58.55 KB	-rwxr-xr-x
sbsign	58.55 KB	-rwxr-xr-x
sbvarsign	66.61 KB	-rwxr-xr-x
sbverify	62.48 KB	-rwxr-xr-x
scp	114.3 KB	-rwxr-xr-x
script	54.23 KB	-rwxr-xr-x
scriptreplay	30.23 KB	-rwxr-xr-x
sdiff	50.09 KB	-rwxr-xr-x
sed	118.45 KB	-rwxr-xr-x
see	18.05 KB	-rwxr-xr-x
select-editor	2.38 KB	-rwxr-xr-x
sensible-browser	1.2 KB	-rwxr-xr-x
sensible-editor	1.14 KB	-rwxr-xr-x
sensible-pager	452 B	-rwxr-xr-x
seq	50.34 KB	-rwxr-xr-x
setarch	26.5 KB	-rwxr-xr-x
setpriv	46.23 KB	-rwxr-xr-x
setsid	14.23 KB	-rwxr-xr-x
setterm	46.23 KB	-rwxr-xr-x
sftp	166.51 KB	-rwxr-xr-x
sg	43.73 KB	-rwsr-xr-x
sh	126.77 KB	-rwxr-xr-x
sha1sum	50.37 KB	-rwxr-xr-x
sha224sum	58.37 KB	-rwxr-xr-x
sha256sum	58.37 KB	-rwxr-xr-x
sha384sum	66.37 KB	-rwxr-xr-x
sha512sum	66.37 KB	-rwxr-xr-x
shred	62.37 KB	-rwxr-xr-x
shuf	58.34 KB	-rwxr-xr-x
skill	30.23 KB	-rwxr-xr-x
slabtop	22.23 KB	-rwxr-xr-x
sleep	38.34 KB	-rwxr-xr-x
slogin	774.95 KB	-rwxr-xr-x
snap	16.86 MB	-rwxr-xr-x
snice	30.23 KB	-rwxr-xr-x
sort	114.63 KB	-rwxr-xr-x
split	58.77 KB	-rwxr-xr-x
ss	164.84 KB	-rwxr-xr-x
ssh	774.95 KB	-rwxr-xr-x
ssh-add	362.28 KB	-rwxr-xr-x
ssh-agent	342.29 KB	-rwxr-sr-x
ssh-argv0	1.42 KB	-rwxr-xr-x
ssh-copy-id	10.41 KB	-rwxr-xr-x
ssh-keygen	466.3 KB	-rwxr-xr-x
ssh-keyscan	454.3 KB	-rwxr-xr-x
stat	86.37 KB	-rwxr-xr-x
stdbuf	50.34 KB	-rwxr-xr-x
stty	82.37 KB	-rwxr-xr-x
su	66.23 KB	-rwsr-xr-x
sudo	162.16 KB	-rwsr-xr-x
sudoedit	162.16 KB	-rwsr-xr-x
sudoreplay	63 KB	-rwxr-xr-x
sum	46.34 KB	-rwxr-xr-x
sync	38.34 KB	-rwxr-xr-x
systemctl	973.23 KB	-rwxr-xr-x
systemd	1.55 MB	-rwxr-xr-x
systemd-analyze	1.51 MB	-rwxr-xr-x
systemd-ask-password	14.34 KB	-rwxr-xr-x
systemd-cat	18.23 KB	-rwxr-xr-x
systemd-cgls	22.33 KB	-rwxr-xr-x
systemd-cgtop	38.24 KB	-rwxr-xr-x
systemd-delta	26.22 KB	-rwxr-xr-x
systemd-detect-virt	18.22 KB	-rwxr-xr-x
systemd-escape	22.22 KB	-rwxr-xr-x
systemd-hwdb	106.52 KB	-rwxr-xr-x
systemd-id128	22.22 KB	-rwxr-xr-x
systemd-inhibit	22.24 KB	-rwxr-xr-x
systemd-machine-id-setup	26.32 KB	-rwxr-xr-x
systemd-mount	50.45 KB	-rwxr-xr-x
systemd-notify	18.23 KB	-rwxr-xr-x
systemd-path	18.22 KB	-rwxr-xr-x
systemd-resolve	126.38 KB	-rwxr-xr-x
systemd-run	58.42 KB	-rwxr-xr-x
systemd-socket-activate	26.22 KB	-rwxr-xr-x
systemd-stdio-bridge	22.23 KB	-rwxr-xr-x
systemd-sysusers	54.52 KB	-rwxr-xr-x
systemd-tmpfiles	86.41 KB	-rwxr-xr-x
systemd-tty-ask-password-agent	30.22 KB	-rwxr-xr-x
systemd-umount	50.45 KB	-rwxr-xr-x
tabs	18.3 KB	-rwxr-xr-x
tac	42.34 KB	-rwxr-xr-x
tail	70.4 KB	-rwxr-xr-x
tar	437.61 KB	-rwxr-xr-x
taskset	34.23 KB	-rwxr-xr-x
tee	42.37 KB	-rwxr-xr-x
tempfile	14.02 KB	-rwxr-xr-x
test	54.34 KB	-rwxr-xr-x
tic	90.41 KB	-rwxr-xr-x
timedatectl	815 B	-rwxr-xr-x
timedatectl.real	46.22 KB	-rwxr-xr-x
timeout	42.77 KB	-rwxr-xr-x
tload	22.24 KB	-rwxr-xr-x
toe	22.3 KB	-rwxr-xr-x
top	126.05 KB	-rwxr-xr-x
touch	98.37 KB	-rwxr-xr-x
tput	26.34 KB	-rwxr-xr-x
tr	50.34 KB	-rwxr-xr-x
true	38.34 KB	-rwxr-xr-x
truncate	42.34 KB	-rwxr-xr-x
tset	30.31 KB	-rwxr-xr-x
tsort	42.34 KB	-rwxr-xr-x
tty	38.34 KB	-rwxr-xr-x
tzselect	15.02 KB	-rwxr-xr-x
ucf	39.73 KB	-rwxr-xr-x
ucfq	18.91 KB	-rwxr-xr-x
ucfr	10.47 KB	-rwxr-xr-x
udevadm	931.2 KB	-rwxr-xr-x
umount	38.23 KB	-rwsr-xr-x
uname	38.37 KB	-rwxr-xr-x
uncompress	2.29 KB	-rwxr-xr-x
unexpand	42.37 KB	-rwxr-xr-x
uniq	50.37 KB	-rwxr-xr-x
unlink	38.34 KB	-rwxr-xr-x
unshare	42.43 KB	-rwxr-xr-x
unsquashfs	112.12 KB	-rwxr-xr-x
update-alternatives	54.41 KB	-rwxr-xr-x
uptime	14.23 KB	-rwxr-xr-x
users	38.34 KB	-rwxr-xr-x
utmpdump	30.23 KB	-rwxr-xr-x
vcs-run	6.75 KB	-rwxr-xr-x
vdir	138.81 KB	-rwxr-xr-x
vi	1.29 MB	-rwxr-xr-x
view	1.29 MB	-rwxr-xr-x
vim.tiny	1.29 MB	-rwxr-xr-x
vmstat	38.25 KB	-rwxr-xr-x
w	22.23 KB	-rwxr-xr-x
w.procps	22.23 KB	-rwxr-xr-x
wall	34.23 KB	-rwxr-xr-x
watch	26.57 KB	-rwxr-xr-x
wc	46.34 KB	-rwxr-xr-x
wdctl	34.23 KB	-rwxr-xr-x
whereis	34.66 KB	-rwxr-xr-x
which	946 B	-rwxr-xr-x
who	58.37 KB	-rwxr-xr-x
whoami	38.34 KB	-rwxr-xr-x
wpa_passphrase	78.32 KB	-rwxr-xr-x
x86_64	26.5 KB	-rwxr-xr-x
xargs	74.37 KB	-rwxr-xr-x
xdg-open	38 B	-rwxr-xr-x
xdg-settings	1.68 KB	-rwxr-xr-x
xxd	18.27 KB	-rwxr-xr-x
yes	38.34 KB	-rwxr-xr-x
ypdomainname	26.23 KB	-rwxr-xr-x
zcat	1.94 KB	-rwxr-xr-x
zcmp	1.64 KB	-rwxr-xr-x
zdiff	5.76 KB	-rwxr-xr-x
zdump	26.21 KB	-rwxr-xr-x
zegrep	29 B	-rwxr-xr-x
zfgrep	29 B	-rwxr-xr-x
zforce	2.03 KB	-rwxr-xr-x
zgrep	7.91 KB	-rwxr-xr-x
zless	2.15 KB	-rwxr-xr-x
zmore	1.8 KB	-rwxr-xr-x
znew	4.47 KB	-rwxr-xr-x

Code Editor : ucfq

#!/usr/bin/perl
#                              -*- Mode: Cperl -*-
# ucfq ---
# Author           : Manoj Srivastava ( srivasta@glaurung.internal.golden-gryphon.com )
# Created On       : Wed Apr 12 14:51:16 2006
# Created On Node  : glaurung.internal.golden-gryphon.com
# Last Modified By : Manoj Srivastava
# Last Modified On : Fri Apr 14 19:30:45 2006
# Last Machine Used: glaurung.internal.golden-gryphon.com
# Update Count     : 81
# Status           : Unknown, Use with caution!
# HISTORY          :
# Description      :
#
# arch-tag: 1390e09f-ee31-4d7f-a968-bd539ea061a0
#
=head1 NAME

ucfq - query ucf registry and hashfile about configuration file details.

=cut

use strict;

package ucf;

use strict;
use Getopt::Long;

# set the version and revision
($main::MYNAME     = $main::0) =~ s|.*/||;
$main::Author      = "Manoj Srivastava";
$main::AuthorMail  = "srivasta\@debian.org";

=head1 SYNOPSIS

usage: ucfq [options] (file|package)[file|package  ...]

=cut

{  # scope for ultra-private meta-object for class attributes

my %Ucf =
    (
     Optdesc  =>
     {
      'help|h'         => sub {print ucf->Usage();     exit 0;},
      'with-colons|w!' => sub {$::ConfOpts{"Colons"}= "$_[1]";},
      'state-dir=s'    => sub {$::ConfOpts{"StateDir"}= "$_[1]";},
      'debug|d'        => sub {$::ConfOpts{"DEBUG"}+= "$_[1]";},
      'verbose|v'      => sub {$::ConfOpts{"VERBOSE"}+= "$_[1]";}
     },
     Usage => qq(Usage: $main::MYNAME [options]
Author: $main::Author <$main::AuthorMail>
  where options are:
 --help                This message.
 --debug               Turn on debugging mode.
 --verbose             Make the script more verbose.
 --with-colons         A compact, machine readable version of the output.
 --state-dir </path/>  Set the state directory to /path/ instead of the
                       default /var/lib/ucf.

),
     Defaults =>
     {
      "Colons"   => 0,
      "DEBUG"    => 0,
      "VERBOSE"  => 0,
      "StateDir" => '/var/lib/ucf'
     }
    );
  # tri-natured: function, class method, or object method
  sub _classobj {
    my $obclass = shift || __PACKAGE__;
    my $class   = ref($obclass) || $obclass;
    no strict "refs";   # to convert sym ref to real one
    return \%$class;
  }

for my $datum (keys %Ucf ) {
    no strict "refs";
    *$datum = sub {
      use strict "refs";
      my ($self, $newvalue) = @_;
      $Ucf{$datum} = $newvalue if @_ > 1;
      return $Ucf{$datum};
    }
  }
}

=head1 OPTIONS

=over 3

=item B<--help> B<h> Print out a usage message.

=item B<--debug> B<-d> Turn on debugging mode.

=item B<--verbose> B<-v> Make the script more verbose..

=item B<--with-colons> B<-w>

=over 2

Normally, the script presents the information in a human readable
tabular format, but that may be harder for a machine to parse. With
this option, the output is a compact, colon separated line, with no
dividers, headers, or footer.

=back

=item B<--state-dr> dir

=over 2

Set the state directory to C</path/to/dir> instead of the default
C</var/lib/ucf>.  Used mostly for testing.

=back

=cut

=head1 DESCRIPTION

This script takes a set of arguments, each of which is a package or a
path to a configuration file, and outputs the associated package, if
any, if the file exists on disk, and whether it has been modfied by te
user.  The output is either a human readable tabular form, or a
compact colon-separated machine friendly format.

This script can potentially be used in package C<postinst> scripts
during purge to query the system for configuration files that may
still exist on the system, and whether these files have been locally
modified by the user -- assuming that the package registered all the
configuration files with B<ucf> using C<ucfr>.

=cut

=head1 INTERNALS

=head2 Class Methods

All class methods mediate access to class variables.  All class
methods can be invoked with zero or one parameters. When invoked with
the optional parameter, the class method sets the value of the
underlying class data.  In either case, the value of the underlying
variable is returned.

=cut

=head1 Class ucf

This is a combination view and controller class that mediates between
the user and the internal model classes.

=head2 new

This is the constructor for the class. It takes a number of optional
parameters. If the parameter B<Colons> is present, then the output
will be compact. The parameters B<DEBUG> and B<VERBOSE> turn on
additional diagnostics from the script.

=cut

sub new {
  my $this = shift;
  my %params = @_;
  my $class = ref($this) || $this;
  my $self = {};

bless $self => $class;

# validate and sanitize the settings
  $self->validate(%params);

return $self;
}

=head2 validate

This routine is responsible for ensuring that the parameters passed in
(presumably from the command line) are given preference.

=cut

sub validate{
  my $this     = shift;
  my %params   = @_;
  my $defaults = $this->Defaults();

# Make sure runtime options override what we get from the config file
  for my $option (keys %params) {
    $this->{Con_Ref}->{"$option"} = $params{"$option"};
  }

# Ensure that if default parameters have not been set on the comman
  # line on in the configuration file, if any, we use the built in
  # defaults.
  for my $default (keys %$defaults) {
    if (! defined $this->{Con_Ref}->{"$default"}) {
      $this->{Con_Ref}->{"$default"} = $defaults->{"$default"};
    }
  }
}

=head2 get_config_ref

This routine returns a reference to the configuration hash

=cut

sub get_config_ref {

my $this     = shift;
  return $this->{Con_Ref};
}

=head2 dump_config

This routine returns a C<Data::Dumper> for debugging purposes

=cut

sub dump_config {
  my $this     = shift;
  for (keys %{$this->{Con_Ref}}) {
    print  "$_ = [${$this->{Con_Ref}}{$_}]\n"
  }
}

=head2 process

This routine is the work horse routine -- it parses the command line
arguments, and queries the on disk databases, determines of the files
exist, and have been modified.

=cut

sub process {
  my $this      = shift;

# Step 1: Process all arguments in sequence.
# Step 2: determine if the arument given is a package name (no / in
#         arg)

%{$this->{packages}}    = map { +"$_" => 1} grep {! m,/,} @ARGV;
  %{$this->{configs}}     = map { +"$_" => 1} grep {  m,/,} @ARGV;
  $this->{pkg_list}       = object_list->new;
  $this->{file_list}      = object_list->new;
  $this->{registry_proxy} =
    registry->new("StateDir" => $this->{Con_Ref}->{StateDir});
  $this->{hashfile_proxy} =
    hashfile->new("StateDir" => $this->{Con_Ref}->{StateDir});

for (keys %{$this->{packages}} ) {
    my $package = pkg->new('Name' => "$_");
    $this->{pkg_list}->element($_, $package);
  }
  for (keys %{$this->{configs}}) {
    warn "Need a fully qualified path name for config file \"$_\"\n"
      unless m,^/,;
    # Don't die for etch
    exit 0 unless m,^/,;

my $file = conffile->new('Name' => "$_");
    $this->{file_list}->element($_, $file);
  }
# Step 3: If so, gather all files associated with the package
  for my $package ($this->{pkg_list}->list) {
    my $pkg_files = $this->{registry_proxy}->list_files($package);
    for my $file (@$pkg_files) {
      if (! defined $this->{file_list}->element($file)) {
        my $ret = conffile->new('Name' => "$file");
        $this->{file_list}->element($file, $ret);
      }
      $this->{file_list}->element($file)->conffile_package($package);
    }
  }
# Step 4: for all configuration files, determine package (unless
#         already determined), if any
# Step 5: For each configuration file, check if it exists
# Step 6: For each existing file, see if it has been changed

for my $file ($this->{file_list}->list) {
    $this->{file_list}->element($file)->conffile_hash($file, $this->{hashfile_proxy}->hash($file));
    if (! defined $this->{file_list}->element($file)->conffile_package) {
      $this->{file_list}->element($file)->conffile_package($this->{registry_proxy}->find_pkg($file));
    }
  }
}

=head2 report

This routine generates a nicely formatted report based on the
information gathered during the processing. There are two kinds of
reports, the first being a user friendly tabular form, the second
(turned on by the C<-w> option) a easily parseable colon separated
report.

=cut

our ($out_pkg, $out_file, $there, $mod);

format STDOUT_TOP =
Configuration file                            Package             Exists Changed
.

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @|||   @|||
$out_file,                                    $out_pkg,           $there,$mod
.

sub report {
  my $this      = shift;
  for my $file (sort $this->{file_list}->list) {
    ($out_pkg, $out_file, $there, $mod) =
      $this->{file_list}->element($file)->conffile_report;
    if ($this->{Con_Ref}->{Colons}) {
      print "$out_file:$out_pkg:$there:$mod\n";
    }
    else {
      write;
    }
  }
}

=head1 Class registry

This moel class encapsulates the package-configuration file
associations registry.  It parses the data in the registry, and
provides methods to query the registry based either on package name,
or the full path of the configuration file.

=cut

package registry;
use strict;

=head2 new

This is the constructor for the class.  It takes a required parameter
B<StateDir>, and based on that, proceeds toparse the registry and
populate internal data structures.

=cut

sub new {
  my $this = shift;
  my %params = @_;
  my $class = ref($this) || $this;
  my $self = {};

die "Missing required parameter StateDir"
    unless $params{StateDir};

if (-e "$params{StateDir}/registry") {
    if (! -r "$params{StateDir}/registry") {
      die "Can't read registry file $params{StateDir}/registry:$!";
    }
    open (REG, "$params{StateDir}/registry") ||
      die "Can't read registry file $params{StateDir}/registry:$!";
    while (<REG>) {
      chomp;
      my ($pkg, $file) = m/^(\S+)\s+(\S+)$/;
      $self->{Packages}->{$file} = $pkg;
      if (exists $self->{List}->{$pkg}) {
        push @{$self->{List}->{$pkg}}, $file;
      }
      else {
        $self->{List}->{$pkg} = [ $file ];
      }
    }
  }

bless $self => $class;

return $self;
}

=head2 list_files

This routine queries the registry and lists all configuration files
associated with the given package.  Takes the package name as a
required parameter.

=cut

sub list_files {
  my $this      = shift;
  my $pkg       = shift;

if (exists $this->{List}->{$pkg}) {
    return [ @{$this->{List}->{$pkg}} ];
  }
  else {
    return [];
  }
}

=head2 find_pkg

This routine queries the registry for the package associated with the
given file.  Takes the path of the configuration file as a required
parameter.

=cut

sub find_pkg {
  my $this      = shift;
  my $file      = shift;

if (exists $this->{Packages}->{$file}) {
    return $this->{Packages}->{$file};
  }
  else {
    return undef;
  }
}

=head1 Class hashfile

This moel class encapsulates the configuration file hash database.  It
parses the data in the database, and provides methods to query the
hash of the configuration file.

=cut

package hashfile;
use strict;

sub new {
  my $this = shift;
  my %params = @_;
  my $class = ref($this) || $this;
  my $self = {};

die "Missing required parameter StateDir"
    unless $params{StateDir};

if (-e "$params{StateDir}/hashfile") {
    if (! -r "$params{StateDir}/hashfile") {
      die "Can't read registry file $params{StateDir}/hashfile:$!";
    }
    open (HASH, "$params{StateDir}/hashfile") ||
      die "Can't read registry file $params{StateDir}/hashfile:$!";
    while (<HASH>) {
      chomp;
      my ($hash, $file) = m/^(\S+)\s+(\S+)$/;
      $self->{$file} = $hash
    }
  }

bless $self => $class;

return $self;
}

=head2 hash

This routine queries the database for the hash associated with the
developers version of the given file.  Takes the path of the
configuration file as a required parameter.

=cut

sub hash {
  my $this      = shift;
  my $file      = shift;
  my $value     = shift;

if ($value) {
    $this->{$file} = $value;
  }
  return $this->{$file};
}

=head1 class conffile

This is the encapsulation of a configuration file metadata.

=cut

package conffile;
use strict;
use Cwd qw{abs_path};

=head2 new

=cut

sub new {
  my $this = shift;
  my %params = @_;
  my $class = ref($this) || $this;
  my $self = {};

die "Missing required parameter Name"
    unless $params{Name};
  $self->{Name}    = $params{Name};
  $self->{Package} = $params{Package}
    if $params{Package};
  $self->{Exists}  = 'Yes' if -e $self->{Name};
  if ($self->{Exists}) {
    $self->{Name}  = abs_path( $self->{Name});
  }
  bless $self => $class;

return $self;
}

=head2 conffile_package

This routine is the accessor method of the internal attribute that
holds package name associated with the file.  If an optional C<value>
is present, updates the value of the attribute.

=cut

sub conffile_package {
  my $this      = shift;
  my $value     = shift;

if ($value ) {
    $this->{Package} = $value;
  }
  if (exists $this->{Package}) {
    return $this->{Package};
  }
  else {
    return undef;
  }
}

=head2 conffile_exists

This routine is the accessor method of the internal attribute that
holds the information whether the file exists on disk or not.

=cut

sub conffile_exists {
  my $this      = shift;
  my $name      = shift;
  my $value     = shift;

die "Missing required parameter Name"
    unless $name;
  if (exists $this->{Exists}) {
    return $this->{Exists};
  }
  else {
    return undef;
  }
}

=head2 conffile_modified

This routine is the accessor method of the internal attribute that
holds the information whether the file exists on disk or not.  If an
optional C<value> is present, updates the value of the attribute.

=cut

sub conffile_modified {
  my $this      = shift;
  my $name      = shift;
  my $value     = shift;

die "Missing required parameter Name"
    unless $name;
  if ($value ) {
    $this->{Modified} = $value;
  }
  if (exists $this->{Modified}) {
    return $this->{Modified};
  }
  else {
    return undef;
  }
}

=head2 conffile_hash

This routine is the accessor method of the internal attribute that
holds the hash for the developers version of the file.  If an optional
C<value> is present, updates the value of the attribute.  It also
notes whether or not the file is modified from the developers version.

=cut

sub conffile_hash {
  my $this      = shift;
  my $name      = shift;
  my $value     = shift;

die "Missing required parameter Name"
    unless $name;
  if ($value ) {
    $this->{Hash} = $value;
    if (-e "$name") {
      if (-x "/usr/bin/md5sum") {
        open (NEWHASH, "/usr/bin/md5sum $name |") ||
          die "Could not run md5sum: $!";
        while (<NEWHASH>) {
          chomp;
          my ($hash, $dummy) = m/^(\S+)\s+(\S+)$/;
          if ("$hash" ne "$value") {
            $this->{Modified} = 'Yes';
          }
          else {
            $this->{Modified} = 'No';
          }
        }
        close NEWHASH;
      }
      else {
        die "Could not find /usr/bin/md5sum .\n";
      }
    }
  }
  if (exists $this->{Hash}) {
    return $this->{Hash};
  }
  else {
    return undef;
  }
}

sub conffile_report {
  my $this      = shift;
  return $this->{Package} ? $this->{Package} : "",
    $this->{Name}, $this->{Exists} ? $this->{Exists} : "",
      $this->{Modified}? $this->{Modified} : "";
}

=head1 CLASS PKG

This is an encapsulation of package metadata.  Packages may be
associated with configuration files.

=cut

package pkg;
use strict;

=head2 new

=cut

sub new {
  my $this = shift;
  my %params = @_;
  my $class = ref($this) || $this;
  my $self = {};

die "Missing required parameter Name"
    unless $params{Name};
  $self->{Name} = $params{Name};

bless $self => $class;

return $self;
}

sub list_files {
  my $this   = shift;
  return [];
}

=head1 CLASS object_list

This is a clas which holds lists of object names, either packages or
configuration file object names.  It provides methods to add, access,
and remove objects, as well as an option to list all elements in the
list.

=cut

package object_list;
use strict;

=head2 new

This is the constructor for the class. It takes no arguments.

=cut

sub new {
  my $this = shift;
  my %params = @_;
  my $class = ref($this) || $this;
  my $self = {};

$self->{"List"} = ();

bless $self => $class;

return $self;
}

=head2 element

This is an accessor method for elements of the list. If an optional
value argument exists, it creates or updates the element associtated
with the vaslue. Takes in a required name, which is used as a kay, and
an optional value argument. The value is returned.

=cut

sub element {
  my $this      = shift;
  my $name      = shift;
  my $value     = shift;

die "Missing required parameter Name"
    unless $name;
  if ($value) {
    $this->{"List"}->{$name} =  $value;
  }
  if (exists $this->{"List"}->{$name}) {
    return $this->{"List"}->{$name};
  }
  else {
    return undef;
  }
}

=head2 remove

Removes elements from the list.  Take in an required name, which is
used as the key for the element to delete.

=cut

sub remove {
  my $this      = shift;
  my $name      = shift;
  die "Missing required parameter Name"
    unless $name;
  delete $this->{"List"}->{$name}
    if (exists $this->{"List"}->{$name} );
}

=head2 list

This routine lists all the elements in the list.  It does not take any
options.

=cut

sub list {
  my $this      = shift;

return keys %{$this->{"List"}};
}

package main;
use Getopt::Long;

sub main {
  my $optdesc = ucf->Optdesc();
  my $parser  = new Getopt::Long::Parser;
  $parser->configure("bundling");
  $parser->getoptions (%$optdesc);
  my $query = ucf->new(%::ConfOpts);
  $query->process;
  $query->report;
}

&main;

exit 0;

=head1 CAVEATS

This is very inchoate, at the moment, and needs testing.

=cut

=head1 BUGS

None Known so far.

=cut

=head1 AUTHOR

Manoj Srivastava <srivasta\@debian.org>

=head1 COPYRIGHT AND LICENSE

This script is a part of the Ucf package, and is

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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

=cut

__END__

${this.title}

Code Editor : ucfq