#!/usr/bin/perl
$qs = $ENV{'QUERY_STRING'};
print "Content-type: text/html\n\n";
$qseries = $qs;
$qseries =~ s/series=//;
$qseries =~ s/\&.*//;
$qepisode = $qs;
$qepisode =~ s/episode=//;
$qepisode =~ s/^.*\&//;
print "\n\n\tPress Gang\n\n\n";
print "\n";
print "![\"Press](\"../images/pg-logo.gif\")
\n";
print "![\"The](\"../images/headings/the-storylines.jpg\")
\n\n";
open (DATA, "episodes.db");
while () {
($series, $episode, $title, $summary, $rmin, $rsec, $trans1, $trans2, $trans3, $trans4) = split(/ /);
if (($series == $qseries) && ($episode == $qepisode)) {
print "$title
\n";
print "(Series $series, Episode $episode)
\n";
print "$summary
\n\n";
print "\n";
print "\t- U.K. Transmissions\n";
print "\t
- $trans1\n";
print "\t
- $trans2\n";
if ($trans3) {
print "\t
- $trans3\n";
}
if ($trans4) {
print "\t
- $trans4\n";
}
print "\n\t
- Running Time\n";
print "\t
- $rmin minutes $rsec seconds\n";
print "
\n\n";
}
}
close (DATA);
print "\n";
print "\n";