From 5503479a648c8b263fc7c3030e287aabfb15e8a3 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Fri, 16 Jan 2004 00:53:13 +0000
Subject: - add --dest option - fix dir parsing

---
 genhdlist | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/genhdlist b/genhdlist
index 00e4ea1..a9e6a68 100644
--- a/genhdlist
+++ b/genhdlist
@@ -27,7 +27,7 @@ use File::Find;
 use File::Path;
 use Getopt::Long;
 
-my ($noclean, $nooutput, $dontdie, $suffix) = (0, 0, 0, "", ".");
+my ($noclean, $nooutput, $dontdie, $suffix, $dest) = (0, 0, 0, "");
 my $tmpdir = (-d "$ENV{HOME}/tmp" ? "$ENV{HOME}/tmp" : $ENV{TMPDIR} || "/tmp") . "/.build_hdlist";
 
 sub usage {
@@ -36,6 +36,7 @@ Usage: $0 [options] [dir...]
 Options:
   --help              print this message and exit
   --headersdir dir    put temporary files in dir
+  --dest              build index from this dir
   -s                  silent mode
   --nobadrpm          do not stop on bad rpm
   --noclean           keep cache files
@@ -49,6 +50,7 @@ GetOptions(
 	'noclean' => \$noclean,
 	'headersdir=s' => \$tmpdir,
 	'fermetagueule|s' => \$nooutput,
+	'dest=s' => \$dest,
 	'nobadrpm' => \$dontdie,
 	'suffix=s' => \$suffix,
 );
@@ -56,16 +58,17 @@ GetOptions(
 my $urpm = new URPM;
 my $index = "hdlist$suffix.cz";
 my $synthesis = "synthesis.$index";
-my @dir = @ARGV || ("."); 
+my @dir = @ARGV ? @ARGV : ("."); 
 
-#chdir $rootdistrib or die "can't chdir in directory $rootdistrib";
+grep { m!^/! } @dir and die "Directory path to parse should be relative";
+
+$dest and chdir $dest or die "can't chdir in directory $dest";
 rmtree($tmpdir) unless $noclean;
 mkpath($tmpdir);
 
 my @rpms;
 sub wanted {
     	if (-f $_ && $_ =~ /^.*\.rpm$/ ) {
-		#print "$File::Find::name\n" unless $nooutput;
         	push(@rpms, $File::Find::name);
     	}
 }
@@ -73,6 +76,7 @@ sub wanted {
 # get rpm list
 open(LIST, "> list$suffix") or die "can't create list file: $!";
 foreach my $dir (@dir) {
+	print "parsing $dir\n" unless $nooutput;
 	@rpms=();
 	File::Find::find({wanted => \&wanted}, $dir);
 	$urpm->parse_rpms_build_headers(dir  => $tmpdir,
-- 
cgit v1.2.1