From 2b7812657fe6e4569586b189bf274b65071e5d90 Mon Sep 17 00:00:00 2001 From: "harrison%netscape.com" <> Date: Mon, 19 Oct 1998 05:18:25 +0000 Subject: created reports.cgi which provide an overview of active bugs sorted by owner. updated README to reflect my experiences installing mysql, bugzilla. put links into index.html, query.cgi to point into reports.cgi. harrison 10/18/98 --- reports.cgi | 325 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 325 insertions(+) create mode 100755 reports.cgi (limited to 'reports.cgi') diff --git a/reports.cgi b/reports.cgi new file mode 100755 index 000000000..2d9171dd7 --- /dev/null +++ b/reports.cgi @@ -0,0 +1,325 @@ +#!/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.0 (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): Harrison Page , +# Terry Weissman + +use diagnostics; +use strict; + +require "CGI.pl"; +require "globals.pl"; + +use vars @::legal_product; + +my $week = 60 * 60 * 24 * 7; +my @status = qw (NEW ASSIGNED REOPENED); + +ConnectToDatabase(); + +print < + +Bugzilla Reports + + +FIN + +&header unless (defined $::FORM{'nobanner'}); + +if (! defined $::FORM{'product'}) + { + &choose_product; + } +else + { + &most_doomed; + } + +print < + + +FIN + +################################## +# user came in with no form data # +################################## + +sub choose_product + { + GetVersionTable(); + + my $product_popup = make_options (\@::legal_product); + + print < +

Welcome to the Bugzilla Query Kitchen

+
+ + + + + + + + + + + + +
Product: + +
Switches: + Links to Bugs
+ No Banner
+
+ +
+
+

+FIN + } + +########################## +# they sent us a project # +########################## + +sub most_doomed + { + my $when = localtime (time); + + print < +

+Bug Report for $::FORM{'product'} +

+$when

+FIN + + my $query = <$query

\n" + unless (! exists $::FORM{'showsql'}); + + SendSQL ($query); + + my $c = 0; + + my $bugs_count = 0; + my $bugs_new_this_week = 0; + my $bugs_reopened = 0; + my %bugs_owners; + my %bugs_summary; + my %bugs_status; + my %bugs_totals; + my %bugs_lookup; + + ############################# + # suck contents of database # + ############################# + + while (my ($bid, $a, $sev, $st, $prod, $who, $rep, $ts) = FetchSQLData()) + { + next if (exists $bugs_lookup{$bid}); + + $bugs_lookup{$bid} ++; + $bugs_owners{$who} ++; + $bugs_new_this_week ++ if (time - $ts <= $week); + $bugs_status{$st} ++; + $bugs_count ++; + + push @{$bugs_summary{$who}{$st}}, $bid; + + $bugs_totals{$who}{$st} ++; + } + + ######################### + # start painting report # + ######################### + + print <Summary + + + + + + + + + + + + + + + + + + + + + + + + + + +
New Bugs This Week$bugs_new_this_week
Bugs Marked New$bugs_status{'NEW'}
Bugs Marked Assigned$bugs_status{'ASSIGNED'}
Bugs Marked Reopened$bugs_status{'REOPENED'}
Total Bugs$bugs_count
+

+FIN + + if ($bugs_count == 0) + { + print "No bugs found!\n"; + exit; + } + + print <Bug Count by Engineer + + + + + + + + +FIN + + foreach my $who (sort keys %bugs_summary) + { + my $bugz = 0; + print < + +FIN + + foreach my $st (@status) + { + $bugs_totals{$who}{$st} += 0; + print <$bugs_totals{$who}{$st} +FIN + $bugz += $#{$bugs_summary{$who}{$st}} + 1; + } + + print <$bugz + +FIN + } + + print < +

+FIN + + ############################### + # individual bugs by engineer # + ############################### + + print <Individual Bugs by Engineer +

OwnerNewAssignedReopenedTotal
$who
+ + + + + + +FIN + + foreach my $who (sort keys %bugs_summary) + { + print < + +FIN + + foreach my $st (@status) + { + my @l; + + foreach (sort { $a <=> $b } @{$bugs_summary{$who}{$st}}) + { + if ($::FORM{'links'}) + { + push @l, "$_\n"; + } + else + { + push @l, $_; + } + } + + my $bugz = join ' ', @l; + $bugz = " " unless ($bugz); + + print <$bugz +FIN + } + + print < +FIN + } + + print < +

+FIN + } + +sub header + { + print < +

OwnerNewAssignedReopened
$who
+FIN + } -- cgit v1.2.3-24-g4f1b