diff options
Diffstat (limited to 'scripts/resolve_bugs.pl')
-rwxr-xr-x | scripts/resolve_bugs.pl | 92 |
1 files changed, 92 insertions, 0 deletions
diff --git a/scripts/resolve_bugs.pl b/scripts/resolve_bugs.pl new file mode 100755 index 000000000..5a9199d39 --- /dev/null +++ b/scripts/resolve_bugs.pl @@ -0,0 +1,92 @@ +#!/usr/bin/perl +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# This Source Code Form is "Incompatible With Secondary Licenses", as +# defined by the Mozilla Public License, v. 2.0. + +use 5.10.1; +use strict; +use warnings; +use lib qw(. lib local/lib/perl5); + + +use Bugzilla; +use Bugzilla::Bug; +use Bugzilla::Constants; +use Bugzilla::Group; +use Bugzilla::Search; +use Getopt::Long; + +my ($product, $comment); +my $resolution = 'WONTFIX'; + +Bugzilla->usage_mode(USAGE_MODE_CMDLINE); + +GetOptions( + 'product|p=s' => \$product, + 'resolution|r=s' => \$resolution, + 'comment|m=s' => \$comment, +); + +die "--product (-p) is required!\n" unless $product; +die "--comment (-m) is required!\n" unless $comment; + +my $dbh = Bugzilla->dbh; + +# Make all changes as the automation user +my $auto_user = Bugzilla::User->check({ name => 'automation@bmo.tld' }); +$auto_user->{groups} = [ Bugzilla::Group->get_all ]; +$auto_user->{bless_groups} = [ Bugzilla::Group->get_all ]; +Bugzilla->set_user($auto_user); + +my $search = Bugzilla::Search->new( + fields => ['bug_id'], + params => { resolution => '---', product => $product }, +); +my ($data) = $search->data; + +my $bug_count = @$data; +if ($bug_count == 0) { + warn "There are no bugs to close.\n"; + exit 1; +} + +print STDERR <<EOF; +About to resolve $bug_count bugs as $resolution + +Press <Ctrl-C> to stop or <Enter> to continue... +EOF +getc(); + +my $timestamp = $dbh->selectrow_array('SELECT LOCALTIMESTAMP(0)'); + +$dbh->bz_start_transaction; +foreach my $row (@$data) { + my $bug_id = shift @$row; + warn "Updating bug $bug_id\n"; + my $bug = Bugzilla::Bug->new($bug_id); + $bug->set_bug_status('RESOLVED', { resolution => $resolution }); + $bug->add_comment($comment); + $bug->update($timestamp); + $dbh->do("UPDATE bugs SET lastdiffed = ? WHERE bug_id = ?", + undef, $timestamp, $bug_id); + # make sure memory is cleaned up. + Bugzilla::Hook::process('request_cleanup'); + Bugzilla::Bug->CLEANUP; + Bugzilla->clear_request_cache(except => [qw(user dbh dbh_main dbh_shadow memcached)]); +} +$dbh->bz_commit_transaction; + +Bugzilla->memcached->clear_all(); + +__END__ + +=head1 NAME + +close_bugs_wontfix.pl - close bugs matching query as RESOLVED/WONTFIX. + +=head1 SYNOPSIS + + close_bugs_wontfix.pl |