--- trunk/svn-rt-comment.pl	2008/10/23 21:45:59	93
+++ trunk/svn-rt-comment.pl	2008/10/24 08:04:54	94
@@ -12,7 +12,7 @@
 my ( $server, $username, $password ) = ( 'https://bugs.example.com/rt', 'rtuser', 'rtpasswd' );
 # patternt to recognize RT references in commits log or diff
 my $rt_re = qr/rt\s*#?\s*(\d+)/i;
-my $svnweb = 'https://svn.example.com/svnweb/index.cgi/strix/revision/?rev=';
+my $svnweb_fmt = 'http://svn.example.com/svnweb/index.cgi/%s/revision/?rev=%d';
 
 die "usage: $0 repo rev\n" unless @ARGV;
 
@@ -36,8 +36,11 @@
 	$rt->login( username => $username, password => $password );
 	my $ticket = RT::Client::REST::Ticket->new( rt => $rt, id => $id );
 
+	my $repo_only = $repo;
+	$repo_only =~ s{^.*/([^/]+)$}{$1};
+
 	my $message =
-		$svnweb . $rev . "\n" . 
+		sprintf($svnweb_fmt,$repo_only, $rev) . "\n" . 
 		svnlook('author') . "\t" . svnlook('date') . "\n\n" .
 		svnlook('changed --copy-info') . "\n\n" .
 		$log