#!/usr/bin/perl

if ($#ARGV != 1) {
	print "Usage: branch-release.pl module version\n";
}

$MODULE = $ARGV[0];
$VERSION = $ARGV[1];

$REPO = "http://svn.galago-project.org";
$SOURCE_URI = "$REPO/trunk/$MODULE";

$data = `svn info $SOURCE_URI`;

if ($data =~ /Last Changed Rev: (\d+)/) {
	$rev = $1;
	$msg = "Branch $MODULE $VERSION for release (r$rev)";
	`svn cp $SOURCE_URI $REPO/releases/$MODULE/$VERSION -m "$msg"`;
}