11 |
# Request Tracker |
# Request Tracker |
12 |
my ( $server, $username, $password ) = ( 'https://bugs.example.com/rt', 'rtuser', 'rtpasswd' ); |
my ( $server, $username, $password ) = ( 'https://bugs.example.com/rt', 'rtuser', 'rtpasswd' ); |
13 |
# patternt to recognize RT references in commits log or diff |
# patternt to recognize RT references in commits log or diff |
14 |
my $rt_re = qr/rt\s*#?\s*(\d+)/i; |
my $rt_re = qr/\brt\s*#?\s*(\d+)\b/i; |
15 |
my $svnweb_fmt = 'http://svn.example.com/svnweb/index.cgi/%s/revision/?rev=%d'; |
my $svnweb_fmt = 'http://svn.example.com/svnweb/index.cgi/%s/revision/?rev=%d'; |
16 |
|
|
17 |
die "usage: $0 repo rev\n" unless @ARGV; |
die "usage: $0 repo rev\n" unless @ARGV; |