#!/usr/bin/perl # Include current script directory in the module path (needed on Microsoft IIS). # This allows this script to work by copying ChartDirector to the same directory # as the script (as an alternative to installation in Perl module directory) use File::Basename; use lib dirname($0) =~ /(.*)/; use perlchartdir; # Get HTTP query parameters use CGI; my $query = new CGI; # Get the selected year and month my $selectedYear = int($query->param("year")); my $selectedMonth = int($query->param("x")) + 1; # # In real life, the data may come from a database based on selectedYear. In this # example, we just use a random number generator. # my $seed = ($selectedYear - 1992) * (100 + 3 * $selectedMonth); my $rantable = new RanTable($seed, 1, 4); $rantable->setCol(0, $seed * 0.003, $seed * 0.017); my $data = $rantable->getCol(0); # The labels for the pie chart my $labels = ["Services", "Hardware", "Software", "Others"]; # Create a PieChart object of size 600 x 240 pixels my $c = new PieChart(600, 280); # Set the center of the pie at (300, 140) and the radius to 120 pixels $c->setPieSize(300, 140, 120); # Add a title to the pie chart using 18 pts Times Bold Italic font $c->addTitle("Revenue Breakdown for $selectedMonth/$selectedYear", "timesbi.ttf", 18) ; # Draw the pie in 3D with 20 pixels 3D depth $c->set3D(20); # Set label format to display sector label, value and percentage in two lines $c->setLabelFormat("{label}<*br*>\${value|2}M ({percent}%)"); # Set label style to 10 pts Arial Bold Italic font. Set background color to the same # as the sector color, with reduced-glare glass effect and rounded corners. my $t = $c->setLabelStyle("arialbi.ttf", 10); $t->setBackground($perlchartdir::SameAsMainColor, $perlchartdir::Transparent, perlchartdir::glassEffect($perlchartdir::ReducedGlare)); $t->setRoundedCorners(); # Use side label layout method $c->setLabelLayout($perlchartdir::SideLayout); # Set the pie data and the pie labels $c->setData($data, $labels); # Create the image and save it in a temporary location my $chart1URL = $c->makeTmpFile("/tmp/tmpcharts"); # Create an image map for the chart my $imageMap = $c->getHTMLImageMap("piestub.pl", "", "title='{label}:US\$ {value|2}M'"); print "Content-type: text/html\n\n"; print <

Simple Clickable Pie Chart

View Source Code

$imageMap EndOfHTML ;