VisualSVN服务器无法在post-commit钩子中识别Perl

时间:2015-03-13 11:07:07

标签: perl svn visualsvn-server post-commit-hook

我在本地计算机上安装并设置了VisualSVN Server v3.2.2( Windows 7 Professional - 64位),我在Perl中编写了post-commit hook,基本上应该发送一个HTTP POST请求每次提交某事时都要到某个服务器。 我已经通过cmd测试了我的Perl脚本,并且我得到了有效的响应,但是当我使用TortoiseSVN客户端提交一些东西时,我得到了错误

Error post-commit hook failed (exit code 1) with output: 
'perl' is not recognized as an internal or external command, 
operable program or batch file.

这是我的perl脚本:

$svnlook = '"C:\Program Files\VisualSVN Server\bin\svnlook.exe"';

$repos = $ARGV[0];
$txn = $ARGV[1];

print STDOUT "message sent " . $repos . " " . $txn;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $server_endpoint = "http://jsonplaceholder.typicode.com/posts";

# set custom HTTP request header fields
my $req = HTTP::Request->new(POST => $server_endpoint);
$req->header('content-type' => 'application/json');

# add POST data to HTTP request body
my $post_data = '{ "repos":"' . $repos . '", "txn":"' . $txn  . '"}';
$req->content($post_data);

my $resp = $ua->request($req);
if ($resp->is_success) {
    my $message = $resp->decoded_content;
    print "Received reply: $message\n";
}
else {
    print "HTTP POST error code: ", $resp->code, "\n";
    print "HTTP POST error message: ", $resp->message, "\n";
}


exit(0);

和我的提交后批处理文件:

perl myhook.pl %1 %2

我曾尝试重新启动svn服务器和我的机器,但没有运气。 另外,当我在cmd中输入path时,我确实在路径C:\Perl64\bin

中看到了perl

也许我对这个钩子的处理方法不对或有什么......任何人都可以帮忙解决这个问题吗?

由于

1 个答案:

答案 0 :(得分:4)

您的 PATH与运行VisualSVN服务器的用户帐户不同PATH

始终指定钩子脚本中所有项目的完整绝对路径,无论您使用的SVN服务器和操作系统是什么。

C:\Perl64\bin\perl myhook.pl %1 %2