From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Tue, 9 Aug 2005 04:35:12 +0400 From: Alexey Tourbin To: sisyphus@altlinux.org Message-ID: <20050809003512.GF19097@solemn.turbinal.org> Mail-Followup-To: sisyphus@altlinux.org References: <20050808200218.GA11898@basalt.office.altlinux.org> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="924gEkU1VlJlwnwX" Content-Disposition: inline In-Reply-To: <20050808200218.GA11898@basalt.office.altlinux.org> Cc: Subject: [sisyphus] Re: I: Sisyphus-20050809 packages: +7! +62 (4575) X-BeenThere: sisyphus@altlinux.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: ALT Linux Sisyphus discussion list List-Id: ALT Linux Sisyphus discussion list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 09 Aug 2005 00:37:46 -0000 Archived-At: List-Archive: --924gEkU1VlJlwnwX Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Tue, Aug 09, 2005 at 12:02:18AM +0400, Alexey M. Tourbin wrote: > abiword - Lean and fast full-featured word processor > * Tue Jul 26 2005 Vital Khilko 2.3.4-alt1 > - 2.3.4 > * Wed Apr 06 2005 Vital Khilko 2.2.7-alt1 =F0=CF=D3=CC=C5=C4=CE=D1=D1 =D3=D4=D2=CF=DE=CB=C1 =D3=CF=CF=D4=D7=C5=D4=D3= =D4=D7=D5=C5=D4 =D0=D2=C5=C4=D9=C4=D5=DD=C5=CD=D5 =D2=C5=CC=C9=DA=D5. =F0= =CF-=CD=CF=C5=CD=D5, =DC=D4=CF =C7=CF=D2=C1=DA=C4=CF =C2=CF=CC=C5=C5 =C9=CE=C6=CF=D2=CD=C1=D4=C9=D7=CE=CF,= =DE=C5=CD "v1 -> v2", =CE=CF, =D7=CF=DA=CD=CF=D6=CE=CF, =CD=C5=CE=C5=C5 =CF=DE=C5=D7=C9=C4=CE=CF. > liferea - A RSS News Reader for GNOME > * Thu Aug 04 2005 Vital Khilko 0.9.5-alt1.1 > - 0.9.5 > * Wed Jul 27 2005 Vital Khilko 0.9.4-alt1.1 > - DBus support > * Wed Jul 27 2005 Vital Khilko 0.9.4-alt1 > - 0.9.4 > * Thu Jul 21 2005 Vital Khilko 0.9.2-alt1.1 > - DBus disabled > * Thu May 19 2005 Vital Khilko 0.9.2-alt1 =F4=C5=D0=C5=D2=D8 =D4=C1=CB=D6=C5 =D7=C9=C4=CE=D9 =D7=D3=C5 =D0=D2=CF=CD= =C5=D6=D5=D4=CF=DE=CE=D9=C5 =D2=C5=CC=C9=DA=D9, =CB=CF=D4=CF=D2=D9=C5 =CE= =C5 =D0=CF=D0=C1=C4=C1=CC=C9 =D7 =D3=C9=DA=C9=C6. diff -u qa/qa-robot/packages:1.3 qa/qa-robot/packages:1.4 --- qa/qa-robot/packages:1.3 Fri Jul 29 21:18:04 2005 +++ qa/qa-robot/packages Mon Aug 8 14:28:31 2005 @@ -64,6 +64,26 @@ rpm_lastchange() { rpm -qp --lastchange -- "$@" |sed -ne \ 's/@\([[:alnum:]-]\+\)\.[[:alnum:]]\+>/@\1>/;/[[:alnum:]]/p'; } =20 +rpm_changes_since() +{ + perl -MRPM::Header -Mstrict -l - "$@" <<'__EOF__' + my ($SVR, $f) =3D @ARGV; + tie my %hdr, "RPM::Header", $f or die "$f: $RPM::err\n"; + for my $i (0 .. $#{$hdr{CHANGELOGTIME}}) { + use Date::Format qw(time2str); + my $date =3D time2str("%a %b %d %Y", $hdr{CHANGELOGTIME}[$i]); + my $info =3D "* $date $hdr{CHANGELOGNAME}[$i]"; + $info =3D~ s/@([\w-]+)[.]\w+>/\@$1>/; + my $svr =3D (split " ", $hdr{CHANGELOGNAME}[$i])[-1]; + my $cmp =3D $svr =3D~ /^\w[:\w.-]*$/ ? 0+`rpmevrcmp $svr $SVR` : -1; + print $info; + print $hdr{CHANGELOGTEXT}[$i] if $cmp > 0 or $i =3D=3D 0; + print "Note: changelog entry for $SVR was not found." if $cmp < 0; + last if $cmp <=3D 0; + } +__EOF__ +} + fmt_new() { subj=3D"$subj +$1!" @@ -91,8 +111,7 @@ echo " $1 UPDATED $2"; echo while IFS=3D$'\t' read -r name SVR2 f0 SVR4 f; do rpm_summary "$SRPMS/$f" - echo "$SVR2 -> $SVR4" - rpm_lastchange "$SRPMS/$f" + rpm_changes_since "$SVR2" "$SRPMS/$f" echo done } --924gEkU1VlJlwnwX Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) iD8DBQFC9/pAfBKgtDjnu0YRApQfAKDKnqgucBtMjsooKwWbPQEf7xjmrACeJy6q NwF37UUeKO2YE4PsOHAI5fc= =2DFG -----END PGP SIGNATURE----- --924gEkU1VlJlwnwX--