From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 4.0.0 (2022-12-14) on finch.gentoo.org X-Spam-Level: X-Spam-Status: No, score=-0.1 required=5.0 tests=DMARC_NONE,MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no version=4.0.0 Received: from excalibur.skynet.be (excalibur.skynet.be [195.238.3.90]) by chiba.3jane.net (Postfix) with ESMTP id 55F87AC68B for ; Thu, 23 May 2002 11:24:17 -0500 (CDT) Received: from canatella.capsule.dam (80-200-96-22.adsl.powered-by.skynet.be [80.200.96.22]) by excalibur.skynet.be (8.11.6/8.11.6/Skynet-OUT-2.19) with ESMTP id g4NGOBH07226 for ; Thu, 23 May 2002 18:24:12 +0200 (MET DST) (envelope-from ) From: Damien To: gentoo-dev@gentoo.org Content-Type: multipart/mixed; boundary="=-ICS2GNWibMJiWCxrNkMX" X-Mailer: Ximian Evolution 1.0.5 Date: 23 May 2002 18:28:10 +0200 Message-Id: <1022171292.4754.40.camel@canatella.capsule.dam> Mime-Version: 1.0 Subject: [gentoo-dev] Listing change for emerge rsync. Sender: gentoo-dev-admin@gentoo.org Errors-To: gentoo-dev-admin@gentoo.org X-BeenThere: gentoo-dev@gentoo.org X-Mailman-Version: 2.0.6 Precedence: bulk Reply-To: gentoo-dev@gentoo.org List-Help: List-Post: List-Subscribe: , List-Id: Gentoo Linux developer list List-Unsubscribe: , List-Archive: X-Archives-Salt: e4be2ee3-3582-4dd0-af86-209b0c3aa02a X-Archives-Hash: 25a75921f7e71425dc8879277d57aeb9 --=-ICS2GNWibMJiWCxrNkMX Content-Type: text/plain Content-Transfer-Encoding: 7bit Hi there, I wrote this script that list the changes for your installed packages when doing an 'emerge rsync'. It has two problem, the first is that I don't know python so I wrote it in perl (maybe someone could translate it), and the second is that it's not very well written. The second problem comes from the fact that a lot of ChangeLog are broken and not clearly formatted, so I attempt to reformat the changelog. It comes also from the fact that I'm not an expert in perl coding ;). It would be great if it could be translated to python and integrated into emerge, but I'm sure there are better way to do what this script does. The script takes the output of emerge rsync as input, then look for ChangeLog. If it found one line, it gets the name of the package and check in /var/db/pkg/ to see if it is installed and then get the installed version. It then output the ChangeLog, formatting it nicely and stopping at the currently installed version. The script is attached to this mail. To use it do a emerge rsync | emerge-listchanges Bye bye. Damien Merenne --=-ICS2GNWibMJiWCxrNkMX Content-Disposition: attachment; filename=emerge-listchanges Content-Transfer-Encoding: quoted-printable Content-Type: text/x-perl; name=emerge-listchanges; charset=ISO-8859-1 #!/usr/bin/perl -w ###########################################################################= # # # emerge-listchanges - Show changelog entries between=20 # the installed versions of ebuilds and new ebuild. # =20 # # Usage: emerge rsync | emerge-listchanges # # Copyright (C) 2002 Damien Merenne # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public # License along with this program; if not, write to the Free # Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, # MA 02111-1307 USA # # =20 use strict; my $db =3D "/var/db/pkg"; my $portage =3D "/usr/portage"; my @uninstalled; # this if for less so that it prints the first line print "\n"; while (<>) { chop; # match updated ChangeLog if (/^(.*)\/(.*)\/ChangeLog/) { my $cat =3D $1; my $pkg =3D $2; my $version =3D ""; # get the installed versuib opendir (DIR, "${db}/${cat}"); while (my $pk =3D readdir(DIR)) { next if ($pk =3D~ /^(\.|\.\.)$/); next if ($pk !~ /$pkg/); $pk =3D~ /-(\d+\..+)$/; $version =3D $1; last; } =09 # if we don't find the package, it is not installed if ($version eq "") { push @uninstalled, "${cat}/${pkg}"; next; } # print the ChangeLog entries print "Changelog for ${cat}/${pkg}\n\n"; print_changelog("${portage}/${cat}/${pkg}/ChangeLog", $pkg, $version); } } # print uninstalled updated package print "List of new package or not installed updated package:\n"; foreach (@uninstalled) { print " ${_}\n"; } # read a changelog file and format it nicely sub print_changelog { my $file =3D shift; my $pkg =3D shift; my $version =3D shift; my $fv =3D 0; my $cg =3D 0; my %info; my @changes =3D (); my %change; my $readchanges =3D 0; # open file open(CL, "< ${file}") || die ("Unable to open ${file}"); while() { chomp; # skip headers and empty line next if (/\#/); next if ($_ eq ""); # match a new version if (/^\*${pkg}-(\d+.+),?\s+\((\d{1,2}) (\w+) (\d\d\d\d)\).*$/) { # if we have a version waiting to be printed, do it if ($fv) { my $pkgname=3Dsprintf("%-25s" , "${pkg}-".$info{"version"}); print "*${pkgname} (".$info{"out"}.")\n\n"; # if there are changes push the last entry in the list of change entries # else it means this is a new upstream version if ($readchanges) { push(@changes, \%change); $readchanges =3D 0; } else { print " New upstream version.\n\n"; next; } # print each change foreach (@changes) { print " ".${$_}{"date"}."; ".${$_}{"author"}." ".${$_}{"mail"}." "; my $vir =3D 0; foreach (@{${$_}{"files"}}) { print ", " if ($vir); print "${_}"; $vir =3D 1; } print ":\n"; print fold(${$_}{"change"}, 65, " ")."\n\n"; } print "\n"; %info =3D (); %change =3D (); @changes =3D (); $cg =3D 0; =09 } # stop if this version is the installed version last if (/^\*${pkg}-${version}/); # store the version information $info{"version"} =3D $1; $info{"out"} =3D sprintf("%02i %s %s", $2, $3, $4); $fv =3D 1; } if ($fv) { # if we are in a version, try to match a new entry=20 # (these are often broken so the regexp try to match strange format) if (/^\s+(\d{1,2})\s+(\w+)\s+(\d\d\d\d)\s*;?\s+(\w+.*\w+)\s+(<.+@.+\..= +>)\s*([^ :][^:]*[^ :])*\s*(:?)\s*(.*)$/) { $readchanges =3D 1; # if we have already read a change, then put that entry in the list of ch= ange if ($cg) { my %copy =3D %change; push(@changes, \%copy); %change =3D (); } $cg =3D 1; # get all the data $change{"date"} =3D sprintf("%2i %s %s", $1, $2, $3); $change{"author"} =3D $4; $change{"mail"} =3D $5; my @files; # here we have a big problem, they are different kind of bad formatted en= tries: # 20 Feb 2002; nom files, files : which is correct # 20 Feb 2002; nom : changes which is wrong=20 # 20 Feb 2002; nom files, files : changes which is wrong # we try to correct wrong entries if ($7 eq ":") { if ($6) { @files =3D split (/\s*(,)\s*/, $6); } else { @files =3D (); } } else { $change{"change"} =3D "${6}" if ($6); } if (exists $change{"change"}) { $change{"change"} .=3D " ${8}"; } else { $change{"change"} =3D "${8}"; } =09 $change{"files"} =3D \@files; next; } =20 # if we are here, it means that the text is a description of a change # so store it in the current change if (/^\s+[^ ](.*)$/) { if (exists $change{"change"}) { $change{"change"} .=3D " ${_}"; } else { $change{"change"} =3D "${_}"; } next; } } } } # wrap lines sub fold { my $str =3D shift; my $mxl =3D shift; my $ident =3D shift; my $ret =3D ""; my $line =3D ""; my @words =3D split (/\s+/, $str); foreach (@words) { if ((length($line) + length($_)) > $mxl) { $ret .=3D $ident . $line . "\n"; $line =3D $_; next; } else { if ($line eq "") { $line .=3D $_; } else { $line .=3D " ".$_; } } } $ret .=3D $ident . $line; =20 return $ret; } --=-ICS2GNWibMJiWCxrNkMX--