2 $r->content_type("image/$format");
3 print $graph->plot(\@data)->$format();
6 <em><&|/l, $#data+1&>[_1] Plot Elements</&></em><p>
7 % foreach my $value (@data) {
10 <em><&|/l&>x_labels</&>:</em><p>
13 <em><&|/l&>legend</&>:</em><p>
14 <% $ARGS{set_legend} %>
16 <em><&|/l, (keys %ARGS) - 2&>[_1] data sets</&>:</em><p>
18 % for (1..(scalar keys %ARGS)-2) {
19 <% $_ %> <% $ARGS{"data$_"} %><p>
26 my $graph = GD::Graph::lines->new($Statistics::GraphWidth||500,$Statistics::GraphHeight||400);
27 $graph->set(export_format => "png",
28 x_label => 'Day of Week',
29 y_label => 'Tickets per day');
30 $graph->set_legend(split /,/ , $ARGS{set_legend});
31 my $format = $graph->export_format;
32 push @data, [split /,/ , $ARGS{x_labels}];
33 for (1..((scalar keys %ARGS)-2)) {
34 push @data, [split /,/ , $ARGS{"data".$_}];