1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
#!/usr/bin/perl -w
use strict;
use Cwd 'abs_path';
use File::Basename;
BEGIN {
my $root = abs_path(dirname(__FILE__) . '/../..');
chdir($root);
}
use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Util;
Bugzilla->usage_mode(USAGE_MODE_CMDLINE);
if (scalar @ARGV < 4) {
die <<USAGE;
Usage: movebugs.pl <old-product> <old-component> <new-product> <new-component>
Eg. movebugs.pl mozilla.org bmo bugzilla.mozilla.org admin
Will move all bugs in the mozilla.org:bmo component to the
bugzilla.mozilla.org:admin component.
The new product must have matching versions and milestones from the old
product.
USAGE
}
my ($old_product, $old_component, $new_product, $new_component) = @ARGV;
my $dbh = Bugzilla->dbh;
my $old_product_id = $dbh->selectrow_array(
"SELECT id FROM products WHERE name=?",
undef, $old_product);
$old_product_id
or die "Can't find product ID for '$old_product'.\n";
my $old_component_id = $dbh->selectrow_array(
"SELECT id FROM components WHERE name=? AND product_id=?",
undef, $old_component, $old_product_id);
$old_component_id
or die "Can't find component ID for '$old_component'.\n";
my $new_product_id = $dbh->selectrow_array(
"SELECT id FROM products WHERE name=?",
undef, $new_product);
$new_product_id
or die "Can't find product ID for '$new_product'.\n";
my $new_component_id = $dbh->selectrow_array(
"SELECT id FROM components WHERE name=? AND product_id=?",
undef, $new_component, $new_product_id);
$new_component_id
or die "Can't find component ID for '$new_component'.\n";
my $product_field_id = $dbh->selectrow_array(
"SELECT id FROM fielddefs WHERE name = 'product'");
$product_field_id
or die "Can't find field ID for 'product' field\n";
my $component_field_id = $dbh->selectrow_array(
"SELECT id FROM fielddefs WHERE name = 'component'");
$component_field_id
or die "Can't find field ID for 'component' field\n";
my $user_id = $dbh->selectrow_array(
"SELECT userid FROM profiles WHERE login_name='nobody\@mozilla.org'");
$user_id
or die "Can't find user ID for 'nobody\@mozilla.org'\n";
$dbh->bz_start_transaction();
# build list of bugs
my $ra_ids = $dbh->selectcol_arrayref(
"SELECT bug_id FROM bugs WHERE product_id=? AND component_id=?",
undef, $old_product_id, $old_component_id);
my $bug_count = scalar @$ra_ids;
$bug_count
or die "No bugs were found in '$old_component'\n";
my $where_sql = 'bug_id IN (' . join(',', @$ra_ids) . ')';
# check versions
my @missing_versions;
my $ra_versions = $dbh->selectcol_arrayref(
"SELECT DISTINCT version FROM bugs WHERE $where_sql");
foreach my $version (@$ra_versions) {
my $has_version = $dbh->selectrow_array(
"SELECT 1 FROM versions WHERE product_id=? AND value=?",
undef, $new_product_id, $version);
push @missing_versions, $version unless $has_version;
}
# check milestones
my @missing_milestones;
my $ra_milestones = $dbh->selectcol_arrayref(
"SELECT DISTINCT target_milestone FROM bugs WHERE $where_sql");
foreach my $milestone (@$ra_milestones) {
my $has_milestone = $dbh->selectrow_array(
"SELECT 1 FROM milestones WHERE product_id=? AND value=?",
undef, $new_product_id, $milestone);
push @missing_milestones, $milestone unless $has_milestone;
}
my $missing_error = '';
if (@missing_versions) {
$missing_error .= "'$new_product' is missing the following version(s):\n " .
join("\n ", @missing_versions) . "\n";
}
if (@missing_milestones) {
$missing_error .= "'$new_product' is missing the following milestone(s):\n " .
join("\n ", @missing_milestones) . "\n";
}
die $missing_error if $missing_error;
# confirmation
print <<EOF;
About to move $bug_count bugs
From '$old_product' : '$old_component'
To '$new_product' : '$new_component'
Press <Ctrl-C> to stop or <Enter> to continue...
EOF
getc();
print "Moving $bug_count bugs from $old_product:$old_component to $new_product:$new_component\n";
# update bugs
$dbh->do(
"UPDATE bugs SET product_id=?, component_id=? WHERE $where_sql",
undef, $new_product_id, $new_component_id);
# touch bugs
$dbh->do("UPDATE bugs SET delta_ts=NOW() WHERE $where_sql");
$dbh->do("UPDATE bugs SET lastdiffed=NOW() WHERE $where_sql");
# update bugs_activity
$dbh->do(
"INSERT INTO bugs_activity(bug_id, who, bug_when, fieldid, removed, added)
SELECT bug_id, ?, delta_ts, ?, ?, ? FROM bugs WHERE $where_sql",
undef,
$user_id, $product_field_id, $old_product, $new_product);
$dbh->do(
"INSERT INTO bugs_activity(bug_id, who, bug_when, fieldid, removed, added)
SELECT bug_id, ?, delta_ts, ?, ?, ? FROM bugs WHERE $where_sql",
undef,
$user_id, $component_field_id, $old_component, $new_component);
$dbh->bz_commit_transaction();
|
