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,$Statistics::GraphHeight);
16 $graph->set(export_format => "png",
17 x_label => 'Day of Week',
18 y_label => 'Tickets per Day',
19 x_labels_vertical => 1,
21 my $format = $graph->export_format;
22 $graph->set_legend(split /,/ , $ARGS{set_legend});
23 push @data, [split /,/ , $ARGS{x_labels}];
24 push @data, [split /,/ , $ARGS{data1}];
25 push @data, [split /,/ , $ARGS{data2}];
26 push @data, [split /,/ , $ARGS{data3}];