Annotation of /rpm/urpmi/branches/1/rpm-find-leaves

#!/usr/bin/perl

use strict;

use urpm;
use urpm::msg;
use urpm::orphans;

my %options = (
    restrict_group => 0,
    group => 'System/Libraries',
    root => '',
);

my $usage = N("usage: %s [options]
where [options] are from
", $0) . N("   -h|--help      - print this help message.
") . N("   --root <path>  - use the given root instead of /
") . N("   -g [group]     - restrict results to specified group.
") . N("                    defaults to %s.
", $options{group}) . N("   -f             - output rpm full name (NVRA)
");

my $urpm = urpm->new;

while ($_ = shift) {
    $_ eq '--root' and do {
        my $root = shift;
        $root and urpm::set_files($urpm, $root);
        next;

    };
    $_ eq '-g' and do {
        $options{restrict_group} = 1;
        next if !@ARGV || $ARGV[0] =~ /^-/;
        my $group = shift;
        $options{group} = $group;
        next;
    };
    $_ eq '-f' and do { $options{fullname} = 1; next };
    print $usage; exit 1;
}

my $discard = $options{restrict_group} && sub { $_[0]->group !~ /\Q$options{group}/oi };
my $leaves = urpm::orphans::installed_leaves($urpm, $discard);

my @l = map { $options{fullname} ? scalar $_->fullname : $_->name } @$leaves;
print "$_\n" foreach sort @l;
1	dmorgan	1928	#!/usr/bin/perl
2
3			use strict;
4
5			use urpm;
6			use urpm::msg;
7			use urpm::orphans;
8
9			my %options = (
10			restrict_group => 0,
11			group => 'System/Libraries',
12			root => '',
13			);
14
15			my $usage = N("usage: %s [options]
16			where [options] are from
17			", $0) . N(" -h\|--help - print this help message.
18			") . N(" --root <path> - use the given root instead of /
19			") . N(" -g [group] - restrict results to specified group.
20			") . N(" defaults to %s.
21			", $options{group}) . N(" -f - output rpm full name (NVRA)
22			");
23
24			my $urpm = urpm->new;
25
26			while ($_ = shift) {
27			$_ eq '--root' and do {
28			my $root = shift;
29			$root and urpm::set_files($urpm, $root);
30			next;
31
32			};
33			$_ eq '-g' and do {
34			$options{restrict_group} = 1;
35			next if !@ARGV \|\| $ARGV[0] =~ /^-/;
36			my $group = shift;
37			$options{group} = $group;
38			next;
39			};
40			$_ eq '-f' and do { $options{fullname} = 1; next };
41			print $usage; exit 1;
42			}
43
44			my $discard = $options{restrict_group} && sub { $_[0]->group !~ /\Q$options{group}/oi };
45			my $leaves = urpm::orphans::installed_leaves($urpm, $discard);
46
47			my @l = map { $options{fullname} ? scalar $_->fullname : $_->name } @$leaves;
48			print "$_\n" foreach sort @l;