@lines = `/usr/bin/svnlook dirs-changed $opt{repos_path} -r$opt{revision}`;
chomp(@lines);

my %locations = ();

foreach my $directory (@lines) {
    my @tree = split '/', $directory;

    if (defined $tree[0]) {
        if ($tree[0] eq 'trunk') {
            $locations{'trunk'}++;
        }

        if ($tree[0] eq 'branches') {
            if (defined $tree[1]) {
                $locations{'branch '.$tree[1]}++;
            }
        }

        if ($tree[0] eq 'extensions') {
            if (defined $tree[1]) {
                $locations{'extension '.$tree[1]}++;
            }
        }
    }
}

my $message = sprintf(
    'svn:%u by %s on %s

-----[Subversion commit log]----------------------------------------------------
%s',
    $opt{revision},
    $revision{username},
    join(', ', sort keys %locations),
    $revision{message}
);