• endico%mozilla.org's avatar
    Checking in Jake's <jake@acutex.net> interim patches from bug 30694. Bugzilla… · f9ad3697
    endico%mozilla.org authored
    Checking in Jake's <jake@acutex.net> interim patches from bug 30694. Bugzilla was showing bug summaries to everyone, even if they didn't have permission to view the bug. Jake's quick solution is to not display the bug at all if it is in a group no matter who is viewing it. The correct solution would be display the  summary if the viewer had the proper permissions.
    f9ad3697
duplicates.cgi 4.37 KB
#!/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, groupset " .
                 " FROM bugs WHERE bug_id = $id");
	my ($component, $severity, $op_sys, $milestone, $summary, $groupset) = FetchSQLData();
        next unless $groupset == 0;
        $summary = html_quote($summary);
	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;
}