<%perl> $r->content_type("image/$format"); print $graph->plot(\@data)->$format(); $m->abort(); <&|/l, $#data+1&>[_1] Plot Elements

% foreach my $value (@data) { <% $value %>

% } <&|/l&>x_labels:

<% $ARGS{x_labels} %>

<&|/l&>legend:

<% $ARGS{set_legend} %>

<&|/l, (keys %ARGS) - 2&>[_1] data sets:

% for (1..(scalar keys %ARGS)-2) { <% $_ %> <% $ARGS{"data$_"} %>

% } <%INIT> use GD::Graph::lines; my @data; my $graph = GD::Graph::lines->new($Statistics::GraphWidth||500,$Statistics::GraphHeight||400); $graph->set(export_format => "png", x_label => 'Day of Week', y_label => 'Tickets per day'); $graph->set_legend(split /,/ , $ARGS{set_legend}); my $format = $graph->export_format; push @data, [split /,/ , $ARGS{x_labels}]; for (1..((scalar keys %ARGS)-2)) { push @data, [split /,/ , $ARGS{"data".$_}]; } <%ARGS>