#!C:/Perl/bin/perl.exe

use warnings;
use strict;

use open_flash_chart;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
use Chart::OFC;

print header, start_html( -title   => "Open Flash Demo"  );

my $data = Chart::OFC::Dataset->new( values => [ 1..10 ] );
my $pie = Chart::OFC::Pie->new( 
	    title => 'Pie Test', 
	    dataset => $data, 
	    labels => [ 'a'..'j' ] 
	);

print '<script type="text/javascript" src="js/swfobject.js"></script>';

print '<div id="my_chart"></div>' ."\n";
 	
print '<script type="text/javascript">
var so = new SWFObject("open-flash-chart.swf", "ofc", "250", "200", "9", "#FFFFFF");';
print 'so.addVariable("data", '.$pie->as_ofc_data().');';

print 'so.write("my_chart");' . "\n";
print '</script>';

print end_html;