Re: [devel] gb-task-check-lastchange: inheritance by src.rpm changelog

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1.1: Type: text/plain, Size: 586 bytes --]

On Tue, Mar 16, 2010 at 05:11:01PM +0300, Alexey Tourbin wrote:
> gb-task-check-lastchange: new check for inheritance
> http://git.altlinux.org/people/at/packages/girar-builder.git?a=commitdiff;h=132737dc
> 
> +#
> +# When updating a package V1->V2, last changelog entry in V1
> +# must be present among changelog entries in V2.  This is how
> +# we can retain NMU and promote QA activity.
> +#

More examples follow along with a simple script to automate comparsion.

[at@altair at]$ ./changelogdiff /ALT/archive/Sisyphus/2009/08/01 /ALT/archive/Sisyphus/2009/09/01 >diff

[-- Attachment #1.2: changelogdiff --]
[-- Type: text/plain, Size: 915 bytes --]

#!/bin/sh -efu

. tmpdir.sh
cd $TMPDIR

repo1=$1
repo2=$2

ls $repo1/files/SRPMS/ |perl -pe 's/(.+)-(.+)-(.+)/$1\t$1-$2-$3/' >NF1
ls $repo2/files/SRPMS/ |perl -pe 's/(.+)-(.+)-(.+)/$1\t$1-$2-$3/' >NF2

sort -u -o NF1{,}
sort -u -o NF2{,}

join NF1 NF2 |awk '$2!=$3{print$2,$3}' >check

changelog()
{       
	rpmquery --qf '[%{CHANGELOGTIME:day}\t%{CHANGELOGNAME}\n]' -p "$1" |
	perl -pe 's/\t.*<(\S+)(?:\@| at )([\w-]+).*>[ \t]*/\t$1\@$2\t/'
}

check()
{       
        changelog "$1" >c1
        changelog "$2" >c2
        lastchange=$(head -1 c1)
        if ! fgrep -qs -x -e "${lastchange:?}" c2; then
		rpm -q --changelog -p "$1" >${1##*/}.changelog
		rpm -q --changelog -p "$2" >${2##*/}.changelog
		diff -u {${1##*/},${2##*/}}.changelog || [ $? = 1 ]
        fi
}

while read -r F1 F2; do
	F1=$repo1/files/SRPMS/$F1
	F2=$repo2/files/SRPMS/$F2
	check $F1 $F2
done <check

[-- Attachment #1.3: diff.gz --]
[-- Type: application/x-gzip, Size: 6350 bytes --]

[-- Attachment #2: Type: application/pgp-signature, Size: 198 bytes --]