2 print $graph->plot(\@data)->$format();
4 print $#data+1 . " Elements:<p>";
14 my $graph = GD::Graph::lines->new(640,480);
15 $graph->set(export_format => "png",
17 y_label => 'Average time in Days');
19 push @data, [split /,/ , $ARGS{x_labels}];
20 push @data, [split /,/ , $ARGS{data1}];
21 push @data, [split /,/ , $ARGS{data2}];
22 push @data, [split /,/ , $ARGS{data3}];
24 my $format = $graph->export_format;
25 #$r->content_type("image/$format");