diff options
Diffstat (limited to 'genhdlists')
-rw-r--r-- | genhdlists | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/genhdlists b/genhdlists deleted file mode 100644 index a34af88..0000000 --- a/genhdlists +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl - -use rpmtools; - -$params = new rpmtools; - -($params->{options}{noclean}, @ARGV) = @ARGV if $ARGV[0] eq "--noclean"; -(undef, $root, @ARGV) = @ARGV if $ARGV[0] eq "--distrib"; - -$root && @ARGV == 0 or die -"usage: genhdlists [--noclean] --distrib <root distrib> -"; - -$depslist = "$root/Mandrake/base/depslist.ordered"; -$hdlists = "$root/Mandrake/base/hdlists"; - -open F, $depslist; -$params->read_depslist(\*F); -close F; - -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); - - $params->build_hdlist("$root/Mandrake/base/$hdlist", glob("$root/$dir/*.rpm")); -} -close F; |