make_release.pl

#!/usr/bin/perl

#############################################################################
# This is the release automation script, it will change current extension   #
# version, create release builds and commit it all into Mercurial. Usually  #
# you just want to create a build - use make_devbuild.pl for this.          #
#############################################################################

use strict;

die "Version number not specified" unless @ARGV;

my $version = $ARGV[0];
$version =~ s/[^\w\.]//gs;

open(VERSION, ">version");
print VERSION $ARGV[0];
close(VERSION);

@ARGV = ("../downloads/autoproxy-$version.xpi");
do './create_xpi.pl';

opendir(LOCALES, "chrome/locale");
my @locales = grep {!/[^\w\-]/ && !-e("chrome/locale/$_/.incomplete")} readdir(LOCALES);
closedir(LOCALES);

# Create new single-locale builds
for my $locale (@locales)
{
  @ARGV = ("../downloads/autoproxy-$version-$locale.xpi", $locale);
  do './create_xpi.pl';
}

chdir('..');
system("hg add downloads/autoproxy-$version.xpi");
system(qq(hg commit -m "Releasing AutoProxy $version" downloads src));

my $branch = $version;
$branch =~ s/\./_/g;
$branch = "AutoProxy_".$branch."_RELEASE";
system(qq(hg tag $branch));

system(qq(hg push));