rt/html/RTx/Statistics/OpenStalled/Elements/Chart

   1 <%perl>
   2 $r->content_type("image/$format");
   3 print $graph->plot(\@data)->$format();
   4 $m->abort();
   5 print $#data+1 . " Elements:<p>";
   6 for (0..$#data) {
   7 print $data[$_];
   8 print "<p>";
   9 }
  10 </%perl>
  11 <%INIT>
  12 use GD::Graph::bars;
  13
  14 my @data;
  15 my $graph = GD::Graph::bars->new($Statistics::GraphWidth,$Statistics::GraphHeight);
  16 $graph->set(export_format => "png",
  17             x_label       => 'Queue name',
  18             y_label       => 'Total per queue by status');
  19 my $format = $graph->export_format;
  20 $graph->set_legend(split /,/ , $ARGS{set_legend});
  21 push @data, [split /,/ , $ARGS{x_labels}];
  22 push @data, [split /,/ , $ARGS{data1}];
  23 push @data, [split /,/ , $ARGS{data2}];
  24 push @data, [split /,/ , $ARGS{data3}];
  25 </%INIT>
  26 <%ARGS>
  27 </%ARGS>