From 5f65d578e0d61f6431acae61bb4290d2bb6ec39a Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 25 Aug 2004 02:40:57 +0000 Subject: Add a --root option (by Michael Scherer) --- rpm-find-leaves | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'rpm-find-leaves') diff --git a/rpm-find-leaves b/rpm-find-leaves index 894003b9..58787184 100644 --- a/rpm-find-leaves +++ b/rpm-find-leaves @@ -7,10 +7,12 @@ sub main { my %options; $options{restrict_group} = 0; $options{group} = 'System/Libraries'; + $options{root} = ''; my $usage = N("usage: %s [options] where [options] are from ", $0) . N(" -h|--help - print this help message. +") . N(" --root - use the given root instead of / ") . N(" -g [group] - restrict results to given group. ") . N(" defaults is %s. ", $options{group}); @@ -18,6 +20,12 @@ where [options] are from my $group; while ($_ = shift @_) { + /^--root$/ and do { + $root=shift @_; + $root and $options{root}=$root; + next; + + }; /^-g$/ and do { $options{restrict_group}=1; $group=shift @_; @@ -30,7 +38,7 @@ where [options] are from my @packages; { - my $db = URPM::DB::open or die; + my $db = URPM::DB::open($options{root}) or die; $db->traverse(sub { my ($p) = @_; $p->pack_header; -- cgit v1.2.1