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 --- duplicates.cgi | 264 ++++++++++++++++++++++++++++++--------------------------- 1 file changed, 141 insertions(+), 123 deletions(-) (limited to 'duplicates.cgi') diff --git a/duplicates.cgi b/duplicates.cgi index 118c1149a..7a778c749 100755 --- a/duplicates.cgi +++ b/duplicates.cgi @@ -21,21 +21,22 @@ use Bugzilla::Field; use Bugzilla::Product; use constant DEFAULTS => { - # We want to show bugs which: - # a) Aren't CLOSED; and - # b) i) Aren't VERIFIED; OR - # ii) Were resolved INVALID/WONTFIX - # - # The rationale behind this is that people will eventually stop - # reporting fixed bugs when they get newer versions of the software, - # but if the bug is determined to be erroneous, people will still - # keep reporting it, so we do need to show it here. - fully_exclude_status => ['CLOSED'], - partly_exclude_status => ['VERIFIED'], - except_resolution => ['INVALID', 'WONTFIX'], - changedsince => 7, - maxrows => 20, - sortby => 'count', + + # We want to show bugs which: + # a) Aren't CLOSED; and + # b) i) Aren't VERIFIED; OR + # ii) Were resolved INVALID/WONTFIX + # + # The rationale behind this is that people will eventually stop + # reporting fixed bugs when they get newer versions of the software, + # but if the bug is determined to be erroneous, people will still + # keep reporting it, so we do need to show it here. + fully_exclude_status => ['CLOSED'], + partly_exclude_status => ['VERIFIED'], + except_resolution => ['INVALID', 'WONTFIX'], + changedsince => 7, + maxrows => 20, + sortby => 'count', }; ############### @@ -48,55 +49,55 @@ use constant DEFAULTS => { # in $count is a duplicate of another bug in $count, we add their counts # together under the target bug. sub add_indirect_dups { - my ($counts, $dups) = @_; + my ($counts, $dups) = @_; - foreach my $add_from (keys %$dups) { - my $add_to = walk_dup_chain($dups, $add_from); - my $add_amount = delete $counts->{$add_from} || 0; - $counts->{$add_to} += $add_amount; - } + foreach my $add_from (keys %$dups) { + my $add_to = walk_dup_chain($dups, $add_from); + my $add_amount = delete $counts->{$add_from} || 0; + $counts->{$add_to} += $add_amount; + } } sub walk_dup_chain { - my ($dups, $from_id) = @_; - my $to_id = $dups->{$from_id}; - my %seen; - while (my $bug_id = $dups->{$to_id}) { - if ($seen{$bug_id}) { - warn "Duplicate loop: $to_id -> $bug_id\n"; - last; - } - $seen{$bug_id} = 1; - $to_id = $bug_id; + my ($dups, $from_id) = @_; + my $to_id = $dups->{$from_id}; + my %seen; + while (my $bug_id = $dups->{$to_id}) { + if ($seen{$bug_id}) { + warn "Duplicate loop: $to_id -> $bug_id\n"; + last; } - # Optimize for future calls to add_indirect_dups. - $dups->{$from_id} = $to_id; - return $to_id; + $seen{$bug_id} = 1; + $to_id = $bug_id; + } + + # Optimize for future calls to add_indirect_dups. + $dups->{$from_id} = $to_id; + return $to_id; } # Get params from URL sub formvalue { - my ($name) = (@_); - my $cgi = Bugzilla->cgi; - if (defined $cgi->param($name)) { - return $cgi->param($name); - } - elsif (exists DEFAULTS->{$name}) { - return ref DEFAULTS->{$name} ? @{ DEFAULTS->{$name} } - : DEFAULTS->{$name}; - } - return undef; + my ($name) = (@_); + my $cgi = Bugzilla->cgi; + if (defined $cgi->param($name)) { + return $cgi->param($name); + } + elsif (exists DEFAULTS->{$name}) { + return ref DEFAULTS->{$name} ? @{DEFAULTS->{$name}} : DEFAULTS->{$name}; + } + return undef; } sub sort_duplicates { - my ($a, $b, $sort_by) = @_; - if ($sort_by eq 'count' or $sort_by eq 'delta') { - return $a->{$sort_by} <=> $b->{$sort_by}; - } - if ($sort_by =~ /^(bug_)?id$/) { - return $a->{'bug'}->$sort_by <=> $b->{'bug'}->$sort_by; - } - return $a->{'bug'}->$sort_by cmp $b->{'bug'}->$sort_by; + my ($a, $b, $sort_by) = @_; + if ($sort_by eq 'count' or $sort_by eq 'delta') { + return $a->{$sort_by} <=> $b->{$sort_by}; + } + if ($sort_by =~ /^(bug_)?id$/) { + return $a->{'bug'}->$sort_by <=> $b->{'bug'}->$sort_by; + } + return $a->{'bug'}->$sort_by cmp $b->{'bug'}->$sort_by; } @@ -104,36 +105,37 @@ sub sort_duplicates { # Main Script # ############### -my $cgi = Bugzilla->cgi; +my $cgi = Bugzilla->cgi; my $template = Bugzilla->template; -my $user = Bugzilla->login(); +my $user = Bugzilla->login(); my $dbh = Bugzilla->switch_to_shadow_db(); my $changedsince = formvalue("changedsince"); -my $maxrows = formvalue("maxrows"); -my $openonly = formvalue("openonly"); -my $sortby = formvalue("sortby"); +my $maxrows = formvalue("maxrows"); +my $openonly = formvalue("openonly"); +my $sortby = formvalue("sortby"); if (!grep(lc($_) eq lc($sortby), qw(count delta id))) { - Bugzilla::Field->check($sortby); + Bugzilla::Field->check($sortby); } my $reverse = formvalue("reverse"); + # Reverse count and delta by default. if (!defined $reverse) { - if ($sortby eq 'count' or $sortby eq 'delta') { - $reverse = 1; - } - else { - $reverse = 0; - } + if ($sortby eq 'count' or $sortby eq 'delta') { + $reverse = 1; + } + else { + $reverse = 0; + } } my @query_products = $cgi->param('product'); -my $sortvisible = formvalue("sortvisible"); +my $sortvisible = formvalue("sortvisible"); my @bugs; if ($sortvisible) { - my @limit_to_ids = (split(/[:,]/, formvalue("bug_id") || '')); - @bugs = @{ Bugzilla::Bug->new_from_list(\@limit_to_ids) }; - @bugs = @{ $user->visible_bugs(\@bugs) }; + my @limit_to_ids = (split(/[:,]/, formvalue("bug_id") || '')); + @bugs = @{Bugzilla::Bug->new_from_list(\@limit_to_ids)}; + @bugs = @{$user->visible_bugs(\@bugs)}; } # Make sure all products are valid. @@ -144,102 +146,118 @@ $sortby = "count" if $sortby eq "dup_count"; my $origmaxrows = $maxrows; detaint_natural($maxrows) - || ThrowUserError("invalid_maxrows", { maxrows => $origmaxrows}); + || ThrowUserError("invalid_maxrows", {maxrows => $origmaxrows}); my $origchangedsince = $changedsince; detaint_natural($changedsince) || ThrowUserError("invalid_changedsince", - { changedsince => $origchangedsince }); + {changedsince => $origchangedsince}); -my %total_dups = @{$dbh->selectcol_arrayref( +my %total_dups = @{ + $dbh->selectcol_arrayref( "SELECT dupe_of, COUNT(dupe) FROM duplicates - GROUP BY dupe_of", {Columns => [1,2]})}; + GROUP BY dupe_of", {Columns => [1, 2]} + ) +}; -my %dupe_relation = @{$dbh->selectcol_arrayref( +my %dupe_relation = @{ + $dbh->selectcol_arrayref( "SELECT dupe, dupe_of FROM duplicates - WHERE dupe IN (SELECT dupe_of FROM duplicates)", - {Columns => [1,2]})}; + WHERE dupe IN (SELECT dupe_of FROM duplicates)", {Columns => [1, 2]} + ) +}; add_indirect_dups(\%total_dups, \%dupe_relation); my $reso_field_id = get_field_id('resolution'); -my %since_dups = @{$dbh->selectcol_arrayref( +my %since_dups = @{ + $dbh->selectcol_arrayref( "SELECT dupe_of, COUNT(dupe) FROM duplicates INNER JOIN bugs_activity ON bugs_activity.bug_id = duplicates.dupe WHERE added = 'DUPLICATE' AND fieldid = ? AND bug_when >= " - . $dbh->sql_date_math('LOCALTIMESTAMP(0)', '-', '?', 'DAY') . - " GROUP BY dupe_of", {Columns=>[1,2]}, - $reso_field_id, $changedsince)}; + . $dbh->sql_date_math('LOCALTIMESTAMP(0)', '-', '?', 'DAY') + . " GROUP BY dupe_of", {Columns => [1, 2]}, $reso_field_id, $changedsince + ) +}; add_indirect_dups(\%since_dups, \%dupe_relation); # Enforce the mostfreqthreshold parameter and the "bug_id" cgi param. my $mostfreq = Bugzilla->params->{'mostfreqthreshold'}; foreach my $id (keys %total_dups) { - if ($total_dups{$id} < $mostfreq) { - delete $total_dups{$id}; - next; - } - if ($sortvisible and !grep($_->id == $id, @bugs)) { - delete $total_dups{$id}; - } + if ($total_dups{$id} < $mostfreq) { + delete $total_dups{$id}; + next; + } + if ($sortvisible and !grep($_->id == $id, @bugs)) { + delete $total_dups{$id}; + } } if (!@bugs) { - @bugs = @{ Bugzilla::Bug->new_from_list([keys %total_dups]) }; - @bugs = @{ $user->visible_bugs(\@bugs) }; + @bugs = @{Bugzilla::Bug->new_from_list([keys %total_dups])}; + @bugs = @{$user->visible_bugs(\@bugs)}; } -my @fully_exclude_status = formvalue('fully_exclude_status'); +my @fully_exclude_status = formvalue('fully_exclude_status'); my @partly_exclude_status = formvalue('partly_exclude_status'); -my @except_resolution = formvalue('except_resolution'); +my @except_resolution = formvalue('except_resolution'); # Filter bugs by criteria my @result_bugs; foreach my $bug (@bugs) { - # It's possible, if somebody specified a bug ID that wasn't a dup - # in the "buglist" parameter and specified $sortvisible that there - # would be bugs in the list with 0 dups, so we want to avoid that. - next if !$total_dups{$bug->id}; - - next if ($openonly and !$bug->isopened); - # If the bug has a status in @fully_exclude_status, we skip it, - # no question. - next if grep($_ eq $bug->bug_status, @fully_exclude_status); - # If the bug has a status in @partly_exclude_status, we skip it... - if (grep($_ eq $bug->bug_status, @partly_exclude_status)) { - # ...unless it has a resolution in @except_resolution. - next if !grep($_ eq $bug->resolution, @except_resolution); - } - if (scalar @query_products) { - next if !grep($_->id == $bug->product_id, @query_products); - } + # It's possible, if somebody specified a bug ID that wasn't a dup + # in the "buglist" parameter and specified $sortvisible that there + # would be bugs in the list with 0 dups, so we want to avoid that. + next if !$total_dups{$bug->id}; + + next if ($openonly and !$bug->isopened); - # Note: maximum row count is dealt with later. - push (@result_bugs, { bug => $bug, - count => $total_dups{$bug->id}, - delta => $since_dups{$bug->id} || 0 }); + # If the bug has a status in @fully_exclude_status, we skip it, + # no question. + next if grep($_ eq $bug->bug_status, @fully_exclude_status); + + # If the bug has a status in @partly_exclude_status, we skip it... + if (grep($_ eq $bug->bug_status, @partly_exclude_status)) { + + # ...unless it has a resolution in @except_resolution. + next if !grep($_ eq $bug->resolution, @except_resolution); + } + + if (scalar @query_products) { + next if !grep($_->id == $bug->product_id, @query_products); + } + + # Note: maximum row count is dealt with later. + push( + @result_bugs, + { + bug => $bug, + count => $total_dups{$bug->id}, + delta => $since_dups{$bug->id} || 0 + } + ); } @bugs = @result_bugs; @bugs = sort { sort_duplicates($a, $b, $sortby) } @bugs; if ($reverse) { - @bugs = reverse @bugs; + @bugs = reverse @bugs; } -@bugs = @bugs[0..$maxrows-1] if scalar(@bugs) > $maxrows; +@bugs = @bugs[0 .. $maxrows - 1] if scalar(@bugs) > $maxrows; my %vars = ( - bugs => \@bugs, - bug_ids => [map { $_->{'bug'}->id } @bugs], - sortby => $sortby, - openonly => $openonly, - maxrows => $maxrows, - reverse => $reverse, - format => scalar $cgi->param('format'), - product => [map { $_->name } @query_products], - sortvisible => $sortvisible, - changedsince => $changedsince, + bugs => \@bugs, + bug_ids => [map { $_->{'bug'}->id } @bugs], + sortby => $sortby, + openonly => $openonly, + maxrows => $maxrows, + reverse => $reverse, + format => scalar $cgi->param('format'), + product => [map { $_->name } @query_products], + sortvisible => $sortvisible, + changedsince => $changedsince, ); my $format = $template->get_format("reports/duplicates", $vars{'format'}); -- cgit v1.2.3-24-g4f1b