diff options
Diffstat (limited to 'reports.cgi')
| -rwxr-xr-x | reports.cgi | 321 |
1 files changed, 163 insertions, 158 deletions
diff --git a/reports.cgi b/reports.cgi index cd24e1ee3..f713f615e 100755 --- a/reports.cgi +++ b/reports.cgi @@ -23,88 +23,92 @@ use Digest::SHA qw(hmac_sha256_base64); # If we're using bug groups for products, we should apply those restrictions # to viewing reports, as well. Time to check the login in that case. -my $user = Bugzilla->login(); -my $cgi = Bugzilla->cgi; +my $user = Bugzilla->login(); +my $cgi = Bugzilla->cgi; my $template = Bugzilla->template; -my $vars = {}; +my $vars = {}; if (!Bugzilla->feature('old_charts')) { - ThrowCodeError('feature_disabled', { feature => 'old_charts' }); + ThrowCodeError('feature_disabled', {feature => 'old_charts'}); } -my $dir = bz_locations()->{'datadir'} . "/mining"; -my $graph_dir = bz_locations()->{'graphsdir'}; -my $graph_url = basename($graph_dir); +my $dir = bz_locations()->{'datadir'} . "/mining"; +my $graph_dir = bz_locations()->{'graphsdir'}; +my $graph_url = basename($graph_dir); my $product_name = $cgi->param('product') || ''; Bugzilla->switch_to_shadow_db(); if (!$product_name) { - # Can we do bug charts? - (-d $dir && -d $graph_dir) - || ThrowCodeError('chart_dir_nonexistent', - {dir => $dir, graph_dir => $graph_dir}); - my %default_sel = map { $_ => 1 } BUG_STATE_OPEN; + # Can we do bug charts? + (-d $dir && -d $graph_dir) + || ThrowCodeError('chart_dir_nonexistent', + {dir => $dir, graph_dir => $graph_dir}); - my @datasets; - my @data = get_data($dir); + my %default_sel = map { $_ => 1 } BUG_STATE_OPEN; - foreach my $dataset (@data) { - my $datasets = {}; - $datasets->{'value'} = $dataset; - $datasets->{'selected'} = $default_sel{$dataset} ? 1 : 0; - push(@datasets, $datasets); - } - - # We only want those products that the user has permissions for. - my @myproducts = ('-All-'); - # Extract product names from objects and add them to the list. - push( @myproducts, map { $_->name } @{$user->get_selectable_products} ); + my @datasets; + my @data = get_data($dir); - $vars->{'datasets'} = \@datasets; - $vars->{'products'} = \@myproducts; + foreach my $dataset (@data) { + my $datasets = {}; + $datasets->{'value'} = $dataset; + $datasets->{'selected'} = $default_sel{$dataset} ? 1 : 0; + push(@datasets, $datasets); + } - print $cgi->header(); -} -else { - # For security and correctness, validate the value of the "product" form variable. - # Valid values are those products for which the user has permissions which appear - # in the "product" drop-down menu on the report generation form. - my ($product) = grep { $_->name eq $product_name } @{$user->get_selectable_products}; - ($product || $product_name eq '-All-') - || ThrowUserError('invalid_product_name', {product => $product_name}); - - # Product names can change over time. Their ID cannot; so use the ID - # to generate the filename. - my $prod_id = $product ? $product->id : 0; - - # Make sure there is something to plot. - my @datasets = $cgi->param('datasets'); - scalar(@datasets) || ThrowUserError('missing_datasets'); - - if (grep { $_ !~ /^[A-Za-z0-9:_-]+$/ } @datasets) { - ThrowUserError('invalid_datasets', {'datasets' => \@datasets}); - } + # We only want those products that the user has permissions for. + my @myproducts = ('-All-'); - # Filenames must not be guessable as they can point to products - # you are not allowed to see. Also, different projects can have - # the same product names. - my $project = bz_locations()->{'project'} || ''; - my $image_file = join(':', ($project, $prod_id, @datasets)); - my $key = Bugzilla->localconfig->{'site_wide_secret'}; - $image_file = hmac_sha256_base64($image_file, $key) . '.png'; - $image_file =~ s/\+/-/g; - $image_file =~ s/\//_/g; - trick_taint($image_file); - - if (! -e "$graph_dir/$image_file") { - generate_chart($dir, "$graph_dir/$image_file", $product, \@datasets); - } + # Extract product names from objects and add them to the list. + push(@myproducts, map { $_->name } @{$user->get_selectable_products}); - $vars->{'url_image'} = "$graph_url/$image_file"; + $vars->{'datasets'} = \@datasets; + $vars->{'products'} = \@myproducts; - print $cgi->header(-Content_Disposition=>'inline; filename=bugzilla_report.html'); + print $cgi->header(); +} +else { +# For security and correctness, validate the value of the "product" form variable. +# Valid values are those products for which the user has permissions which appear +# in the "product" drop-down menu on the report generation form. + my ($product) + = grep { $_->name eq $product_name } @{$user->get_selectable_products}; + ($product || $product_name eq '-All-') + || ThrowUserError('invalid_product_name', {product => $product_name}); + + # Product names can change over time. Their ID cannot; so use the ID + # to generate the filename. + my $prod_id = $product ? $product->id : 0; + + # Make sure there is something to plot. + my @datasets = $cgi->param('datasets'); + scalar(@datasets) || ThrowUserError('missing_datasets'); + + if (grep { $_ !~ /^[A-Za-z0-9:_-]+$/ } @datasets) { + ThrowUserError('invalid_datasets', {'datasets' => \@datasets}); + } + + # Filenames must not be guessable as they can point to products + # you are not allowed to see. Also, different projects can have + # the same product names. + my $project = bz_locations()->{'project'} || ''; + my $image_file = join(':', ($project, $prod_id, @datasets)); + my $key = Bugzilla->localconfig->{'site_wide_secret'}; + $image_file = hmac_sha256_base64($image_file, $key) . '.png'; + $image_file =~ s/\+/-/g; + $image_file =~ s/\//_/g; + trick_taint($image_file); + + if (!-e "$graph_dir/$image_file") { + generate_chart($dir, "$graph_dir/$image_file", $product, \@datasets); + } + + $vars->{'url_image'} = "$graph_url/$image_file"; + + print $cgi->header( + -Content_Disposition => 'inline; filename=bugzilla_report.html'); } $template->process('reports/old-charts.html.tmpl', $vars) @@ -115,111 +119,112 @@ $template->process('reports/old-charts.html.tmpl', $vars) ##################### sub get_data { - my $dir = shift; + my $dir = shift; - my @datasets; - open(DATA, '<', "$dir/-All-") - || ThrowCodeError('chart_file_open_fail', {filename => "$dir/-All-"}); + my @datasets; + open(DATA, '<', "$dir/-All-") + || ThrowCodeError('chart_file_open_fail', {filename => "$dir/-All-"}); - while (<DATA>) { - if (/^# fields?: (.+)\s*$/) { - @datasets = grep ! /date/i, (split /\|/, $1); - last; - } + while (<DATA>) { + if (/^# fields?: (.+)\s*$/) { + @datasets = grep !/date/i, (split /\|/, $1); + last; } - close(DATA); - return @datasets; + } + close(DATA); + return @datasets; } sub generate_chart { - my ($dir, $image_file, $product, $datasets) = @_; - $product = $product ? $product->name : '-All-'; - my $data_file = $product; - $data_file =~ s/\//-/gs; - $data_file = $dir . '/' . $data_file; - - if (!open(FILE, '<', $data_file)) { - if ($product eq '-All-') { - $product = ''; - } - ThrowCodeError('chart_data_not_generated', {'product' => $product}); + my ($dir, $image_file, $product, $datasets) = @_; + $product = $product ? $product->name : '-All-'; + my $data_file = $product; + $data_file =~ s/\//-/gs; + $data_file = $dir . '/' . $data_file; + + if (!open(FILE, '<', $data_file)) { + if ($product eq '-All-') { + $product = ''; } - - my @fields; - my @labels = qw(DATE); - my %datasets = map { $_ => 1 } @$datasets; - - my %data = (); - while (<FILE>) { - chomp; - next unless $_; - if (/^#/) { - if (/^# fields?: (.*)\s*$/) { - @fields = split /\||\r/, $1; - $data{$_} ||= [] foreach @fields; - unless ($fields[0] =~ /date/i) { - ThrowCodeError('chart_datafile_corrupt', {'file' => $data_file}); - } - push @labels, grep($datasets{$_}, @fields); - } - next; - } - - unless (@fields) { - ThrowCodeError('chart_datafile_corrupt', {'file' => $data_file}); - } - - my @line = split /\|/; - my $date = $line[0]; - my ($yy, $mm, $dd) = $date =~ /^\d{2}(\d{2})(\d{2})(\d{2})$/; - push @{$data{DATE}}, "$mm/$dd/$yy"; - - for my $i (1 .. $#fields) { - my $field = $fields[$i]; - if (! defined $line[$i] or $line[$i] eq '') { - # no data point given, don't plot (this will probably - # generate loads of Chart::Base warnings, but that's not - # our fault.) - push @{$data{$field}}, undef; - } - else { - push @{$data{$field}}, $line[$i]; - } + ThrowCodeError('chart_data_not_generated', {'product' => $product}); + } + + my @fields; + my @labels = qw(DATE); + my %datasets = map { $_ => 1 } @$datasets; + + my %data = (); + while (<FILE>) { + chomp; + next unless $_; + if (/^#/) { + if (/^# fields?: (.*)\s*$/) { + @fields = split /\||\r/, $1; + $data{$_} ||= [] foreach @fields; + unless ($fields[0] =~ /date/i) { + ThrowCodeError('chart_datafile_corrupt', {'file' => $data_file}); } + push @labels, grep($datasets{$_}, @fields); + } + next; } - shift @labels; - - close FILE; - - if (! @{$data{DATE}}) { - ThrowUserError('insufficient_data_points'); + unless (@fields) { + ThrowCodeError('chart_datafile_corrupt', {'file' => $data_file}); } - my $img = Chart::Lines->new (800, 600); - my $i = 0; - - my $MAXTICKS = 20; # Try not to show any more x ticks than this. - my $skip = 1; - if (@{$data{DATE}} > $MAXTICKS) { - $skip = int((@{$data{DATE}} + $MAXTICKS - 1) / $MAXTICKS); + my @line = split /\|/; + my $date = $line[0]; + my ($yy, $mm, $dd) = $date =~ /^\d{2}(\d{2})(\d{2})(\d{2})$/; + push @{$data{DATE}}, "$mm/$dd/$yy"; + + for my $i (1 .. $#fields) { + my $field = $fields[$i]; + if (!defined $line[$i] or $line[$i] eq '') { + + # no data point given, don't plot (this will probably + # generate loads of Chart::Base warnings, but that's not + # our fault.) + push @{$data{$field}}, undef; + } + else { + push @{$data{$field}}, $line[$i]; + } } - - my %settings = - ( - "title" => "Status Counts for $product", - "x_label" => "Dates", - "y_label" => "Bug Counts", - "legend_labels" => \@labels, - "skip_x_ticks" => $skip, - "y_grid_lines" => "true", - "grey_background" => "false", - "colors" => { - # default dataset colours are too alike - dataset4 => [0, 0, 0], # black - }, - ); - - $img->set (%settings); - $img->png($image_file, [ @data{('DATE', @labels)} ]); + } + + shift @labels; + + close FILE; + + if (!@{$data{DATE}}) { + ThrowUserError('insufficient_data_points'); + } + + my $img = Chart::Lines->new(800, 600); + my $i = 0; + + my $MAXTICKS = 20; # Try not to show any more x ticks than this. + my $skip = 1; + if (@{$data{DATE}} > $MAXTICKS) { + $skip = int((@{$data{DATE}} + $MAXTICKS - 1) / $MAXTICKS); + } + + my %settings = ( + "title" => "Status Counts for $product", + "x_label" => "Dates", + "y_label" => "Bug Counts", + "legend_labels" => \@labels, + "skip_x_ticks" => $skip, + "y_grid_lines" => "true", + "grey_background" => "false", + "colors" => { + + # default dataset colours are too alike + dataset4 => [0, 0, 0], # black + }, + ); + + $img->set(%settings); + $img->png($image_file, [@data{('DATE', @labels)}]); } |