From 0922bcf5c61f8fca804c85a2a6ec8aeebf2f6600 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 4 Dec 2010 23:54:24 +0000 Subject: RTx-Statistics in 2.1 / 3.8 --- rt/html/RTx/Statistics/OpenStalled/Elements/Chart | 27 ----------------------- 1 file changed, 27 deletions(-) delete mode 100755 rt/html/RTx/Statistics/OpenStalled/Elements/Chart (limited to 'rt/html/RTx/Statistics/OpenStalled/Elements/Chart') diff --git a/rt/html/RTx/Statistics/OpenStalled/Elements/Chart b/rt/html/RTx/Statistics/OpenStalled/Elements/Chart deleted file mode 100755 index 9505881e8..000000000 --- a/rt/html/RTx/Statistics/OpenStalled/Elements/Chart +++ /dev/null @@ -1,27 +0,0 @@ -<%perl> -$r->content_type("image/$format"); -print $graph->plot(\@data)->$format(); -$m->abort(); -print $#data+1 . " Elements:

"; -for (0..$#data) { -print $data[$_]; -print "

"; -} - -<%INIT> -use GD::Graph::bars; - -my @data; -my $graph = GD::Graph::bars->new($Statistics::GraphWidth,$Statistics::GraphHeight); -$graph->set(export_format => "png", - x_label => 'Queue name', - y_label => 'Total per queue by status'); -my $format = $graph->export_format; -$graph->set_legend(split /,/ , $ARGS{set_legend}); -push @data, [split /,/ , $ARGS{x_labels}]; -push @data, [split /,/ , $ARGS{data1}]; -push @data, [split /,/ , $ARGS{data2}]; -push @data, [split /,/ , $ARGS{data3}]; - -<%ARGS> - -- cgit v1.2.1