#!/usr/bin/perl
use File::Basename;
#standard code to parse HTTP query parameters
%query = map {my($k,$v) = split(/=/)} split(/&/, $ENV{"QUERY_STRING"});
print "Content-type: text/html\n\n";
print "\n";
print "\n";
my $myFile = $query{"file"};
print "$myFile
\n";
print "Back to Chart Graphics
\n";
print "<![CDATA[\n";
open(INF, dirname($0)."/".basename($myFile));
foreach $line (<INF>) {
chomp($line);
print "$line\n";
}
close(INF);
print "]]>\n";
print "\n";
print "\n";