#!/usr/bin/perl
# Work out paths in a subversion repository for branches or tags of the
# given directory. Works on current directory by default, or it can be given
# a path.

my $wanted=shift;

# Get the svn url of the current directory.
my $url = `svn info @ARGV| grep -i ^URL: | cut -d ' ' -f 2`;
if (! length $url) {
	die "cannot get url";
}

if (length $wanted) {
	# Now jut substitute into it.
	$url=~s!/(?:trunk|branches|tags|upstream)($|/)!/$wanted$1!;
}
print $url;