use strict; 
use warnings;
use POSIX qw( strftime ); 

## Global variable 
my $svnlook = "D:\\Subversion\\bin\\svnlook.exe"; 
my $repo_path = $ARGV[ 0 ];
my $txn_name = $ARGV[ 1 ];
my $argNum = 0;
my $committer = "";
my $commitlog = "";
my @log = "";
my $cnr_number = "";
# get committer
$committer = "$svnlook author $txn_name $repo_path" or die "Unable to get committer with svnlook.\n";
chomp($committer);
#Get commit log
$commitlog = "$svnlook log $txn_name $repo_path" or die "Unable to get log message with svnlook.\n";
chomp($commitlog);
# get CNR number
@log = ($commitlog);
    $cnr_number = (grep(/"^CNR[0-9]"/, @log));
if ($cnr_number eq "")
{  
print "You must enter a valid CNR";  
exit1;  
}