10 rpm -qa|sort >$t/tmp/rpm-qa
11 rpm -qal|sort -u|grep -v '^(contains no files)$' >$t/tmp/rpm-qal
12 (set +e;rpm -Va|sed 's#^[^/]*##' >$t/tmp/rpm-Va)
13 pattern="`tr '\n' '|' <<HERE|sed 's/|$//'
16 /etc/rc[.]d/rc[0-9][.]d/
17 /lib/modules/[^/]*/modules[.]
30 /usr/lib/locale/locale-archive
31 /var/lib/slocate/slocate.db
38 /usr/lib/IPTables-IPv4/
47 (find / -xdev -print -type d -print;cat $t/tmp/rpm-qal)|sort|uniq -u
50 # cpio(1) needs "./bin/bash" pattern.
51 rpm="$(for dir in /var/cache/yum /usr/src/redhat/RPMS /root/arch;do
52 find $dir -name "`rpm -qf "$file"`.*.rpm"
53 done|grep -v '[.]src[.]rpm$')"
54 echo "$rpm"|grep -qv ' '
55 rpm2cpio "$rpm"|cpio -id --no-absolute-filenames ."$file"
56 mv ."$file" ."$file"-orig
57 (set +e;diff -u ."$file"-orig "$file" >."$file".patch)
62 |grep --perl-regexp -v -e "^($pattern)" \
63 |(echo $t/tmp/rpm-qa;cat) \
64 |sort -u ###|sed 's#^/##'|(cd /;set +e;xargs tar cf -)