perkeep/misc/get_closure.pl

use strict;
use FindBin qw($Bin);
use File::Fetch;
use IO::Uncompress::Unzip qw(unzip $UnzipError) ;

my $closure_sha = "1389e13";
my $closure_git = "https://code.google.com/p/closure-library/";
my $compiler_version = "20121212";
my $compiler_baseurl = "http://closure-compiler.googlecode.com/files/";

sub get_closure_lib {
	my $closure_dir = "$Bin/tmp/closure-lib";
	if (-d $closure_dir) {
		chdir $closure_dir or die;
		my $local_sha = `git rev-parse --short HEAD`;
		chomp($local_sha);
		if ($local_sha ne $closure_sha) {
			system("git", "fetch")
				and die "Failed to git fetch the closure library: $!\n";
			system("git", "reset", "--hard", $closure_sha)
				and die "Failed to git reset the closure library repo: $!\n";
		}
	} else {
		system("git", "clone", $closure_git, $closure_dir)
			and die "Failed to git clone the closure library: $!\n";
		chdir $closure_dir or die;
		system("git", "reset", "--hard", $closure_sha)
			and die "Failed to git reset the closure library repo: $!\n";
	}
}

sub get_closure_compiler {
	# first java check is needed, because the actual call
	# always has a non zero exit status (because running the
	# compiler.jar with --version writes to stderr).
	my $version = `java -version 2>/dev/null`;
	die "The Java Runtime Environment is needed to run the closure compiler.\n" if $?;
	my $closure_compiler_dir = "$Bin/tmp/closure-compiler";
	my $jar = "$closure_compiler_dir/compiler.jar";
	if (-f $jar) {
		my $cmd = join "", "java -jar ", $jar, " --version --help 2>&1";
		my $version = `$cmd`;
		$version =~ s/.*Version: (.*) \(revision.*/$1/s;
		if ($version eq $compiler_version) {
			return;
		}
		unlink $jar or die "Could not unlink $jar: $!";
	}
	printf("Getting closure compiler version %s.\n", $compiler_version);
	unless (-d $closure_compiler_dir) {
		system("mkdir", "-p", $closure_compiler_dir)
			and die "Failed to create $closure_compiler_dir.\n";
	}
	chdir $closure_compiler_dir or die;
	my $compiler_filename = join "", "compiler-", $compiler_version, ".zip";
	my $compiler_url = $compiler_baseurl . $compiler_filename;
	my $ff = File::Fetch->new(uri => $compiler_url);
	my $where = $ff->fetch() or die $ff->error;
	unzip $compiler_filename => "compiler.jar"
		or die "unzip failed: $UnzipError\n";
	unlink $compiler_filename or die "Could not unlink $compiler_filename: $!";
	return;
}

1;