diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-17 10:23:38 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-17 10:23:38 +0000 |
commit | 21140ccc06542c4f5aa0bdd37afd2a69289c7a3e (patch) | |
tree | 7dcdbd3344908b9c044f81196e6980c0cb2c99a6 | |
parent | c7cc777c4cb32bf3d9e1fe1d51f89d24919c5f85 (diff) | |
download | rpmtools-21140ccc06542c4f5aa0bdd37afd2a69289c7a3e.tar rpmtools-21140ccc06542c4f5aa0bdd37afd2a69289c7a3e.tar.gz rpmtools-21140ccc06542c4f5aa0bdd37afd2a69289c7a3e.tar.bz2 rpmtools-21140ccc06542c4f5aa0bdd37afd2a69289c7a3e.tar.xz rpmtools-21140ccc06542c4f5aa0bdd37afd2a69289c7a3e.zip |
More cleanup
-rwxr-xr-x | gendistrib | 18 |
1 files changed, 10 insertions, 8 deletions
@@ -26,11 +26,10 @@ use URPM::Build; use Getopt::Long; my $urpm = new URPM; -my ($noclean, $nohdlists, $nobasefiles, $nooutput, $dontdie, $nochkdep, $rootdistrib, @root, @hdlists) = (0, 0, 0, 0); my $headers_dir = (-d $ENV{TMPDIR} ? $ENV{TMPDIR} : -d "$ENV{HOME}/tmp" ? "$ENV{HOME}/tmp" : "/tmp") . "/.build_hdlist"; sub usage { - print <<EOF; + print <<EOF; Usage: $0 [options] dir dir should be the top level of distro Options: @@ -45,6 +44,7 @@ Options: --noclean keep cache files --provides file path of provides file (default media/media_info/provides) --nomediainfo don't create per-media media_info subdirectories + --nomd5sum don't generate MD5SUM files -s silent mode EOF } @@ -55,18 +55,19 @@ GetOptions( 'help|h' => sub { usage(); exit }, 'compss=s' => \$urpmfiles{compss}, 'depslist=s' => \$urpmfiles{depslist}, - 'distrib=s' => \$rootdistrib, - 'fermetagueule|s' => \$nooutput, + 'distrib=s' => \my $rootdistrib, + 'fermetagueule|s' => \my $nooutput, 'hdlists=s' => \$urpmfiles{hdlists}, 'headersdir=s' => \$headers_dir, - 'nobadrpm' => \$dontdie, - 'nochkdep' => \$nochkdep, - 'noclean' => \$noclean, + 'nobadrpm' => \my $dontdie, + 'nochkdep' => \my $nochkdep, + 'noclean' => \my $noclean, 'provides=s' => \$urpmfiles{provides}, 'nomediainfo' => \my $nomediainfo, + 'nomd5sum' => \my $nomd5sum, ); -@root = grep { $_ } ($rootdistrib, @ARGV); +my @root = grep { $_ } ($rootdistrib, @ARGV); @root > 0 or do { usage(); exit 1 }; @@ -85,6 +86,7 @@ while (my ($k, $v) = each(%default_urpmfiles)) { $urpmfiles{$k} ||= $v; } +my @hdlists; open my $fh, $urpmfiles{hdlists} or die "unable to open $urpmfiles{hdlists}"; foreach (<$fh>) { chomp; |