diff options
| -rwxr-xr-x | duplicates.cgi | 186 |
1 files changed, 186 insertions, 0 deletions
diff --git a/duplicates.cgi b/duplicates.cgi new file mode 100755 index 000000000..a45da6bb2 --- /dev/null +++ b/duplicates.cgi @@ -0,0 +1,186 @@ +#!/usr/bonsaitools/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> +# +# Generates mostfreq list from data collected by collectstats.pl. + +use diagnostics; +use strict; +use CGI "param"; +use DB_File; +require "globals.pl"; +require "CGI.pl"; + +ConnectToDatabase(); +GetVersionTable(); + +my %count; +my $dobefore = 0; +my $before = ""; +my %before; + +my $changedsince; +my $maxrows = 500; # arbitrary limit on max number of rows + +my $today = &days_ago(0); + +# Open today's record of dupes +if (-e "data/mining/dupes$today.db") +{ + dbmopen(%count, "data/mining/dupes${today}.db", 0644) || die "Can't open today's dupes file: $!"; +} +else +{ + # Try yesterday's, then (in case today's hasn't been created yet) :-) + $today = &days_ago(1); + if (-e "data/mining/dupes$today.db") + { + dbmopen(%count, "data/mining/dupes${today}.db", 0644) || die "Can't open yesterday's dupes file: $!"; + } + else + { + die "There are no duplicate statistics for today or yesterday."; + } +} + +# Check for changedsince param, and see if it's a positive integer +if (defined(param("changedsince")) && param("changedsince") =~ /^\d{1,4}$/) +{ + $changedsince = param("changedsince"); +} +else +{ + # Otherwise, default to one week + $changedsince = "7"; +} + +$before = &days_ago($changedsince); + +# check for max rows parameter +if (defined(param("maxrows")) && param("maxrows") =~ /^\d{1,4}$/) +{ + $maxrows = param("maxrows"); +} + +if (-e "data/mining/dupes${before}.db") +{ + dbmopen(%before, "data/mining/dupes${before}.db", 0644) && ($dobefore = 1); +} + +print "Content-type: text/html\n"; +print "\n"; +PutHeader("Most Frequently Reported Bugs"); + +print Param("mostfreqhtml"); + +print " +<table BORDER> + +<tr BGCOLOR=\"#CCCCCC\"> +<td><center><b>Bug #</b></center></td> +<td><center><b>Dupe<br>Count</b></center></td>\n"; + +if ($dobefore) +{ + print "<td><center><b>Change in last<br>$changedsince day(s)</b></center></td> "; +} + +print " +<td><center><b>Component</b></center></td> +<td><center><b>Severity</b></center></td> +<td><center><b>Op Sys</b></center></td> +<td><center><b>Target<br>Milestone</b></center></td> +<td><center><b>Summary</b></center></td> +</tr>\n\n"; + +my %delta; + +# Calculate the deltas if we are doing a "before" +if ($dobefore) +{ + foreach (keys(%count)) + { + $delta{$_} = $count{$_} - $before{$_}; + } +} + +# Offer the option of sorting on total count, or on the delta +my @sortedcount; + +if (defined(param("sortby")) && param("sortby") == "delta") +{ + @sortedcount = sort by_delta keys(%count); +} +else +{ + @sortedcount = sort by_dup_count keys(%count); +} + +my $i = 0; + +foreach (@sortedcount) +{ + my $id = $_; + SendSQL("SELECT component, bug_severity, op_sys, target_milestone, short_desc FROM " . + "bugs WHERE bug_id = $id"); + my ($component, $severity, $op_sys, $milestone, $summary) = FetchSQLData(); + print "<tr>"; + print '<td><center><A HREF="show_bug.cgi?id=' . $id . '">'; + print $id . "</A></center></td>"; + print "<td><center>$count{$id}</center></td>"; + if ($dobefore) + { + print "<td><center>$delta{$id}</center></td>"; + } + print "<td>$component</td>\n "; + print "<td><center>$severity</center></td>"; + print "<td><center>$op_sys</center></td>"; + print "<td><center>$milestone</center></td>"; + print "<td>$summary</td>"; + print "</tr>\n"; + + $i++; + if ($i == $maxrows) + { + last; + } +} + +print "</table><br><br>"; +PutFooter(); + + +sub by_dup_count +{ + return -($count{$a} <=> $count{$b}); +} + +sub by_delta +{ + return -($delta{$a} <=> $delta{$b}); +} + +sub days_ago +{ + my ($dom, $mon, $year) = (localtime(time - ($_[0]*24*60*60)))[3, 4, 5]; + return sprintf "%04d%02d%02d", 1900 + $year, ++$mon, $dom; +} + |