From 5804b221839844741bf787e065c4db9b2670de95 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 22 Jan 2001 12:53:40 +0000 Subject: modified to use rpmtools module. --- genhdlists | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/genhdlists b/genhdlists index 7c62cfc..a34af88 100644 --- a/genhdlists +++ b/genhdlists @@ -1,7 +1,11 @@ #!/usr/bin/perl -($noclean, @ARGV) = @ARGV if $ARGV[0] eq "--noclean"; -(undef, $root, @ARGV) = @ARGV if $ARGV[0] eq "--distrib"; +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 @@ -10,6 +14,10 @@ $root && @ARGV == 0 or die $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 () { chomp; @@ -18,12 +26,7 @@ foreach () { 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 $root/Mandrake/base/$hdlist $root/$dir"; - system($command); - system("touch $root/Mandrake/base/$hdlist"); + $params->build_hdlist("$root/Mandrake/base/$hdlist", glob("$root/$dir/*.rpm")); } close F; -- cgit v1.2.1