aboutsummaryrefslogtreecommitdiffstats
path: root/genhdlists
diff options
context:
space:
mode:
Diffstat (limited to 'genhdlists')
-rw-r--r--genhdlists32
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;