#! /bin/bash # # Copyright (c) 2009, 2010 SUSE Linux Product GmbH, Germany. # Licensed under GPL v2, see COPYING file for details. # # Written by Michael Matz and Stephan Coolo # Enhanced by Andreas Jaeger RPM="rpm -qp --nodigest --nosignature" check_all= case $1 in -a | --check-all) check_all=1 shift esac if test "$#" != 2; then echo "usage: $0 [-a|--check-all] old.rpm new.rpm" exit 1 fi oldrpm=`readlink -f $1` newrpm=`readlink -f $2` if test ! -f $oldrpm; then echo "can't open $oldrpm" exit 1 fi if test ! -f $newrpm; then echo "can't open $newrpm" exit 1 fi #usage unrpm # Unpack rpm files in current directory # like /usr/bin/unrpm - just for one file and with no options function unrpm() { local file file=$1 CPIO_OPTS="--extract --unconditional --preserve-modification-time --make-directories --quiet" rpm2cpio $file | cpio ${CPIO_OPTS} } #usage unjar function unjar() { local file file=$1 if [[ $(type -p fastjar) ]]; then UNJAR=fastjar elif [[ $(type -p jar) ]]; then UNJAR=jar elif [[ $(type -p unzip) ]]; then UNJAR=unzip else echo "ERROR: jar, fastjar, or unzip is not installed (trying file $file)" exit 1 fi case $UNJAR in jar|fastjar) # echo jar -xf $file ${UNJAR} -xf $file ;; unzip) unzip -oqq $file ;; esac } # list files in directory #usage unjar_l function unjar_l() { local file file=$1 if [[ $(type -p fastjar) ]]; then UNJAR=fastjar elif [[ $(type -p jar) ]]; then UNJAR=jar elif [[ $(type -p unzip) ]]; then UNJAR=unzip else echo "ERROR: jar, fastjar, or unzip is not installed (trying file $file)" exit 1 fi case $UNJAR in jar|fastjar) ${UNJAR} -tf $file ;; unzip) unzip -l $file ;; esac } filter_disasm() { sed -e 's/^ *[0-9a-f]\+://' -e 's/\$0x[0-9a-f]\+/$something/' -e 's/callq *[0-9a-f]\+/callq /' -e 's/# *[0-9a-f]\+/# /' -e 's/\(0x\)\?[0-9a-f]\+(/offset(/' -e 's/[0-9a-f]\+ :/\1:/' -e 's/<\(.*\)+0x[0-9a-f]\+>/<\1 + ofs>/' } QF="%{NAME}" # don't look at RELEASE, it contains our build number QF="$QF %{VERSION} %{EPOCH}\\n" QF="$QF %{SUMMARY}\\n%{DESCRIPTION}\\n" QF="$QF %{VENDOR} %{DISTRIBUTION} %{DISTURL}" QF="$QF %{LICENSE} %{LICENSE}\\n" QF="$QF %{GROUP} %{URL} %{EXCLUDEARCH} %{EXCLUDEOS} %{EXCLUSIVEARCH}\\n" QF="$QF %{EXCLUSIVEOS} %{RPMVERSION} %{PLATFORM}\\n" QF="$QF %{PAYLOADFORMAT} %{PAYLOADCOMPRESSOR} %{PAYLOADFLAGS}\\n" QF="$QF [%{PREINPROG} %{PREIN}\\n]\\n[%{POSTINPROG} %{POSTIN}\\n]\\n[%{PREUNPROG} %{PREUN}\\n]\\n[%{POSTUNPROG} %{POSTUN}\\n]\\n" # XXX We also need to check the existence (but not the content (!)) # of SIGGPG (and perhaps the other SIG*) # XXX We don't look at triggers QF="$QF [%{VERIFYSCRIPTPROG} %{VERIFYSCRIPT}]\\n" # Only the first ChangeLog entry; should be enough QF="$QF %{CHANGELOGTIME} %{CHANGELOGNAME} %{CHANGELOGTEXT}\\n" file1=`mktemp` file2=`mktemp` check_header() { $RPM --qf "$QF" "$1" } check_header $oldrpm > $file1 check_header $newrpm > $file2 # the DISTURL tag can be used as checkin ID #echo "$QF" if ! diff -au $file1 $file2; then rm $file1 $file2 exit 1 fi release1=`$RPM --qf "%{RELEASE}" "$oldrpm"` release2=`$RPM --qf "%{RELEASE}" "$newrpm"` check_provides() { # provides destroy this because at least the self-provide includes the # -buildnumber :-( QF="[%{PROVIDENAME} %{PROVIDEFLAGS} %{PROVIDEVERSION}\\n]\\n" QF="$QF [%{REQUIRENAME} %{REQUIREFLAGS} %{REQUIREVERSION}\\n]\\n" QF="$QF [%{CONFLICTNAME} %{CONFLICTFLAGS} %{CONFLICTVERSION}\\n]\\n" QF="$QF [%{OBSOLETENAME} %{OBSOLETEFLAGS} %{OBSOLETEVERSION}\\n]\\n" check_header "$1" | sed -e "s,-$2,-@RELEASE@," } check_provides $oldrpm $release1 > $file1 check_provides $newrpm $release2 > $file2 if ! diff -au $file1 $file2; then rm $file1 $file2 exit 1 fi # First check the file attributes and later the md5s # Now the files. We leave out mtime and size. For normal files # the size will influence the MD5 anyway. For directories the sizes can # differ, depending on which file system the package was built. To not # have to filter out directories we simply ignore all sizes. # Also leave out FILEDEVICES, FILEINODES (depends on the build host), # FILECOLORS, FILECLASS (???), FILEDEPENDSX and FILEDEPENDSN. # Also FILELANGS (or?) QF="[%{FILENAMES} %{FILEFLAGS} %{FILESTATES} %{FILEMODES:octal} %{FILEUSERNAME} %{FILEGROUPNAME} %{FILERDEVS} %{FILEVERIFYFLAGS} %{FILELINKTOS}\n]\\n" # ??? what to do with FILEPROVIDE and FILEREQUIRE? check_header $oldrpm > $file1 check_header $newrpm > $file2 if ! diff -au $file1 $file2; then rm $file1 $file2 exit 1 fi # now the md5sums. if they are different, we check more detailed # if there are different filenames, we will already have aborted before QF="[%{FILENAMES} %{FILEMD5S}\n]\\n" check_header $oldrpm > $file1 check_header $newrpm > $file2 # done if the same if cmp -s $file1 $file2; then rm $file1 $file2 exit 0 fi files=`diff -U0 $file1 $file2 | fgrep -v +++ | grep ^+ | cut -b2- | awk '{print $1}'` dir=`mktemp -d` cd $dir mkdir old cd old unrpm $oldrpm cd .. mkdir new cd new unrpm $newrpm cd .. dfile=`mktemp` diff_two_files() { if ! cmp -s old/$file new/$file; then echo "$file differs ($ftype)" hexdump -C old/$file > $file1 hexdump -C new/$file > $file2 diff -u $file1 $file2 | head -n 200 return 1 fi return 0 } check_single_file() { local file=$1 case $file in *.spec) sed -i -e "s,Release:.*$release1,Release: @RELEASE@," old/$file sed -i -e "s,Release:.*$release2,Release: @RELEASE@," new/$file ;; *.exe.mdb|*.dll.mdb) # Just debug information, we can skip them echo "$file skipped as debug file." return 0 ;; *.a) echo "$file is .a" flist=`ar t new/$file` pwd=$PWD fdir=`dirname $file` cd old/$fdir ar x `basename $file` cd $pwd/new/$fdir ar x `basename $file` cd $pwd for f in $flist; do if ! check_single_file $fdir/$f; then return 1 fi done return 0 ;; *.tar|*.tar.bz2|*.tar.gz|*.tgz|*.tbz2) flist=`tar tf new/$file` pwd=$PWD fdir=`dirname $file` cd old/$fdir tar xf `basename $file` cd $pwd/new/$fdir tar xf `basename $file` cd $pwd local ret=0 for f in $flist; do if ! check_single_file $fdir/$f; then ret=1 if test -z "$check_all"; then break fi fi done return $ret ;; *.zip|*.jar) cd old unjar_l ./$file |sort > flist sed -i -e "s, [0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]:[0-9][0-9] , date ," flist cd ../new unjar_l ./$file |sort> flist sed -i -e "s, [0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]:[0-9][0-9] , date ,; " flist cd .. if ! cmp -s old/flist new/flist; then echo "$file has different file list" diff -u old/flist new/flist return 1 fi flist=`grep date new/flist | sed -e 's,.* date ,,'` pwd=$PWD fdir=`dirname $file` cd old/$fdir unjar `basename $file` cd $pwd/new/$fdir unjar `basename $file` cd $pwd local ret=0 for f in $flist; do if test -f new/$fdir/$f && ! check_single_file $fdir/$f; then ret=1 if test -z "$check_all"; then break fi fi done return $ret;; *.pyc|*.pyo) perl -E "open fh, '+<', 'old/$file'; seek fh, 3, SEEK_SET; print fh '0000';" perl -E "open fh, '+<', 'new/$file'; seek fh, 3, SEEK_SET; print fh '0000';" ;; *.bz2) bunzip2 -c old/$file > old/${file/.bz2/} bunzip2 -c new/$file > new/${file/.bz2/} check_single_file ${file/.bz2/} return $? ;; *.gz) gunzip -c old/$file > old/${file/.gz/} gunzip -c new/$file > new/${file/.gz/} check_single_file ${file/.gz/} return $? ;; /usr/share/locale/*/LC_MESSAGES/*.mo|/usr/share/locale-bundle/*/LC_MESSAGES/*.mo) for f in old/$file new/$file; do sed -i -e "s,POT-Creation-Date: ....-..-.. ..:..+....,POT-Creation-Date: 1970-01-01 00:00+0000," $f done ;; /usr/share/doc/packages/*/*.html) for f in old/$file new/$file; do # texi2html output, e.g. in kvm, indent, qemu sed -i -e "s|^,^," $f sed -i -e 's|^$||' $f sed -i -e 's|||' $f # Gjdoc HtmlDoclet: sed -i -e 's%Generated by Gjdoc HtmlDoclet [0-9,.]*, part of GNU Classpath Tools, on .*, 20.. [0-9]*:..:.. \(a\|p\)\.m\. GMT.%Generated by Gjdoc.%' $f sed -i -e 's%, on [A-Z][a-z]* [0-9]*, 20?? [0-9]*:??:?? \(a|p\)\.m\. GMT.

%, on January 1, 2009 0:00:00 a.m. GMT.

%' $f sed -i -e 's%\), on [a-zA-Z]* [0-9][0-9], 20.. [0-9]*:..:.. \(a\|p\)\.m\. GMT.

%%' $f # deprecated-list is randomly ordered, sort it for comparison case $f in */deprecated-list.html) sort $f > ${f}.sort mv ${f}.sort $f ;; esac done ;; /usr/share/javadoc/gjdoc.properties |\ /usr/share/javadoc/*/gjdoc.properties) for f in old/$file new/$file; do sed -i -e 's|^#[A-Z][a-z]\{2\} [A-Z][a-z]\{2\} [0-9]\{2\} ..:..:.. GMT 20..$|#Fri Jan 01 11:27:36 GMT 2009|' $f done ;; */fonts.scale|*/fonts.dir|*/encodings.dir) for f in old/$file new/$file; do # sort files before comparing sort $f > $f.tmp mv $f.tmp $f done ;; /var/adm/perl-modules/*) for f in old/$file new/$file; do sed -i -e 's|^=head2 ... ... .. ..:..:.. ....: C|=head2 Wed Jul 1 00:00:00 2009: C|' $f done ;; /usr/share/man/man3/*3pm) for f in old/$file new/$file; do sed -i -e 's| 3 "20..-..-.." "perl v5....." "User Contributed Perl Documentation"$| 3 "2009-01-01" "perl v5.10.0" "User Contributed Perl Documentation"|' $f done ;; /usr/share/man/man*/*) # Handles lines like: # .TH debhelper 7 "2010-02-27" "7.4.15" "Debhelper" # .TH DIRMNGR-CLIENT 1 2010-02-27 "Dirmngr 1.0.3" "GNU Privacy Guard" # .TH ccmake 1 "March 06, 2010" "ccmake 2.8.1-rc3" # .TH QEMU-IMG 1 "2010-03-14" " " " " # .TH kdecmake 1 "May 07, 2010" "cmake 2.8.1" # .TH "appender.h" 3 "12 May 2010" "Version 1.2.1" "log4c" \" -*- nroff -*- # .TH "OFFLINEIMAP" "1" "11 May 2010" "John Goerzen" "OfflineIMAP Manual" # TH gv 3guile "13 May 2010" for f in old/$file new/$file; do sed -i -e 's/^.TH "\?\([^ "]*\)"\? "\?\([0-9][a-z]*\)"\? "\?\(20[0-9][0-9]-[0-9][0-9]-[0-9][0-9]\|[A-Z][a-z]* [0-9][0-9], 20[0-9][0-9]\|[0-9]* [A-Z][a-z]* 20[0-9][0-9]\)"\? /.TH \1 \2 "2000-01-01" /' $f done ;; *.elc) # emacs lisp files for f in old/$file new/$file; do sed -i -e 's|Compiled by abuild@.* on ... ... .. ..:..:.. 20..$|compiled by abuild@buildhost on Wed Jul 01 00:00:00 2009|' $f done ;; /var/lib/texmf/web2c/*/*fmt) # same of these are gzip compressed for f in old/$file new/$file; do fftype=`/usr/bin/file $f | cut -d: -f2-` case $fftype in *gzip\ compressed\ data*) gunzip -cd $f > $f.tmp mv $f.tmp $f ;; *) ;; esac # date is of variable length, e.g. 2009.7.21 sed -i -e 's|(format=[a-z]*tex 20..\.[0-9]*\.[0-9]*)|(format=luatex 2009.1.1)|' $f done ;; */libtool) for f in old/$file new/$file; do sed -i -e 's|^# Libtool was configured on host [a-z0-9]*:$|Libtool was configured on host x42:|' $f done ;; /etc/mail/*cf|/etc/sendmail.cf) # from sendmail package for f in old/$file new/$file; do # - ##### built by abuild@build33 on Thu May 6 11:21:17 UTC 2010 sed -i -e 's|built by abuild@[a-z0-9]* on ... ... [0-9]* [0-9]*:[0-9][0-9]:[0-9][0-9] .* 20[0-9][0-9]|built by abuild@build42 on Thu May 6 11:21:17 UTC 2010|' $f done ;; /usr/share/doc/kde/HTML/*/*/index.cache|/usr/share/doc/kde/HTML/*/*/*/index.cache) # various kde packages for f in old/$file new/$file; do sed -i -e 's%name="id[0-9]*"\([> ]\)%name="id424242"\1%g' $f sed -i -e 's%name="[a-z]*\.id[0-9]*"%name="ftn.id111111"%g' $f sed -i -e 's%\.html#id[0-9]*">%.html#id424242">%g' $f sed -i -e 's%href="#\([a-z]*\.\)\?id[0-9]*">%href="#\1id0000000">%g' $f done ;; esac ftype=`/usr/bin/file old/$file | cut -d: -f2-` case $ftype in *PE32\ executable*Mono\/\.Net\ assembly*) echo "PE32 Mono/.Net assembly: $file" if [ -x /usr/bin/monodis ] ; then monodis old/$file 2>/dev/null|sed -e 's/GUID = {.*}/GUID = { 42 }/;'> ${file1} monodis new/$file 2>/dev/null|sed -e 's/GUID = {.*}/GUID = { 42 }/;'> ${file2} if ! cmp -s ${file1} ${file2}; then echo "$file differs ($ftype)" diff -u ${file1} ${file2} return 1 fi else echo "Cannot compare, no monodis installed" return 1 fi ;; *executable*|*LSB\ shared\ object*) objdump -d --no-show-raw-insn old/$file | filter_disasm > $file1 if ! test -s $file1; then # objdump has no idea how to handle it if ! diff_two_files; then ret=1 break fi fi sed -i -e "s,old/,," $file1 objdump -d --no-show-raw-insn new/$file | filter_disasm > $file2 sed -i -e "s,new/,," $file2 if ! diff -u $file1 $file2 > $dfile; then echo "$file differs in assembler output" head -n 200 $dfile return 1 fi objdump -s old/$file > $file1 sed -i -e "s,old/,," $file1 objdump -s new/$file > $file2 sed -i -e "s,new/,," $file2 if ! diff -u $file1 $file2 > $dfile; then echo "$file differs in ELF sections" head -n 200 $dfile else echo "WARNING: no idea about $file" fi return 1 ;; *ASCII*|*text*) if ! cmp -s old/$file new/$file; then echo "$file differs ($ftype)" diff -u old/$file new/$file | head -n 200 return 1 fi ;; *directory) # tar might package directories - ignore them here return 0 ;; *) if ! diff_two_files; then return 1 fi ;; esac return 0 } # We need /proc mounted for some tests, so check that it's mounted and # complain if not. PROC_MOUNTED=0 if [ ! -d /proc/self/ ]; then echo "/proc is not mounted" mount -orw -n -tproc none /proc PROC_MOUNTED=1 fi ret=0 for file in $files; do if ! check_single_file $file; then ret=1 if test -z "$check_all"; then break fi fi done if [ "$PROC_MOUNTED" -eq "1" ]; then echo "Unmounting proc" umount /proc fi rm $file1 $file2 $dfile rm -r $dir exit $ret