2 $r->content_type("image/$format");
3 print $graph->plot(\@data)->$format();
5 print $#data+1 . " Elements:<p>";
15 my $graph = GD::Graph::lines->new($Statistics::GraphWidth||500,$Statistics::GraphHeight||400);
16 $graph->set(export_format => "png",
18 y_label => 'Average time in Days');
20 push @data, [split /,/ , $ARGS{x_labels}];
21 push @data, [split /,/ , $ARGS{data1}];
22 push @data, [split /,/ , $ARGS{data2}];
23 push @data, [split /,/ , $ARGS{data3}];
25 my $format = $graph->export_format;
26 #$r->content_type("image/$format");