summaryrefslogtreecommitdiff
path: root/lddd.in
blob: 09e0d07ee46d27dda93cf697802b1386c73cf680 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#!/bin/bash
#
# lddd - find broken library links on your machine
#
# License: Unspecified

. "$(librelib messages)"

usage() {
	print "Usage: %s [-h]" "${0##*/}"
	print "Find broken library links on your machine."
	echo
	prose 'Scans $PATH and library directories for ELF files with
	       references to missing shared libraries.'
}

if [[ $1 = '-h' ]]; then
	usage
	exit 0
elif [[ $# -gt 0 ]]; then
	usage >&2
	exit 1
fi

ifs=$IFS
IFS="${IFS}:"

libdirs="/lib /usr/lib /usr/local/lib $(cat /etc/ld.so.conf.d/*)"
extras=

TEMPDIR=$(mktemp -d --tmpdir lddd-script.XXXX)

msg 'Go out and drink some tea, this will take a while :) ...'
#  Check ELF binaries in the PATH and specified dir trees.
for tree in $PATH $libdirs $extras; do
	msg2 "DIR %s" "$tree"

	#  Get list of files in tree.
	files=$(find $tree -type f ! -name '*.a' ! -name '*.la' ! -name '*.py*' ! -name '*.txt' ! -name '*.h' ! -name '*.ttf' ! \
	-name '*.rb' ! -name '*.ko' ! -name '*.pc' ! -name '*.enc' ! -name '*.cf' ! -name '*.def' ! -name '*.rules' ! -name \
	'*.cmi' ! -name  '*.mli' ! -name '*.ml' ! -name '*.cma' ! -name '*.cmx' ! -name '*.cmxa' ! -name '*.pod' ! -name '*.pm' \
	! -name '*.pl' ! -name '*.al' ! -name '*.tcl' ! -name '*.bs' ! -name '*.o' ! -name '*.png' ! -name '*.gif' ! -name '*.cmo' \
	! -name '*.cgi' ! -name '*.defs' ! -name '*.conf' ! -name '*_LOCALE' ! -name 'Compose' ! -name '*_OBJS' ! -name '*.msg' ! \
	-name '*.mcopclass' ! -name '*.mcoptype')
	IFS=$ifs
	for i in $files; do
		if (( $(file $i | grep -c 'ELF') != 0 )); then
			#  Is an ELF binary.
			if (( $(ldd $i 2>/dev/null | grep -c 'not found') != 0 )); then
				#  Missing lib.
				echo "$i:" >> $TEMPDIR/raw.txt
				ldd $i 2>/dev/null | grep 'not found' >> $TEMPDIR/raw.txt
			fi
		fi
	done
done
grep '^/' $TEMPDIR/raw.txt | sed -e 's/://g' >> $TEMPDIR/affected-files.txt
# invoke pacman
for i in $(cat $TEMPDIR/affected-files.txt); do
	pacman -Qo $i | awk '{print $4,$5}' >> $TEMPDIR/pacman.txt
done
# clean list
sort -u $TEMPDIR/pacman.txt >> $TEMPDIR/possible-rebuilds.txt

msg "Files saved to %s" "$TEMPDIR"