summaryrefslogtreecommitdiffstats
path: root/contrib/reorg-tools/movecomponent.pl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/reorg-tools/movecomponent.pl')
-rwxr-xr-xcontrib/reorg-tools/movecomponent.pl176
1 files changed, 58 insertions, 118 deletions
diff --git a/contrib/reorg-tools/movecomponent.pl b/contrib/reorg-tools/movecomponent.pl
index 162942627..bdbfdc976 100755
--- a/contrib/reorg-tools/movecomponent.pl
+++ b/contrib/reorg-tools/movecomponent.pl
@@ -1,46 +1,29 @@
#!/usr/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (the "License"); you may not use this file
-# except in compliance with the License. You may obtain a copy of
-# the License at http://www.mozilla.org/MPL/
-#
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-#
-# The Original Code is the Bugzilla Bug Tracking System.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are
-# Copyright (C) 1998 Netscape Communications Corporation. All
-# Rights Reserved.
-#
-# Contributor(s): Gervase Markham <gerv@gerv.net>
-
-# See also https://bugzilla.mozilla.org/show_bug.cgi?id=119569
+# 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 strict;
-use Cwd 'abs_path';
-use File::Basename;
-BEGIN {
- my $root = abs_path(dirname(__FILE__) . '/../..');
- chdir($root);
-}
-use lib qw(. lib);
+use FindBin '$RealBin';
+use lib "$RealBin/../..", "$RealBin/../../lib";
use Bugzilla;
+use Bugzilla::Component;
use Bugzilla::Constants;
+use Bugzilla::Field;
use Bugzilla::Hook;
+use Bugzilla::Product;
use Bugzilla::Util;
-sub usage() {
- print <<USAGE;
-Usage: movecomponent.pl <oldproduct> <newproduct> <component> <doit>
+Bugzilla->usage_mode(USAGE_MODE_CMDLINE);
+
+if (scalar @ARGV < 3) {
+ die <<USAGE;
+Usage: movecomponent.pl <oldproduct> <newproduct> <component>
E.g.: movecomponent.pl ReplicationEngine FoodReplicator SeaMonkey
will move the component "SeaMonkey" from the product "ReplicationEngine"
@@ -49,71 +32,26 @@ to the product "FoodReplicator".
Important: You must make sure the milestones and versions of the bugs in the
component are available in the new product. See syncmsandversions.pl.
-Pass in a true value for "doit" to make the database changes permament.
USAGE
-
- exit(1);
-}
-
-#############################################################################
-# MAIN CODE
-#############################################################################
-
-# This is a pure command line script.
-Bugzilla->usage_mode(USAGE_MODE_CMDLINE);
-
-if (scalar @ARGV < 3) {
- usage();
- exit();
}
-my ($oldproduct, $newproduct, $component, $doit) = @ARGV;
+my ($old_product_name, $new_product_name, $component_name) = @ARGV;
+my $old_product = Bugzilla::Product->check({ name => $old_product_name });
+my $new_product = Bugzilla::Product->check({ name => $new_product_name });
+my $component = Bugzilla::Component->check({ product => $old_product, name => $component_name });
+my $field_id = get_field_id('product');
my $dbh = Bugzilla->dbh;
-$dbh->{'AutoCommit'} = 0 unless $doit; # Turn off autocommit by default
-
-# Find product IDs
-my $oldprodid = $dbh->selectrow_array("SELECT id FROM products WHERE name = ?",
- undef, $oldproduct);
-if (!$oldprodid) {
- print "Can't find product ID for '$oldproduct'.\n";
- exit(1);
-}
-
-my $newprodid = $dbh->selectrow_array("SELECT id FROM products WHERE name = ?",
- undef, $newproduct);
-if (!$newprodid) {
- print "Can't find product ID for '$newproduct'.\n";
- exit(1);
-}
-
-# Find component ID
-my $compid = $dbh->selectrow_array("SELECT id FROM components
- WHERE name = ? AND product_id = ?",
- undef, $component, $oldprodid);
-if (!$compid) {
- print "Can't find component ID for '$component' in product " .
- "'$oldproduct'.\n";
- exit(1);
-}
-
-my $fieldid = $dbh->selectrow_array("SELECT id FROM fielddefs
- WHERE name = 'product'");
-if (!$fieldid) {
- print "Can't find field ID for 'product' field!\n";
- exit(1);
-}
-
# check versions
my @missing_versions;
my $ra_versions = $dbh->selectcol_arrayref(
"SELECT DISTINCT version FROM bugs WHERE component_id = ?",
- undef, $compid);
+ undef, $component->id);
foreach my $version (@$ra_versions) {
my $has_version = $dbh->selectrow_array(
"SELECT 1 FROM versions WHERE product_id = ? AND value = ?",
- undef, $newprodid, $version);
+ undef, $new_product->id, $version);
push @missing_versions, $version unless $has_version;
}
@@ -121,85 +59,87 @@ foreach my $version (@$ra_versions) {
my @missing_milestones;
my $ra_milestones = $dbh->selectcol_arrayref(
"SELECT DISTINCT target_milestone FROM bugs WHERE component_id = ?",
- undef, $compid);
+ undef, $component->id);
foreach my $milestone (@$ra_milestones) {
my $has_milestone = $dbh->selectrow_array(
"SELECT 1 FROM milestones WHERE product_id=? AND value=?",
- undef, $newprodid, $milestone);
+ undef, $new_product->id, $milestone);
push @missing_milestones, $milestone unless $has_milestone;
}
my $missing_error = '';
if (@missing_versions) {
- $missing_error .= "'$newproduct' is missing the following version(s):\n " .
+ $missing_error .= "'$new_product_name' is missing the following version(s):\n " .
join("\n ", @missing_versions) . "\n";
}
if (@missing_milestones) {
- $missing_error .= "'$newproduct' is missing the following milestone(s):\n " .
+ $missing_error .= "'$new_product_name' is missing the following milestone(s):\n " .
join("\n ", @missing_milestones) . "\n";
}
die $missing_error if $missing_error;
# confirmation
print <<EOF;
-About to move the component '$component'
-From '$oldproduct'
-To '$newproduct'
+About to move the component '$component_name'
+From '$old_product_name'
+To '$new_product_name'
Press <Ctrl-C> to stop or <Enter> to continue...
EOF
getc();
-print "Moving '$component' from '$oldproduct' to '$newproduct'...\n\n";
-$dbh->bz_start_transaction() if $doit;
+print "Moving '$component_name' from '$old_product_name' to '$new_product_name'...\n\n";
+$dbh->bz_start_transaction();
my $ra_ids = $dbh->selectcol_arrayref(
"SELECT bug_id FROM bugs WHERE product_id=? AND component_id=?",
- undef, $oldprodid, $compid);
+ undef, $old_product->id, $component->id);
# Bugs table
-$dbh->do("UPDATE bugs SET product_id = ? WHERE component_id = ?",
+$dbh->do("UPDATE bugs SET product_id = ? WHERE component_id = ?",
undef,
- ($newprodid, $compid));
+ ($new_product->id, $component->id));
# Flags tables
-$dbh->do("UPDATE flaginclusions SET product_id = ? WHERE component_id = ?",
+$dbh->do("UPDATE flaginclusions SET product_id = ? WHERE component_id = ?",
undef,
- ($newprodid, $compid));
+ ($new_product->id, $component->id));
-$dbh->do("UPDATE flagexclusions SET product_id = ? WHERE component_id = ?",
+$dbh->do("UPDATE flagexclusions SET product_id = ? WHERE component_id = ?",
undef,
- ($newprodid, $compid));
+ ($new_product->id, $component->id));
# Components
-$dbh->do("UPDATE components SET product_id = ? WHERE id = ?",
+$dbh->do("UPDATE components SET product_id = ? WHERE id = ?",
undef,
- ($newprodid, $compid));
+ ($new_product->id, $component->id));
+
+Bugzilla::Hook::process('reorg_move_component', {
+ old_product => $old_product,
+ new_product => $new_product,
+ component => $component,
+} );
# Mark bugs as touched
-$dbh->do("UPDATE bugs SET delta_ts = NOW()
- WHERE component_id = ?", undef, $compid);
-$dbh->do("UPDATE bugs SET lastdiffed = NOW()
- WHERE component_id = ?", undef, $compid);
+$dbh->do("UPDATE bugs SET delta_ts = NOW()
+ WHERE component_id = ?", undef, $component->id);
+$dbh->do("UPDATE bugs SET lastdiffed = NOW()
+ WHERE component_id = ?", undef, $component->id);
# Update bugs_activity
my $userid = 1; # nobody@mozilla.org
$dbh->do("INSERT INTO bugs_activity(bug_id, who, bug_when, fieldid, removed,
- added)
- SELECT bug_id, ?, delta_ts, ?, ?, ?
+ added)
+ SELECT bug_id, ?, delta_ts, ?, ?, ?
FROM bugs WHERE component_id = ?",
undef,
- ($userid, $fieldid, $oldproduct, $newproduct, $compid));
+ ($userid, $field_id, $old_product_name, $new_product_name, $component->id));
-Bugzilla::Hook::process('reorg_move_bugs', { bug_ids => $ra_ids } ) if $doit;
-
-if ($doit) {
- $dbh->bz_commit_transaction();
-
- # It's complex to determine which items now need to be flushed from memcached.
- # As this is expected to be a rare event, we just flush the entire cache.
- Bugzilla->memcached->clear_all();
-}
+Bugzilla::Hook::process('reorg_move_bugs', { bug_ids => $ra_ids } );
+$dbh->bz_commit_transaction();
+# It's complex to determine which items now need to be flushed from memcached.
+# As this is expected to be a rare event, we just flush the entire cache.
+Bugzilla->memcached->clear_all();