From 43a2e10ca24e7e3aefc448a81d2b5ecb1ad75a68 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 16 Jan 2002 18:21:42 +0000
Subject: 3.2-1mdk

---
 rpm-find-leaves | 36 +++++++++++++-----------------------
 1 file changed, 13 insertions(+), 23 deletions(-)

(limited to 'rpm-find-leaves')

diff --git a/rpm-find-leaves b/rpm-find-leaves
index 781422b7..32d9668c 100644
--- a/rpm-find-leaves
+++ b/rpm-find-leaves
@@ -1,32 +1,22 @@
 #!/usr/bin/perl
 
-use lib "../rpmtools";
-
-local $_ = join '', @ARGV;
-
-/-h/ and die "usage: rpm-find-leaves [--show-unknown]\n";
-
-$show_unknown = /-show-unknown/;
+@ARGV and die "usage: rpm-find-leaves\n";
 
 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"`;
+$db = rpmtools::db_open('');
+rpmtools::db_traverse($db, [ qw(name version release provides requires) ], sub {
+    push @packages, $_[0];
+});
+rpmtools::db_close($db);
 
-%m = %l;
-
-foreach (@{$o->{depslist}}) {    
-    delete $m{$_->{name}} or next;
-    delete $l{$o->{depslist}[$_]{name}} foreach split ' ', $_->{deps};
+foreach my $pkg (@packages) {
+    $l{$pkg->{name}} = 1;
+    push @{$provides{$_}}, $pkg->{name} foreach @{$pkg->{provides} || []};
 }
 
-!$m{$_} and print "$_\n" foreach sort keys %l;
-
-if ($show_unknown) {
-    print "\n";
-    print "$_\n" foreach sort keys %m;
+foreach my $pkg (@packages) {
+    delete @l{grep { $_ ne $pkg->{name} } @{$provides{$_} || []}} foreach @{$pkg->{requires} || []};
 }
+
+print "$_\n" foreach sort keys %l;
-- 
cgit v1.2.1