diff options
| -rwxr-xr-x | gendistrib | 139 | ||||
| -rw-r--r-- | genhdlist | 94 |
2 files changed, 166 insertions, 67 deletions
@@ -1,5 +1,9 @@ #!/usr/bin/perl +# +# $Id$ +# + #- Copyright (C) 1999 MandrakeSoft (fpons@mandrakesoft.com) #- #- This program is free software; you can redistribute it and/or modify @@ -19,22 +23,63 @@ use strict; use URPM; use URPM::Build; +use Getopt::Long; my $urpm = new URPM; -my ($noclean, $nohdlists, $nobasefiles, @root, @hdlists) = (0, 0, 0); +my ($noclean, $nohdlists, $nobasefiles, $nooutput, $dontdie, $nochkdep, $rootdistrib, @root, @hdlists) = (0, 0, 0, 0); +my $headers_dir = (-d "$ENV{HOME}/tmp" ? "$ENV{HOME}/tmp" : $ENV{TMPDIR} || "/tmp") . "/.build_hdlist"; + +sub usage { + print <<EOF; +Usage $0 [options] dir [dir...] +First dir should be the top level of distro +Options: + --help print this message and exit + --headersdir dir put temporary files in dir + -s silent mode + --nochkdep do not find missing dependancies + --nobadrpm do not stop on bad rpm + --noclean keep cache files + +EOF +} + +my %urpmfiles; + +GetOptions( + 'help|h' => sub { usage(); exit }, + 'noclean' => \$noclean, + 'distrib=s' => \$rootdistrib, + 'headersdir=s' => \$headers_dir, + 'fermetagueule|s' => \$nooutput, + 'nochkdep' => \$nochkdep, + 'nobadrpm' => \$dontdie, + 'depslist=s' => \$urpmfiles{depslist}, + 'provides=s' => \$urpmfiles{provides}, + 'compss=s' => \$urpmfiles{compss}, + 'hdlists=s' => \$urpmfiles{hdlists}, +); -($noclean, @ARGV) = @ARGV if $ARGV[0] eq "--noclean"; -(undef, @root, @ARGV) = @ARGV if $ARGV[0] eq "--distrib"; +@root = grep { $_ } ($rootdistrib, @ARGV); -@root > 0 && @ARGV == 0 or die "usage: gendistrib [--noclean] --distrib <root distrib> <root_distrib2> ...\n"; +@root > 0 or do { usage(); exit 1 }; my $root = $root[0]; -my ($depslist, $provides, $compss, $hdlists) = ("$root/Mandrake/base/depslist.ordered", - "$root/Mandrake/base/provides", - "$root/Mandrake/base/compss", - "$root/Mandrake/base/hdlists"); -open F, $hdlists or die "unable to open $hdlists"; +my %default_urpmfiles = ( + depslist => "$root/Mandrake/base/depslist.ordered", + provides => "$root/Mandrake/base/provides", + compss => "$root/Mandrake/base/compss", + hdlists => "$root/Mandrake/base/hdlists", + version => "$root/VERSION", + md5sum => "$root/Mandrake/base/MD5SUM", +); + +while (my ($k, $v) = each(%default_urpmfiles)) { + $urpmfiles{$k} ||= $v; +} + +open F, $urpmfiles{hdlists} or die "unable to open $urpmfiles{hdlists}"; foreach (<F>) { chomp; s/\s*#.*$//; @@ -45,7 +90,6 @@ foreach (<F>) { } close F; -my $headers_dir = ($ENV{TMPDIR} || "/tmp") . "/.build_hdlist"; sub clean_cache { system($ENV{LD_LOADER} ? $ENV{LD_LOADER} : @{[]}, "rm", "-rf", $headers_dir) unless $noclean; } @@ -83,33 +127,36 @@ foreach (0..$#hdlists) { } @files or die "unable to find rpm files in $e->{dir}\n"; - print STDERR "parsing rpm files in directory $r/$e->{dir}\n"; - my @headers = $urpm->parse_rpms_build_headers(dir => $headers_dir, rpms => \@files); + print STDERR "parsing rpm files in directory $r/$e->{dir}\n" unless $nooutput; + my @headers = $urpm->parse_rpms_build_headers(dir => $headers_dir, rpms => \@files, + dontdie => $dontdie, silent => $nooutput); $e->{headers} = \@headers; } #- clean everything to start second pass. -print STDERR "clean data for second pass\n"; +print STDERR "clean data for second pass\n" unless $nooutput; $urpm->unresolved_provides_clean; foreach (0..$#hdlists) { my $e = $hdlists[$_]; - print STDERR "parsing headers for $e->{descr}\n"; + print STDERR "parsing headers for $e->{descr}\n" unless $nooutput; my ($start, $end) = $urpm->parse_headers(dir => $headers_dir, - headers => $e->{headers}); + headers => $e->{headers}, + dontdie => $dontdie, + silent => $nooutput); - print STDERR "computing deps\n"; + print STDERR "computing deps\n" unless $nooutput; $urpm->compute_deps; - print STDERR "building hdlist for medium \"$e->{descr}\"\n"; + print STDERR "building hdlist for medium \"$e->{descr}\"\n" unless $nooutput; $urpm->build_hdlist(start => $start, end => $end, dir => $headers_dir, hdlist => $e->{hdlist}, ratio => 9); - print STDERR "building synthesis for medium \"$e->{descr}\n"; + print STDERR "building synthesis for medium \"$e->{descr}\n" unless $nooutput; $urpm->build_synthesis(start => $start, end => $end, synthesis => $e->{synthesis}); @@ -117,36 +164,38 @@ foreach (0..$#hdlists) { clean_cache(); -print STDERR "building base files\n"; -$urpm->build_base_files(depslist => "$root/Mandrake/base/depslist.ordered", - provides => "$root/Mandrake/base/provides", - compss => "$root/Mandrake/base/compss"); +print STDERR "building base files\n" unless $nooutput; +$urpm->build_base_files(depslist => $urpmfiles{depslist}, + provides => $urpmfiles{provides}, + compss => $urpmfiles{compss}); #- safety cleaning -unlink "$root/Mandrake/base/MD5SUM"; +unlink $urpmfiles{md5sum}; #- check if there are NOTFOUND in dependancy, check if they are in other medium, warn the user. -foreach (0 .. $#{$urpm->{depslist}}) { - my $pkg = $urpm->{depslist}[$_]; - - foreach (split " ", $urpm->{deps}[$_]) { - /NOTFOUND_(.*)/ or next; - print STDERR $pkg->fullname . " requires [$1] which\n"; - if ($urpm->{provides}{$1}) { - print STDERR " is available on packages not listed in this medium or previous medium:\n"; - foreach (keys %{$urpm->{provides}{$1}}) { - my $dep_pkg = $urpm->{depslist}[$_]; - print STDERR " " . $dep_pkg->fullname . "\n"; - } - } else { - print STDERR " is not available in any medium listed\n"; - if (/NOTFOUND_(\D*)(\d+[\.\-\d]*)?(.*)?\.so\./) { - my $re = (quotemeta $1) . '(\d+[\.\-\d]*)' . (!$2 && "?") . '\.so\.'; - foreach (keys %{$urpm->{provides}}) { - /$re/ or next; - print STDERR " but a similar provides is available as [$_], need rebuild ?\n"; - } - } - } +if (! $nochkdep) { + foreach (0 .. $#{$urpm->{depslist}}) { + my $pkg = $urpm->{depslist}[$_]; + + foreach (split " ", $urpm->{deps}[$_]) { + /NOTFOUND_(.*)/ or next; + print STDERR $pkg->fullname . " requires [$1] which\n"; + if ($urpm->{provides}{$1}) { + print STDERR " is available on packages not listed in this medium or previous medium:\n"; + foreach (keys %{$urpm->{provides}{$1}}) { + my $dep_pkg = $urpm->{depslist}[$_]; + print STDERR " " . $dep_pkg->fullname . "\n"; + } + } else { + print STDERR " is not available in any medium listed\n"; + if (/NOTFOUND_(\D*)(\d+[\.\-\d]*)?(.*)?\.so\./) { + my $re = (quotemeta $1) . '(\d+[\.\-\d]*)' . (!$2 && "?") . '\.so\.'; + foreach (keys %{$urpm->{provides}}) { + /$re/ or next; + print STDERR " but a similar provides is available as [$_], need rebuild ?\n"; + } + } + } + } } } @@ -1,51 +1,101 @@ #!/usr/bin/perl +# +# $Id$ +# + +#- Copyright (C) 1999 MandrakeSoft +#- +#- This program is free software; you can redistribute it and/or modify +#- it under the terms of the GNU General Public License as published by +#- the Free Software Foundation; either version 2, or (at your option) +#- any later version. +#- +#- This program is distributed in the hope that it will be useful, +#- but WITHOUT ANY WARRANTY; without even the implied warranty of +#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +#- GNU General Public License for more details. +#- +#- You should have received a copy of the GNU General Public License +#- along with this program; if not, write to the Free Software +#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + use strict; use URPM; use URPM::Build; use File::Find; use File::Path; +use Getopt::Long; + +my ($noclean, $nooutput, $dontdie, $suffix) = (0, 0, 0, "", "."); +my $tmpdir = (-d "$ENV{HOME}/tmp" ? "$ENV{HOME}/tmp" : $ENV{TMPDIR} || "/tmp") . "/.build_hdlist"; + +sub usage { + print <<EOF; +Usage: $0 [options] [dir...] +Options: + --help print this message and exit + --headersdir dir put temporary files in dir + -s silent mode + --nobadrpm do not stop on bad rpm + --noclean keep cache files + --suffix SUFFIX put a suffix on hdlist names + +EOF +} + +GetOptions( + 'help|h' => sub { usage(); exit }, + 'noclean' => \$noclean, + 'headersdir=s' => \$tmpdir, + 'fermetagueule|s' => \$nooutput, + 'nobadrpm' => \$dontdie, + 'suffix=s' => \$suffix, +); my $urpm = new URPM; -my $tmpdir = "/tmp/genhdlist"; -my $index="hdlist.cz"; -my $synthesis="synthesis.$index"; -my $dir = @ARGV[0] or die "usage: genhdlist <dir>"; +my $index = "hdlist$suffix.cz"; +my $synthesis = "synthesis.$index"; +my @dir = @ARGV || ("."); -chdir $dir or die "can't chdir in directory $dir"; +#chdir $rootdistrib or die "can't chdir in directory $rootdistrib"; +rmtree($tmpdir) unless $noclean; +mkpath($tmpdir); -# get rpm list my @rpms; -File::Find::find({wanted => \&wanted}, "."); sub wanted { - if (-f $_ && $_ =~ /^.*\.rpm$/ ) { - print "$File::Find::name\n"; - push(@rpms, $File::Find::name); - } + if (-f $_ && $_ =~ /^.*\.rpm$/ ) { + #print "$File::Find::name\n" unless $nooutput; + push(@rpms, $File::Find::name); + } } -if (!@rpms) { - print "no rpms found, aborting\n"; - exit(0); + +# get rpm list +open(LIST, "> list$suffix") or die "can't create list file: $!"; +foreach my $dir (@dir) { + @rpms=(); + File::Find::find({wanted => \&wanted}, $dir); + $urpm->parse_rpms_build_headers(dir => $tmpdir, + rpms => \@rpms, + dontdie => $dontdie, + silent => $nooutput); + foreach my $rpm (@rpms) { print LIST "$rpm\n" }; } +close(LIST); # create index file -mkpath($tmpdir); -$urpm->parse_rpms_build_headers(dir => $tmpdir, - rpms => \@rpms); +# No rpms, exit ! @{$urpm->{depslist}} > 0 or die "nothing read"; + $urpm->build_hdlist(start => 0, end => $#{$urpm->{depslist}}, dir => $tmpdir, hdlist => $index, ratio => 9); -rmtree($tmpdir); +rmtree($tmpdir) unless $noclean; # create synthesis file $urpm->build_synthesis(start => 0, end => $#{$urpm->{depslist}}, synthesis => $synthesis); -# create list file -open(LIST, "> list") or die "can't create list file list: $!"; -foreach my $rpm (@rpms) { print LIST "$rpm\n" }; -close(LIST); |