diff options
| -rwxr-xr-x | reports.cgi | 173 |
1 files changed, 161 insertions, 12 deletions
diff --git a/reports.cgi b/reports.cgi index e1972bd2e..707de6ac0 100755 --- a/reports.cgi +++ b/reports.cgi @@ -22,28 +22,52 @@ use diagnostics; use strict; +use Chart::Lines; require "CGI.pl"; require "globals.pl"; use vars @::legal_product; +my $dir = "data/mining"; my $week = 60 * 60 * 24 * 7; my @status = qw (NEW ASSIGNED REOPENED); -ConnectToDatabase(); +# while this looks odd/redundant, it allows us to name +# functions differently than the value passed in -print <<FIN; -Content-type: text/html +my %reports = + ( + "most_doomed" => \&most_doomed, + "show_chart" => \&show_chart, + ); + +# patch from Sam Ziegler <ziegler@mediaguaranty.com>: +# +# "reports.cgi currently has it's own idea of what +# the header should be. This patch sets it to the +# system wide header." +print "Content-type: text/html\n\n"; + +if (defined $::FORM{'nobanner'}) + { +print <<FIN; <html> -<head> -<title>Bugzilla Reports</title> -</head> +<head><title>Bug Reports</title></head> <body bgcolor="#FFFFFF"> FIN + } +else + { + PutHeader ("Bug Reports") unless (defined $::FORM{'nobanner'}); + } + +ConnectToDatabase(); -&header unless (defined $::FORM{'nobanner'}); +# $::FORM{'product'} = "Mozilla"; +# &show_chart(); +# exit; if (! defined $::FORM{'product'}) { @@ -51,7 +75,29 @@ if (! defined $::FORM{'product'}) } else { - &most_doomed; + # we want to be careful about what subroutines + # can be called from outside. modify %reports + # accordingly when a new report type is added + + if (! defined $reports{$::FORM{'output'}}) + { + $::FORM{'output'} = "most_doomed"; # a reasonable default + } + + my $f = $reports{$::FORM{'output'}}; + + if (! defined $f) + { + print "start over, your form data was all messed up.<p>\n"; + foreach (keys %::FORM) + { + print "<font color=blue>$_</font> : " . + ($::FORM{$_} ? $::FORM{$_} : "undef") . "<br>\n"; + } + exit; + } + + &{$f}; } print <<FIN; @@ -84,6 +130,13 @@ $product_popup </td> </tr> <tr> +<td align=center><b>Output:</b></td> +<td align=center> +<select name="output"> +<option value="most_doomed">Bug Counts +<option value="show_chart">Bug Charts +</select> +<tr> <td align=center><b>Switches:</b></td> <td align=left> <input type=checkbox name=links value=1> Links to Bugs<br> @@ -101,10 +154,6 @@ $product_popup FIN } -########################## -# they sent us a project # -########################## - sub most_doomed { my $when = localtime (time); @@ -323,3 +372,103 @@ sub header BORDER=0 WIDTH=600 HEIGHT=58></A></TD></TR></TABLE> FIN } + +sub show_chart + { + my $when = localtime (time); + + print <<FIN; +<center> +FIN + + my @dates; + my @open; my @assigned; my @reopened; + + my $file = join '/', $dir, $::FORM{'product'}; + my $image = "$file.gif"; + + if (! open FILE, $file) + { + &die_politely ("The tool which gathers bug counts has not been run yet."); + } + + while (<FILE>) + { + chomp; + next if ($_ =~ /^#/ or ! $_); + my ($date, $open, $assigned, $reopened) = split /\|/, $_; + my ($yy, $mm, $dd) = $date =~ /^\d{2}(\d{2})(\d{2})(\d{2})$/; + + push @dates, "$mm/$dd/$yy"; + push @open, $open; + push @assigned, $assigned; + push @reopened, $reopened; + } + + close FILE; + + if ($#dates < 1) + { + &die_politely ("We don't have enough data points to make a graph (yet)"); + } + + my $img = Chart::Lines->new (800, 600); + my @labels = qw (New Assigned Reopened); + my @when; + my $i = 0; + my @data; + + push @data, \@dates; + push @data, \@open; + push @data, \@assigned; + push @data, \@reopened; + + my %settings = + ( + "title" => "Bug Charts for $::FORM{'product'}", + "x_label" => "Dates", + "y_label" => "Bug Count", + "grey_background" => 1, + "legend_labels" => \@labels, + ); + + $img->set (%settings); + + open IMAGE, ">$image" or die "$image: $!"; + $img->gif (*IMAGE, \@data); + close IMAGE; + + print <<FIN; +<img src="$image"> +<br clear=left> +<br> +FIN + } + +sub die_politely + { + my $msg = shift; + + print <<FIN; +<p> +<table border=1 cellpadding=10> +<tr> +<td align=center> +<font color=blue>Sorry, but ...</font> +<p> +There is no graph available for <b>$::FORM{'product'}</b><p> + +<font size=-1> +$msg +<p> +</font> +</td> +</tr> +</table> +<p> +FIN + + exit; + } + + |