From b3f100c61315e544c3ab16d3e5d4640b66db0a76 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 15 Mar 2001 12:07:29 +0000 Subject: adapt for depslist.ordered --- rpm-find-leaves | 33 +++++++++++++++++++++++---------- 1 file changed, 23 insertions(+), 10 deletions(-) (limited to 'rpm-find-leaves') diff --git a/rpm-find-leaves b/rpm-find-leaves index f94190c5..781422b7 100644 --- a/rpm-find-leaves +++ b/rpm-find-leaves @@ -1,19 +1,32 @@ #!/usr/bin/perl +use lib "../rpmtools"; + local $_ = join '', @ARGV; /-h/ and die "usage: rpm-find-leaves [--show-unknown]\n"; $show_unknown = /-show-unknown/; -$r = join '|', map { chop; $l{$_} = 1; quotemeta } `rpm -qa --queryformat "%{NAME}\n"`; -$R = qr/ ($r)-\d/; -$R2 = qr/$r /; -open F, "/var/lib/urpmi/depslist" or die "can't find depslist\n"; -F: foreach () { - my ($p) = /(\S+)-[^-]+-[^-]+ /; - $p =~ $R2 or next; # not installed - $L{$p} = 1; - delete $l{$1} while /$R/g; +use rpmtools; + +$f = "/var/lib/urpmi/depslist.ordered"; +open F, $f or die "read_depslist: can't open file $f\n"; +$o = new rpmtools; +$o->read_depslist(\*F); + +chop, $l{$_} = 1 foreach `rpm -qa --queryformat "%{name}\n"`; + +%m = %l; + +foreach (@{$o->{depslist}}) { + delete $m{$_->{name}} or next; + delete $l{$o->{depslist}[$_]{name}} foreach split ' ', $_->{deps}; +} + +!$m{$_} and print "$_\n" foreach sort keys %l; + +if ($show_unknown) { + print "\n"; + print "$_\n" foreach sort keys %m; } -$show_unknown || $L{$_} and print "$_\n" foreach keys %l; -- cgit v1.2.1