use strict;
use warnings;

my ($repo_path, $txn_name) = @ARGV;

my $svnlook = "D:\\Subversion\\bin\\svnlook.exe"; 

my $committer = `$svnlook author $txn_name $repo_path`
    or die("Unable to get committer with svnlook.\n");
chomp($committer);

my $commitlog = `$svnlook log $txn_name $repo_path`
    or die("Unable to get log message with svnlook.\n");

my ($cnr_number) = $commitlog =~ /^(CNR[0-9]+)/m
    or die("You must enter a valid CNR\n");