[英]VisualSVN server can't recognize Perl in post-commit hook
我已经在本地计算机( Windows 7 Professional-64bit )上安装并设置了VisualSVN Server v3.2.2,并在Perl中编写了post-commit钩子,该钩子基本上应该在每次提交内容时向一个服务器发送一个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。
也许我对这种钩子的处理方法不正确或某件事……有人可以帮助解决这个问题吗?
谢谢
您的 PATH
与运行VisualSVN Server的用户帐户所使用的PATH
。
无论您使用的是哪种SVN服务器和操作系统,都始终指定钩子脚本中所有项目的完整绝对路径。
C:\Perl64\bin\perl myhook.pl %1 %2
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.