Automating Bugzilla
WWW::Bugzilla
This works, after a fashion. For some things, this module is broken (e.g. bug states doesn't include the additions RH has to bug states), for other bits, there are workarounds.
The main issue is that "goto bug#" form RH has at the top of just about every BZ page. WWW::Bugzilla isn't expecting this, and so tries to submit new/updates via that form, vs the second (proper) form on the page. bz.rh.com doesn't like this very much, for understandable reasons.
The workaround is to set the form name of the underlying WWW::Mechanize directly, before calling commit, e.g.,
$bug->{mech}->form_name('Create');
$bug->commit;
#...
$bug->{mech}->form_name('changeform');
$bug->commit;
SOAP / XMLRPC
While this seems to be a matter of some sort of "dark secret", there are a number of useful calls that can be made via bugzilla's XML-RPC interface. This page will talk about the known methods, and give examples in perl. Examples in other scripting languages are also welcome :)
Connecting via XML-RPC
Easy enough, using the perl module XMLRPC::Lite:
my $proxy = XMLRPC::Lite->proxy('https://bugzilla.redhat.com/bugzilla/xmlrpc.cgi');
You can access the interface by using the above proxy, a la:
my $soapres = $proxy->call( 'bugzilla.addComment', # method name 'perl-Net-CUPS', # bug # or alias $comment, # text for the comment 'me@someplace.com', # userid 'difficult' # password );
However, it's likely I'll be using this enough to wrap it in a Bugzilla::RedHat module or somesuch.
addComment
method name:: bugzilla.addComment
parameters:: bug # or alias
text of the comment
userid
password
optional parameters:: isprivate (flag) (?)
timestamp (?)
worktime (?)
returns:: people emailed, people not emailed
createBug
method name:: bugzilla.createBug
parameters:: bug fields
userid
password
optional parameters:: none
returns:: bug #
"bug fields" parameter
Data is passed to this method as a reference to a hash of key/value pairs. Known keys are listed below, unknown keys appear to be ignored:
product:: e.g. 'Fedora Extras' component:: e.g. 'perl-Foo' dependson:: bugs that block this bug version:: component version, e.g., 'fc6', 'devel' op_sys:: 'Linux', rep_platform:: platform this impacts, typically 'All' bug_severity:: e.g. 'normal', priority:: e.g. 'normal' short_desc:: the summary, e.g. "Won't complile with latest rawhide" comment:: a longer, initial comment bug_file_loc:: the "url" field alias:: an alias for the bug cc:: email addresses to cc assigned_to:: person the bug is assigned to
Usage
my %bug_values = (
product => $test ? 'Bugzilla' : 'Fedora Extras',
component => $test ? 'test' : 'Package Review',
depends_on => $test ? '' : $opts{dependson},
version => 'devel',
op_sys => 'Linux',
rep_platform => 'All',
bug_severity => 'normal',
priority => 'normal',
short_desc => $summary,
comment => $comment,
bug_file_loc => $rpm->url,
alias => $rpm->name,
);
exists $opts{dependson} && ($bug_values{dependson} = $opts{dependson});
<!--# create a bug: %bug_values
-->
my $soapres = $proxy->call('bugzilla.createBug',
\%bug_values,
$ini{bugzilla}{userid},
$ini{bugzilla}{password}
);
die_on_fault($soapres);
my $res = $soapres->result;
my $bug_num = shift @$res;