Vincent Danen <[EMAIL PROTECTED]> writes:
> On Sun Jan 28, 2001 at 11:59:04PM +0100, J . A . Magallon wrote:
>
> > Is there any way to get the version changes from an rpm package, like
> > rpmfind.net does with rpm2html ?
>
> rpm -qip --changelog package.i586.rpm|more
>
> That will get you the changelog.
FYI this is script we use to get the last changelog of package :
#!/usr/bin/perl
## Chmouel Boudjnah <[EMAIL PROTECTED]>
my ($main, $m);
if ($ARGV[0] =~ "-m") {$m++; shift;}
$f = shift or die "Give me a fuel for my aeroplane\n";
open(F,"rpm -qpi --changelog $f|") or die "can't open $f";
while (<F>) {
if ($main) {last if /^\*\s+\w+\s+\w+\s+\d+\s+\d+\s+.*\@.*>/; push @CHANGELOG, $_ ;}
if (/^\*\s+\w+\s+\w+\s+\d+\s+\d+\s+(.*\@.*>)/) { $main = $1; push @CHANGELOG, $_ ;}
}
if ($m) { $main ? print "$main\n" : print "No adress found\n"} else
{ @CHANGELOG ? print @CHANGELOG : print "No Changelog foound\n" };
--
MandrakeSoft Inc http://www.chmouel.org
--Chmouel
