From 8ec8da0491ad89604700b3e29a227966f6d84ba1 Mon Sep 17 00:00:00 2001 From: Perl Tidy Date: Wed, 5 Dec 2018 15:38:52 -0500 Subject: no bug - reformat all the code using the new perltidy rules --- scripts/security_remove.pl | 117 ++++++++++++++++++++++----------------------- 1 file changed, 57 insertions(+), 60 deletions(-) (limited to 'scripts/security_remove.pl') 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 < 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 <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(); -- cgit v1.2.3-24-g4f1b