#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Chart::Lines;

$x=param('x');
$y=param('y');
$value=param('value');
$label=param('label');
$width="762"; $width=param('width');
$height="390"; $height=param('height');

chomp($label); chomp($value);

@labels=(split(",",$label));
@values=(split(",",$value));

my $img=Chart::Lines->new(${width},${height});

if(defined($values[0])) { @data=([@labels],[@values]);
} else { @data=(['no','data','available'],[30.2,23.5,92.1]); }

@legend=('query');

my %settings= (
         "title" => "$title ",
         "x_label" => "$x",
         "y_label" => "$y",
         #"skip_x_ticks" => 5,
         "x_ticks" => "vertical",
         "y_grid_lines" => "true",
         "x_grid_lines" => "true",
         "transparent" => "true",
         "grey_background" => "false",
);

$img->set(%settings);

print <png(\*STDOUT,[ @data ]);

exit(0);

__END__