哪个 Perl 模块用于在 Bugzilla 4.0.1 上创建/更新错误？

Question

我有大量来自 Jira 和 Github 的错误，我想将它们转移到 Bugzilla。我可以通过 Net::Github API 通过 xml 和 Github 轻松获取 Jira bug。问题在于在 Bugzilla 上创建错误。我的登录信息 100% 正确，但错误不会提交。

我正在使用 http://search.cpan 中找到的模块.org/~bmc/WWW-Bugzilla-1.5/WWW/Bugzilla.pm

我注意到还有一些其他的 Bugzilla 模块，例如 WWW::Bugzilla3，我认为它是 Bugzilla 的 3.0.0 版本。我是否在 Bugzilla 4.0.1 中使用了错误的版本？

如果我只是使用服务器、电子邮件和密码创建一个 Bugzilla 对象，该对象似乎可以正确登录，但之后无法获取任何产品、组件或版本。

编辑：我决定尝试 Bugzilla3 模块并且它有效。

Answer 1

解决方案是使用 Bugzilla3 模块，但并非它的所有功能都可以 100% 与 Bugzilla 4.0.1 配合使用...它也缺乏更新已提交错误的能力，因此我们只是将所有错误移至新组件，删除了该组件组件，并再次运行脚本进行补偿。

Answer 2

我已经回答了一些可能对另一个问题有帮助的问题：如何在现有 bugzilla 代码中使用 bugzilla API？ 对于我发现的 Google 群组：https://groups.google.com/forum/#!topic/mozilla.support.bugzilla/7KEs5HqUtgo

两个来源都是关于更新现有错误，但我发现如果您查看 Bugzilla 源代码的 bug.pm 文件，您应该能够找到一些如何创建新错误的示例 - 我可以看到您在更新时遇到问题，但能够创建错误使用 BZ3 模块。

---

以下是 svn_bz_append.pl 脚本的摘录 (http://www.telegraphics.com .au/svn/svn_bz/trunk/），我已经修改了它，我用它来更新 svn 提交上的 bugzilla 注释。请注意，我将此脚本与 Bugzilla 安装在同一台计算机上运行，​​因为它使用 Bugzilla 目录中的模块。我已经在 Bugzilla v 4.2.3 上工作了。

我省略了这个脚本的大部分内容，摘录如下：

use strict;
use warnings;

use Bugzilla;
use Bugzilla::Config;
use Bugzilla::Bug;

use Data::Dumper;

... 创建/获取用户 ID 和一些要处理的 bug Id ...

例如：

my $userid = 1;
my @bugs = ( 1, 2, 3 );
my $message = 'Say something here';

... 现在循环 bug id 并添加注释...

foreach my $bugId (@bugs) {

my $user = new Bugzilla::User({ id => $userid}) 
 || ThrowUserError('invalid_username', { id => $userid}); #get the user from bugzilla
print STDERR 'user: '. Dumper($user); #pretty prints the user object

Bugzilla->set_user($user); #this authenticates the user so that you may perform actions on bugs that the user has permissions to.

my $bug = Bugzilla::Bug->check($bugId); #gets the bug
print STDERR 'bug: '. Dumper($bug); #pretty prints the bug object

$bug->add_comment($message); #adds a comment to the bug
$bug->update(); #updated the bug - don't forget to do this!
}

请注意，Dumper 函数仅使用优秀的 Data::Dumper 模块： http: //perldoc.perl.org/Data/Dumper.html - 除了调试之外，您不需要它们。

登录信息来自： 在脚本中使用 Bugzilla Perl API 时如何进行身份验证？