#!/usr/ug/bin/perl
open(EDIT, "<edited_lengths");
while (<EDIT>) {
($PN, $TI) = split("@");
$EDIT{"$PN"} = $TI;
}
close (EDIT);
open (OUT, ">episodes");
open(DATA, "<database");
while (<DATA>) {
    if (/^PN: (.*)/) {
	$PN=$1;
    } elsif (/^SN: (.*)/) {
	$SN=$1;
    } elsif (/^SE: (.*)/) {
	$SE=$1;
    } elsif (/^ST: (.*)/) {
	$ST=$1;
    } elsif (/^EN: (.*)/) {
	$EN=$1;
        $EN =~ tr/a-z/A-Z/;
    } elsif (/^TI: (.*)/) {
	$TI=$1;
    } elsif (/^DT: (.*)/) {
	$DT=$1;
    } elsif (/^NI: (.*)/) {
	$NI=$1;
    } elsif (/^AKA: (.*)/) {
        $AKA=$1;
    } elsif (/^GS: (.*)/) {
        $GS=$1;
    } elsif (/^HI: (.*)/) {
	$HI=$1;
	$HI =~ s/<BR>//g;
	$HI =~ s/<P>//g;
    } elsif (/^AD: (.*)/) {
	$AD=$1;
	$AD =~ s/<BR>//g;
	$AD =~ s/<P>//g;
    } elsif (/^TV: (.*)/) {
	$TV=$1;
	$TV =~ s/<BR>//g;
	$TV =~ s/<P>//g;
    } elsif (/^ED: (.*)/) {
	$ED=$1;
	$ED =~ s/<BR>//g;
	$ED =~ s/<P>//g;
    } elsif (/^----(.*)/) {
	print $PN, "\n";
	$line = <DATA>;
	$line =~ /^PN: (.*)/;
	$next = $1;
	print OUT <<EOF;
$PN|<A NAME="$PN"><A HREF="/st-tng/episodes/$PN.html">$TI</A></A></TD><TD>$NI
EOF
    $ED="";
    $EN="";
    $prev = $PN;
    $PN = $next;
    $AKA = "";
    $SN ="";
} else {
print;
}
}