summaryrefslogtreecommitdiffstats
path: root/scripts/security_remove.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/security_remove.pl')
-rwxr-xr-xscripts/security_remove.pl117
1 files changed, 57 insertions, 60 deletions
diff --git a/scripts/security_remove.pl b/scripts/security_remove.pl
index dc0847e3c..1187e1032 100755
--- a/scripts/security_remove.pl
+++ b/scripts/security_remove.pl
@@ -12,8 +12,6 @@ use warnings;
use lib qw(. lib local/lib/perl5);
-
-
use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Field;
@@ -27,7 +25,7 @@ BEGIN { Bugzilla->extensions(); }
Bugzilla->usage_mode(USAGE_MODE_CMDLINE);
if (scalar @ARGV < 1) {
- die <<USAGE;
+ die <<USAGE;
Usage: security_remove.pl <user>
E.g.: security_remove.pl foo\@bar.com
@@ -49,57 +47,53 @@ USAGE
my ($login_name) = @ARGV;
# Load nobody user and set as current
-my $auto_user = Bugzilla::User->check({ name => 'automation@bmo.tld' });
+my $auto_user = Bugzilla::User->check({name => 'automation@bmo.tld'});
Bugzilla->set_user($auto_user);
# Check target user
-my $target_user = Bugzilla::User->check({ name => $login_name });
+my $target_user = Bugzilla::User->check({name => $login_name});
-my $dbh = Bugzilla->dbh;
+my $dbh = Bugzilla->dbh;
my $timestamp = $dbh->selectrow_array('SELECT LOCALTIMESTAMP(0)');
# Gather bug ids
my $reporter_bugs = $dbh->selectcol_arrayref(
- q{SELECT DISTINCT bugs.bug_id
+ q{SELECT DISTINCT bugs.bug_id
FROM bugs, bug_group_map
WHERE bugs.bug_id = bug_group_map.bug_id
AND bugs.reporter_accessible = 1
- AND bugs.reporter = ?},
- undef, $target_user->id) || [];
+ AND bugs.reporter = ?}, undef, $target_user->id
+) || [];
my $assignee_bugs = $dbh->selectcol_arrayref(
- q{SELECT DISTINCT bugs.bug_id
+ q{SELECT DISTINCT bugs.bug_id
FROM bugs, bug_group_map
WHERE bugs.bug_id = bug_group_map.bug_id
- AND bugs.assigned_to = ?},
- undef, $target_user->id) || [];
+ AND bugs.assigned_to = ?}, undef, $target_user->id
+) || [];
my $qa_bugs = $dbh->selectcol_arrayref(
- q{SELECT DISTINCT bugs.bug_id
+ q{SELECT DISTINCT bugs.bug_id
FROM bugs, bug_group_map
WHERE bugs.bug_id = bug_group_map.bug_id
- AND bugs.qa_contact = ?},
- undef, $target_user->id) || [];
+ AND bugs.qa_contact = ?}, undef, $target_user->id
+) || [];
my $cc_bugs = $dbh->selectcol_arrayref(
- q{SELECT DISTINCT cc.bug_id
+ q{SELECT DISTINCT cc.bug_id
FROM cc, bug_group_map
WHERE cc.bug_id = bug_group_map.bug_id
- AND cc.who = ?},
- undef, $target_user->id) || [];
+ AND cc.who = ?}, undef, $target_user->id
+) || [];
my $reporter_count = scalar @$reporter_bugs;
my $assignee_count = scalar @$assignee_bugs;
my $qa_count = scalar @$qa_bugs;
my $cc_count = scalar @$cc_bugs;
-if (!$reporter_count
- && !$assignee_count
- && !$qa_count
- && !$cc_count)
-{
- warn "There are no bugs to update.\n";
- exit 1;
+if (!$reporter_count && !$assignee_count && !$qa_count && !$cc_count) {
+ warn "There are no bugs to update.\n";
+ exit 1;
}
warn <<EOF;
@@ -119,56 +113,59 @@ $dbh->bz_start_transaction;
# Reporter - set reporter_accessible to false
my $field_id = get_field_id('reporter_accessible');
foreach my $bug_id (@$reporter_bugs) {
- warn "Updating bug $bug_id\n";
- $dbh->do(
- q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
- VALUES (?, ?, ?, ?, ?, ?)},
- undef, $bug_id, $auto_user->id, $timestamp, $field_id, 1, 0);
- $dbh->do(
- q{UPDATE bugs SET reporter_accessible = 0, delta_ts = ?, lastdiffed = ?
- WHERE bug_id = ?},
- undef, $timestamp, $timestamp, $bug_id);
+ warn "Updating bug $bug_id\n";
+ $dbh->do(
+ q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
+ VALUES (?, ?, ?, ?, ?, ?)}, undef, $bug_id, $auto_user->id, $timestamp,
+ $field_id, 1, 0
+ );
+ $dbh->do(
+ q{UPDATE bugs SET reporter_accessible = 0, delta_ts = ?, lastdiffed = ?
+ WHERE bug_id = ?}, undef, $timestamp, $timestamp, $bug_id
+ );
}
# Assignee
$field_id = get_field_id('assigned_to');
foreach my $bug_id (@$assignee_bugs) {
- warn "Updating bug $bug_id\n";
- $dbh->do(
- q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
- VALUES (?, ?, ?, ?, ?, ?)},
- undef, $bug_id, $auto_user->id, $timestamp, $field_id,
- $target_user->login, $auto_user->login);
- $dbh->do(
- q{UPDATE bugs SET assigned_to = ?, delta_ts = ?, lastdiffed = ?
- WHERE bug_id = ?},
- undef, $auto_user->id, $timestamp, $timestamp, $bug_id);
+ warn "Updating bug $bug_id\n";
+ $dbh->do(
+ q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
+ VALUES (?, ?, ?, ?, ?, ?)}, undef, $bug_id, $auto_user->id, $timestamp,
+ $field_id, $target_user->login, $auto_user->login
+ );
+ $dbh->do(
+ q{UPDATE bugs SET assigned_to = ?, delta_ts = ?, lastdiffed = ?
+ WHERE bug_id = ?}, undef, $auto_user->id, $timestamp, $timestamp, $bug_id
+ );
}
# QA Contact
$field_id = get_field_id('qa_contact');
foreach my $bug_id (@$qa_bugs) {
- warn "Updating bug $bug_id\n";
- $dbh->do(
- q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
- VALUES (?, ?, ?, ?, ?, '')},
- undef, $bug_id, $auto_user->id, $timestamp, $field_id, $target_user->login);
- $dbh->do(
- q{UPDATE bugs SET qa_contact = NULL, delta_ts = ?, lastdiffed = ?
- WHERE bug_id = ?},
- undef, $timestamp, $timestamp, $bug_id);
+ warn "Updating bug $bug_id\n";
+ $dbh->do(
+ q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
+ VALUES (?, ?, ?, ?, ?, '')}, undef, $bug_id, $auto_user->id, $timestamp,
+ $field_id, $target_user->login
+ );
+ $dbh->do(
+ q{UPDATE bugs SET qa_contact = NULL, delta_ts = ?, lastdiffed = ?
+ WHERE bug_id = ?}, undef, $timestamp, $timestamp, $bug_id
+ );
}
# CC list
$field_id = get_field_id('cc');
foreach my $bug_id (@$cc_bugs) {
- warn "Updating bug $bug_id\n";
- $dbh->do(
- q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
- VALUES (?, ?, ?, ?, ?, '')},
- undef, $bug_id, $auto_user->id, $timestamp, $field_id, $target_user->login);
- $dbh->do(q{DELETE FROM cc WHERE bug_id = ? AND who = ?},
- undef, $bug_id, $target_user->id);
+ warn "Updating bug $bug_id\n";
+ $dbh->do(
+ q{INSERT INTO bugs_activity (bug_id, who, bug_when, fieldid, removed, added)
+ VALUES (?, ?, ?, ?, ?, '')}, undef, $bug_id, $auto_user->id, $timestamp,
+ $field_id, $target_user->login
+ );
+ $dbh->do(q{DELETE FROM cc WHERE bug_id = ? AND who = ?},
+ undef, $bug_id, $target_user->id);
}
$target_user->clear_last_statistics_ts();
generated by cgit v1.2.3-24-g4f1b (git 2.32.0) at 2024-05-03 09:45:48 +0200