#!/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;
# The currently selected year
my $selectedYear = ($query->param("year") or 2001);
# SQL statement to get the monthly revenues for the selected year.
my $SQL =
"Select Software, Hardware, Services From revenue Where Year(TimeStamp) = ".
"$selectedYear Order By TimeStamp";
#
# Connect to database and read the query result into arrays
#
use DBI;
my $dbh = DBI->connect('dbi:mysql:sample', 'test', 'test');
my $sth = $dbh->prepare($SQL);
$sth->execute();
my $software = [];
my $hardware = [];
my $services = [];
while (my @row = $sth->fetchrow_array) {
push @$software, $row[0];
push @$hardware, $row[1];
push @$services, $row[2];
}
$dbh->disconnect;
# Serialize the data into a string to be used as HTTP query parameters
my $httpParam = sprintf("year=%s&software=%s&hardware=%s&services=%s", $selectedYear,
join(",", @$software), join(",", @$hardware), join(",", @$services));
#
# The following code generates the ";
} else {
$optionTags->[$i - 1990] = "";
}
}
my $selectYearOptions = join("", @$optionTags);
print "Content-type: text/html\n\n";
print <
Database Integration Demo (2)
This example demonstrates creating a chart using data from a database. The database
query is performed in the containing HTML page. The data are then passed to the chart
generation pages as HTTP GET parameters.