my @arches = ();
my @distros = ();
my $localrepo = $ENV{HOME} . "/public_html/smock/yum";
+my $dryrun = 0;
+my $keepgoing = 0;
+my $chain = 0;
my $help = 0;
my $man = 0;
"arch=s" => \@arches,
"distro=s" => \@distros,
"localrepo=s" => \$localrepo,
+ "dryrun" => \$dryrun,
+ "keepgoing" => \$keepgoing,
+ "chain" => \$chain,
"help|?" => \$help,
"man" => \$man
) or pod2usage (2);
Local repository. Defaults to C<$HOME/public_html/smock/yum>
+=item B<--dryrun>
+
+Don't run any commands, just print the packages in the order
+in which they must be built.
+
+=item B<--keepgoing>
+
+Don't exit if a package fails, but keep building.
+
+Note that this isn't always safe because new packages may be built
+against older packages, in the case where the older package couldn't
+be rebuilt because of an error.
+
+However, it is very useful.
+
+=item B<--chain>
+
+Don't run any commands, just print the packages in the correct
+format for chain building. See:
+L<http://fedoraproject.org/wiki/Koji/UsingKoji#Chained_builds>
+
=back
=cut
0;
}
-my @names = sort keys %srpms;
-foreach my $name (@names) {
+foreach my $name (keys %srpms) {
my @buildrequires = @{$srpms{$name}->{buildrequires}};
- @buildrequires = grep { $_ = dependency_in ($_, @names) } @buildrequires;
+ @buildrequires =
+ grep { $_ = dependency_in ($_, keys %srpms) } @buildrequires;
$srpms{$name}{buildrequires} = \@buildrequires;
}
-# Now sort the SRPMs into the correct order for building
+# This function takes a list of package names and sorts them into the
+# correct order for building, given the existing %srpms hash
+# containing buildrequires. We use the external 'tsort' program.
+
+sub tsort
+{
+ my @names = @_;
-my ($fh, $filename) = tempfile ();
+ my ($fh, $filename) = tempfile ();
-foreach my $name (@names) {
- my @buildrequires = @{$srpms{$name}->{buildrequires}};
- foreach (@buildrequires) {
- print $fh "$_ $name\n"
+ foreach my $name (@names) {
+ my @buildrequires = @{$srpms{$name}->{buildrequires}};
+ foreach (@buildrequires) {
+ print $fh "$_ $name\n"
+ }
+ # Add a self->self dependency. This ensures that any
+ # packages which don't have or appear as a dependency of
+ # any other package still get built.
+ print $fh "$name $name\n"
}
+ close $fh;
+
+ get_lines "tsort $filename";
}
-close $fh;
-my @buildorder = get_lines "tsort $filename";
+# Sort the initial list of package names.
+
+my @names = sort keys %srpms;
+my @buildorder = tsort (@names);
+
+# With --chain flag we print the packages in groups for chain building.
+
+if ($chain) {
+ my %group = ();
+ my $name;
-#foreach (@buildorder) {
-# print "$_\n";
-#}
+ print 'make chain-build CHAIN="';
+
+ foreach $name (@buildorder) {
+ my @br = @{$srpms{$name}->{buildrequires}};
+
+ # If a BR occurs within the current group, then start the next group.
+ my $occurs = 0;
+ foreach (@br) {
+ if (exists $group{$_}) {
+ $occurs = 1;
+ last;
+ }
+ }
+
+ if ($occurs) {
+ %group = ();
+ print ": ";
+ }
+
+ $group{$name} = 1;
+ print "$name ";
+ }
+ print "\"\n";
+
+ exit 0
+}
+
+# With --dryrun flag we just print the packages in build order then exit.
+
+if ($dryrun) {
+ foreach (@buildorder) {
+ print "$_\n";
+ }
+
+ exit 0
+}
# Now we can build each SRPM.
or die "mkdir $localrepo/scratch: $!\nIf you haven't set up a local repository yet, you must read the README file.\n";
}
-system "rm -f $localrepo/scratch/*";
+system "rm -rf $localrepo/scratch/*";
+
+my @errors = ();
# NB: Need to do the arch/distro in the outer loop to work
# around the caching bug in mock/yum.
print "*** building $name-$version-$release $arch $distro ***\n";
createrepo ($arch, $distro);
- system ("mock -r $distro-$arch --resultdir $localrepo/scratch $srpm_filename") == 0
- or die "Build failed, return code $?\nLeaving the logs in $localrepo/scratch\n";
-
- # Build was a success so move the final RPMs into the
- # mock repo for next time.
- system ("mv $localrepo/scratch/*.src.rpm $localrepo/$distro/src/SRPMS") == 0 or die "mv";
- system ("mv $localrepo/scratch/*.rpm $localrepo/$distro/$arch/RPMS") == 0 or die "mv";
- my_mkdir "$localrepo/$distro/$arch/logs/$name-$version-$release";
- system ("mv $localrepo/scratch/*.log $localrepo/$distro/$arch/logs/$name-$version-$release/") == 0 or die "mv";
- createrepo ($arch, $distro);
+ my $scratchdir = "$localrepo/scratch/$name-$distro-$arch";
+ mkdir $scratchdir;
+
+ if (system ("mock -r $distro-$arch --resultdir $scratchdir $srpm_filename") == 0) {
+ # Build was a success so move the final RPMs into the
+ # mock repo for next time.
+ system ("mv $scratchdir/*.src.rpm $localrepo/$distro/src/SRPMS") == 0 or die "mv";
+ system ("mv $scratchdir/*.rpm $localrepo/$distro/$arch/RPMS") == 0 or die "mv";
+ my_mkdir "$localrepo/$distro/$arch/logs/$name-$version-$release";
+ system ("mv $scratchdir/*.log $localrepo/$distro/$arch/logs/$name-$version-$release/") == 0 or die "mv";
+ system "rm -rf $scratchdir";
+
+ createrepo ($arch, $distro);
+
+ }
+ else {
+ push @errors, "$name-$distro-$arch";
+ print STDERR "Build failed, return code $?\nLeaving the logs in $scratchdir\n";
+ exit 1 unless $keepgoing;
+ }
}
else
{
}
}
}
+
+if (@errors) {
+ print "\n\n\nBuild failed for the following packages:\n";
+ print " $_\n" foreach @errors;
+ exit 1
+}
+
+exit 0