#!/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);
#
# The following code generates the ";
} else {
$optionTags->[$i - 1990] = "";
}
}
my $selectYearOptions = join("", @$optionTags);
print "Content-type: text/html\n\n";
print <