<%@ Language="PerlScript"%> <% # For this test you must have an iis webserver with the perlscript dll installed as a language. # Also you'll need the open-flash-chart.swf file and the open_flash_chart.pm files together with this one # use strict; our ($Server, $Request, $Response); use lib $Server->mappath('.'); use open_flash_chart; my $g = chart->new(); #$g->{'chart_props'}->{'tooltip'} = {'text'=>'#val#'}; my $e = $g->get_element('pie'); $e->set_radius(150); $e->set_values([ {'value'=>rand(255), 'label'=>'linux-ubuntu'}, {'value'=>rand(255), 'label'=>'windows'}, {'value'=>rand(255), 'label'=>'vax'}, {'value'=>rand(255), 'label'=>'NexT'}, {'value'=>rand(255), 'label'=>'solaris'}]); $e->set_tip('#val# #percent#'); $g->add_element($e); %> OFC Test Suite - PERL

Pie Test

<% $Response->write($g->render_swf({'width'=>600, 'height'=>400})); $Response->write('

Should be a pie with five slices.

'); %>