WWW::Bugzilla 1.5

WWW::Bugzilla is a Perl module that provides an API to posting new Bugzilla bugs, as well as updating existing Bugzilla bugs.

SYNOPSIS

 use WWW::Bugzilla;

 # create new bug
 my $bz = WWW::Bugzilla->new( server => 'www.mybugzilla.com',
 email => 'buguser@bug.com',
 password => 'mypassword' );

 # enter info into some fields and save new bug

 # get list of available version choices
 my @versions = $bz->available('version');

 # set version
 $bz->version( $versions[0] );

 # get list of available products
 my @products = $bz->available('product');

 # set product
 $bz->product( $products[0] );

 # get list of components available
 my @components = $bz->available('component');

 # set component
 $bz->component( $components[0] );

 # optionally do the same for platform, os, priority, severity.

 $bz->assigned_to( 'joeschmoe@whatever.com' );
 $bz->summary( $some_text );
 $bz->description( $some_more_text );

 # submit bug, returning new bug number
 my $bug_number = $bz->commit;

 # all of the above could have been done in a much easier
 # way, had we known what values to use. See below:

 my $bz = WWW::Bugzilla->new( server => 'www.mybugzilla.com',
 email => 'buguser@bug.com',
 password => 'mypassword'
 version => 'Alpha',
 product => 'MyProduct',
 component => 'API',
 assigned_to => 'joeschmoe@whatever.com',
 summary => $some_text,
 description => $some_more_text);

 my $bug_number = $bz->commit;

 # Below is an example of how one would update a bug.

 my $bz = WWW::Bugzilla->new( server => 'www.mybugzilla.com',
 email => 'buguser@bug.com',
 password => 'mypassword'
 bug_number => 46 );

 # show me the chosen component
 my $component = $bz->component;

 # change component
 $bz->component( 'Test Failures' );

 $bz->add_cc( 'me@me.org' );

 $bz->add_attachment( filepath => '/home/me/file.txt',
 description => 'description text',
 is_patch => 0,
 comment => 'comment text here' );

 $bz->additional_comments( "comments here");

 # below are examples of changing bug status
 $bz->change_status("assigned");
 $bz->change_status("fixed");
 $bz->change_status("later");
 $bz->mark_as_duplicate("12");
 $bz->reassign("someone@else.com");

 $bz->commit;


Product's homepage

Requirements:

· Perl