From 8959b15ce2aa5e2adbad091a1b0814e170e863cc Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 14 Apr 2000 10:02:53 +0000
Subject: *** empty log message ***

---
 genhdlists | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/genhdlists b/genhdlists
index bb60800..5b1072f 100644
--- a/genhdlists
+++ b/genhdlists
@@ -8,20 +8,22 @@ $root && @ARGV == 0 or die
 ";
 
 $depslist = "$root/Mandrake/base/depslist.ordered";
-$hdlist = "$root/Mandrake/base/hdlist";
-@dirs = glob("$root/Mandrake/RPMS*");
+$hdlists = "$root/Mandrake/base/hdlists";
 
-open F, ">${hdlist}s" or die "unable to open ${hdlist}s";
-foreach my $dir (@dirs) {
-    my $ext = $dir =~ /RPMS(.*)$/ && "$1.cz2";
+open F, $hdlists or die "unable to open $hdlists";
+foreach (<F>) {
+    chomp;
+    s/\s*#.*$//;
+    /^\s*$/ and next;
+    m/^\s*(hdlist\S*\.cz2?)\s+(\S+)\s*(.*)$/ or die "invalid hdlist description \"$_\" in hdlists file";
 
+    my ($hdlist, $dir, $descr) = ($1, $2, $3);
     my $command = "genhdlist_cz2";
     $noclean and $command .= " --noclean";
     -e $depslist and $command .= " --ordered-depslist $depslist";
-    $command .= " -o $hdlist$ext $dir";
+    $command .= " -o $hdlist $root/$dir";
 
     system($command);
-
-    print F `basename $hdlist$ext`;
+    system("touch $root/Mandrake/base/$hdlist");
 }
 close F;
-- 
cgit v1.2.1