From 3fa90d9f76fbfb84f46aa95a234c61bceb08f096 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Thu, 4 Mar 2004 11:26:05 +0000
Subject: indetation, P. Terjan patch

---
 rpm-find-leaves | 64 +++++++++++++++++++++++++++++++++++++++++----------------
 1 file changed, 46 insertions(+), 18 deletions(-)

(limited to 'rpm-find-leaves')

diff --git a/rpm-find-leaves b/rpm-find-leaves
index 3ab5a470..46741906 100644
--- a/rpm-find-leaves
+++ b/rpm-find-leaves
@@ -1,25 +1,53 @@
 #!/usr/bin/perl
+use urpm;
 
-@ARGV and die "usage: rpm-find-leaves\n";
+sub main {
+	
+	my %options;
+	$options{restrict_group} = 0;
+	$options{group} = 'System/Libraries';
+	
+	my $usage = N("usage: %s [options]
+where [options] are from
+", $0) . N("   -h|--help      - print this help message.
+") . N("   -g [group]     - restrict results to given group.
+") . N("                    defaults is %s.
+", $options{group});
 
-use URPM;
-my @packages;
-{
-    my $db = URPM::DB::open or die;
-    $db->traverse(sub {
-	my ($p) = @_;
-	$p->pack_header;
-	push @packages, $p;
-    });
-}
+	my $group;
+	
+	while ($_ = shift @_) {
+		/^-g$/ and do {
+			$options{restrict_group}=1;
+			$group=shift @_;
+			$group and $options{group}=$group;
+			next;
+		};
+		die $usage;
+	}
 
-foreach my $pkg (@packages) {
-    $l{$pkg->name} = 1;
-    push @{$provides{$_}}, $pkg->name foreach $pkg->provides_nosense;
-}
+	
+	my @packages;
+	{
+		my $db = URPM::DB::open or die;
+		$db->traverse(sub {
+			my ($p) = @_;
+			$p->pack_header;
+			push @packages, $p;
+		});
+	}
+
+	foreach my $pkg (@packages) {
+		next if $options{restrict_group} && $pkg->group !~ /$options{group}/i;
+		$l{$pkg->name} = 1;
+		push @{$provides{$_}}, $pkg->name foreach $pkg->provides_nosense;
+	}
+
+	foreach my $pkg (@packages) {
+		delete @l{grep { $_ ne $pkg->name } @{$provides{$_} || []}} foreach $pkg->requires_nosense;
+	}
 
-foreach my $pkg (@packages) {
-    delete @l{grep { $_ ne $pkg->name } @{$provides{$_} || []}} foreach $pkg->requires_nosense;
+	print "$_\n" foreach sort keys %l;
 }
 
-print "$_\n" foreach sort keys %l;
+main(@ARGV);
-- 
cgit v1.2.1