mini-cross-build.pl

#!/usr/bin/perl
use File::Slurp;
use strict;
use warnings;
my @spark_versions = ("1.4.0", "1.4.1", "1.5.0", "1.5.1", "1.5.2", "1.6.0", "1.6.1", "1.6.2", "1.6.3", "2.0.0", "2.0.1", "2.0.2", "2.1.0", "2.1.1", "2.2.0");
# Backup the build file
`cp build.sbt build.sbt_back`;
# Get the original version
my $input = read_file("build.sbt");
my $original_version;
if ($input =~ /version\s+\:\=\s+\"(.+?)\"/) {
    $original_version = $1;
} else {
    die "Could not extract version";
}
print "Building original version - $original_version";
print `./sbt/sbt clean publishSigned +publishSigned`;
print "Cross building for $original_version";
foreach my $spark_version (@spark_versions) {
    my $target_version = $spark_version."_".$original_version;
    print "New target version ".$target_version;
    my $new_build = $input;
    $new_build =~ s/version\s+\:\=\s+\".+?\"/version := "$target_version"/;
    $new_build =~ s/sparkVersion\s+\:\=\s+\".+?\"/sparkVersion := "$spark_version"/;
    print `git branch -d release-v$target_version`;
    print `git checkout -b release-v$target_version`;
    print "new build file $new_build hit";
    open (OUT, ">build.sbt");
    print OUT $new_build;
    close (OUT);
    print `git commit -am "Make release for $target_version"`;
    print `git push -f --set-upstream origin release-v$target_version`;
    print "building";
    print `./sbt/sbt clean compile package publishSigned || ./sbt/sbt clean publishSigned`;
    print `./sbt/sbt +publishSigned || ./sbt/sbt clean +publishSigned`;
    print "switch back to master";
    print `git checkout master`;
    print "built"
}
print "Press enter once published to maven central";
my $j = <>;
foreach my $spark_version (@spark_versions) {
    my $target_version = $spark_version."_".$original_version;
    print "Publishing new target version ".$target_version;
    my $new_build = $input;
    $new_build =~ s/version\s+\:\=\s+\".+?\"/version := "$target_version"/;
    $new_build =~ s/sparkVersion\s+\:\=\s+\".+?\"/sparkVersion := "$spark_version"/;
    print `git checkout -b release-v$target_version`;
    print "new build file $new_build hit";
    open (OUT, ">build.sbt");
    print OUT $new_build;
    close (OUT);
    print "publishing";
    print `./sbt/sbt clean spPublish`;
    print `./sbt/sbt +spPublish`;
}
`cp build.sbt_back build.sbt`;
`./sbt/sbt spPublish`;
`./sbt/sbt +spPublish`;