[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

Unable to execute perl hooks

From: roger mills <rogermillsg_at_gmail.com>
Date: Wed, 28 Oct 2009 09:55:58 -0400


I am new to Subversion so bear with me if this is a stupid question. I am
writing a subversion hook script in perl. The script will check the log
message at commit and get the issue ID (e.g. CNR12345) from the message, if
the issue ID is not found in the log message it will block the commit else
move on and execute some sql query to the issue tracking database. svnlook
fails to get the log message but is successful in getting the author.
use strict;
use warnings;

my ($txn_name, $repo_path) = @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");
print "$committer";
my $commitlog = `$svnlook log $txn_name $repo_path`
    or die("Unable to get log message with svnlook.\n");
print "$commitlog";
my ($cnr_number) = $commitlog =~ /^(CNR[0-9]+)/m
   or die("Enter a valid CNR Number\n");
if ($cnr_number != "")
do blah blah
Can someone tell me what i am doing wrong here



To unsubscribe from this discussion, e-mail: [users-unsubscribe_at_subversion.tigris.org].
Received on 2009-10-28 14:58:08 CET

This is an archived mail posted to the Subversion Users mailing list.