#!/usr/local/bin/perl
# "use GD.pm" is taken care of by requiring chart.pl

require "chart.pl";

srand;
$m = int(rand(1000000)) + 1;
$im = new GD::Image(400, 300);
$points = int(rand(50)) + 1;

for ($i = 0; ($i < $points); $i++) {
	$data[$i] = rand($m);
	$labels[$i] = sprintf("%d", $i);
}

chartDraw($im, $chartBar | $chartLine | $chartCross,
	*labels, "Widgets", *data);

print "Pragma: no-cache\n";
print "Content-type: image/gif\n\n";
$data = $im->gif;

print $data;
exit 0;