simcop2387/docker-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 2 Wiki Activity

generate.pl: Support building for multiple Debian releases

Browse source 
This adds generating Dockerfiles for each Perl version on multiple
Debian releases, such as for the current 5.30.x to support both Debian
10 (buster) and 9 (stretch).  We also change the directory structure to
better indicate which Debian release it provides for.
This commit is contained in:
Zak B. Elep 2019-07-18 12:08:11 +08:00
parent 92233bc529
commit 9e34ee448a
1 changed files with 51 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

91
generate.pl
View file

@ -139,58 +139,60 @@ for my $release (@{$config->{releases}}) {
} }
for my $build (keys %builds) { for my $build (keys %builds) {
$release->{url} = $url; $release->{url} = $url;
$release->{"cpanm_dist_$_"} = $cpanm{$_} for keys %cpanm; $release->{"cpanm_dist_$_"} = $cpanm{$_} for keys %cpanm;
$release->{extra_flags} ||= ''; $release->{extra_flags} ||= '';
$release->{debian_release} ||= 'stretch'; $release->{debian_release} ||= ['stretch'];
if ($build =~ /main/) { $release->{image} = $build =~ /main/ ? 'buildpack-deps' : 'debian';
$release->{image} = 'buildpack-deps';
$release->{tag} = $release->{debian_release}; if (ref $release->{debian_release} ne 'ARRAY') {
} $release->{debian_release} = [$release->{debian_release}];
else {
$release->{image} = 'debian';
$release->{tag} = "@{[ $release->{debian_release} ]}-slim";
} }
my $output = $template; for my $debian_release (@{$release->{debian_release}}) {
$output =~ s/\{\{$_\}\}/$release->{$_}/mg
for (qw(version pause extra_flags sha256 type url image tag cpanm_dist_name cpanm_dist_url cpanm_dist_sha256));
$output =~ s/\{\{args\}\}/$builds{$build}/mg;
if ($build =~ /slim/) { my $output = $template;
$output =~ s/\{\{docker_slim_run_install\}\}/$docker_slim_run_install/mg; $output =~ s/\{\{$_\}\}/$release->{$_}/mg
$output =~ s/\{\{docker_slim_run_purge\}\}/$docker_slim_run_purge/mg; for (qw(version pause extra_flags sha256 type url image cpanm_dist_name cpanm_dist_url cpanm_dist_sha256));
} $output =~ s/\{\{args\}\}/$builds{$build}/mg;
else {
$output =~ s/\{\{docker_slim_run_install\}\}/true/mg;
$output =~ s/\{\{docker_slim_run_purge\}\}/true/mg;
}
my $dir = sprintf "%i.%03i.%03i-%s", ($release->{version} =~ /(\d+)\.(\d+)\.(\d+)/), $build; if ($build =~ /slim/) {
$output =~ s/\{\{docker_slim_run_install\}\}/$docker_slim_run_install/mg;
$output =~ s/\{\{docker_slim_run_purge\}\}/$docker_slim_run_purge/mg;
$output =~ s/\{\{tag\}\}/$debian_release-slim/mg;
}
else {
$output =~ s/\{\{docker_slim_run_install\}\}/true/mg;
$output =~ s/\{\{docker_slim_run_purge\}\}/true/mg;
$output =~ s/\{\{tag\}\}/$debian_release/mg;
}
mkdir $dir unless -d $dir; my $dir = sprintf "%i.%03i.%03i-%s-%s", ($release->{version} =~ /(\d+)\.(\d+)\.(\d+)/), $build, $debian_release;
# Set up the generated DevelPatchPerl.patch mkdir $dir unless -d $dir;
{
open my $fh, ">", "$dir/DevelPatchPerl.patch";
print $fh $patch;
}
if (defined $release->{test_parallel} && $release->{test_parallel} eq "no") { # Set up the generated DevelPatchPerl.patch
$output =~ s/\{\{test\}\}/make test_harness/; {
} open my $fh, ">", "$dir/DevelPatchPerl.patch";
elsif (!defined $release->{test_parallel} || $release->{test_parallel} eq "yes") { print $fh $patch;
$output =~ s/\{\{test\}\}/TEST_JOBS=\$(nproc) make test_harness/; }
}
else {
die "test_parallel was provided for $release->{version} but is invalid; should be 'yes' or 'no'\n";
}
open my $dockerfile, ">", "$dir/Dockerfile" or die "Couldn't open $dir/Dockerfile for writing"; if (defined $release->{test_parallel} && $release->{test_parallel} eq "no") {
print $dockerfile $output; $output =~ s/\{\{test\}\}/make test_harness/;
close $dockerfile; }
elsif (!defined $release->{test_parallel} || $release->{test_parallel} eq "yes") {
$output =~ s/\{\{test\}\}/TEST_JOBS=\$(nproc) make test_harness/;
}
else {
die "test_parallel was provided for $release->{version} but is invalid; should be 'yes' or 'no'\n";
}
open my $dockerfile, ">", "$dir/Dockerfile" or die "Couldn't open $dir/Dockerfile for writing";
print $dockerfile $output;
close $dockerfile;
}
} }
} }
@ -237,6 +239,15 @@ The Docker image tag which this Perl would build on, common to both the
L<https://hub.docker.com/_/buildpack-deps|buildpack-deps> and L<https://hub.docker.com/_/buildpack-deps|buildpack-deps> and
L<https://hub.docker.com/_/debian|debian> Docker images. L<https://hub.docker.com/_/debian|debian> Docker images.
This can be a single tag, or a list of tags to generate multiple
Dockerfiles for different Debian versions:
- version: 5.30.0
type: xz
debian_release:
- stretch
- buster
Defaults: C<stretch> for C<main> builds, C<stretch-slim> for C<slim> Defaults: C<stretch> for C<main> builds, C<stretch-slim> for C<slim>
builds. builds.