#!/usr/ug/bin/perl

open(EDIT, "<../edited_lengths");
while (<EDIT>) {
    ($PN, $TI) = split("@");
    $EDIT{"$PN"} = $TI;
}
close (EDIT);

open(DATA, "<../database");
while (<DATA>) {
    if (/^PN: (.*)/) {
	$PN=$1;
    }
    if (/^SE: (.*)/) {
	$data{"$PN,SE"}=$1;
    } elsif (/^ST: (.*)/) {
	$data{"$PN,ST"}=$1;
    } elsif (/^EN: (.*)/) {
	$data{"$PN,EN"}=$1;
        $data{"$PN,EN"} =~ tr/a-z/A-Z/;
    } elsif (/^TI: (.*)/) {
	$data{"$PN,TI"}=$1;
    } elsif (/^DT: (.*)/) {
	$data{"$PN,DT"}=$1;
    } elsif (/^NI: (.*)/) {
	$data{"$PN,NI"}=$1;
    } elsif (/^GS: (.*)/) {
        $data{"$PN,GS"}=$1;
    } elsif (/^HI: (.*)/) {
	$data{"$PN,HI"}=$1;
	$data{"$PN,HI"} =~ s/<BR>/ /g;
	$data{"$PN,HI"} =~ s/<P>/ /g;
	$data{"$PN,HI"} =~ s/^"[^"]*" - //;
    } elsif (/^AD: (.*)/) {
	$data{"$PN,AD"}=$1;
	$data{"$PN,AD"} =~ s/<BR>//g;
	$data{"$PN,AD"} =~ s/<P>//g;
    } elsif (/^TV: (.*)/) {
	$data{"$PN,TV"}=$1;
	$data{"$PN,TV"} =~ s/<BR>//g;
	$data{"$PN,TV"} =~ s/<P>//g;
    } elsif (/^ED: (.*)/) {
	$data{"$PN,ED"}=$1;
	$data{"$PN,ED"} =~ s/<BR>//g;
	$data{"$PN,ED"} =~ s/<P>//g;
    }
}
close(DATA);

`cp sttng1a.html ../../../Sttng-1.html`;
`cp sttng2a.html ../../../Sttng-2.html`;
`cp sttng3a.html ../../../Sttng-3.html`;
`cp sttng4a.html ../../../Sttng-4.html`;
`cp sttng5a.html ../../../Sttng-5.html`;
`cp sttng6a.html ../../../Sttng-6.html`;
`cp sttng7a.html ../../../Sttng-7.html`;

open(DATA, "<../airorder");
while (<DATA>) {
    ($NUM, $PN)=split(/ /);
    chop($PN);
    $SE=$data{"$PN,SE"};
    open(OUT, ">>../../../Sttng-$SE.html");
    print OUT <<EOF;
<TD VALIGN=TOP> 
<P ALIGN=CENTER><B><FONT SIZE=+2><A HREF="episodes/$PN.html">$data{"$PN,TI"}</A></FONT></B></P>
<IMG ALT="" WIDTH=250 SRC="pics/hrule.gif"><BR>
EOF
    print OUT $data{"$PN,HI"}, "\n";

print OUT <<EOF;
<UL>
<LI>$data{"$PN,DT"}
<LI>Episode Number: $NUM
<LI>Production Number: $PN
<LI>Stardate: $data{"$PN,ST"}
<LI>WWW Rating: [<!--#include file="episodes/ratings/$PN.stars"-->]
EOF
if ($EDIT{"$PN"} ne "") {
print OUT <<EOF;
<LI>Edited Length: $EDIT{"$PN"}
EOF
}
if ($data{"$PN,NI"} ne "[/]") {
print OUT <<EOF;
<LI>Neilsen Rating/Rank: $data{"$PN,NI"}
EOF
}

if (-e "../../credits/$PN.html") { print OUT "<LI><A HREF=\"episodes/credits/$PN.html\">Credits transcription</A>"; } 
if (-e "../../promo/$PN.html") {
print OUT "<LI><A HREF=\"episodes/promo/$PN.html\">Promo transcription</A>"; } 
if (-e "../../press/$PN.html") {print OUT "<LI><A HREF=\"episodes/press/$PN.html\">Press Release</A> ";}
if (-e "../../quotes/$PN.html") {print OUT "<LI><A HREF=\"episodes/quotes/$PN.html\">Quotes</A>"}
if (-e "../../reviews/$PN.html") {
print OUT "<LI><A HREF=\"episodes/reviews/$PN.html\">Reviews</A>"; } 
print OUT "</UL>\n<IMG ALT=\"\" WIDTH=250 SRC=\"pics/hrule.gif\"><BR>\n";
if (-e "../../images/$PN-2.jpg") {
$SIZE=`jpegSize ../../images/$PN-2.jpg`;
print OUT "<P ALIGN=CENTER><IMG HSPACE=0 VSPACE=0 ALT=\"[PIC]\" ALIGN=TOP $SIZE SRC=\"episodes/images/$PN-2.jpg\"></P>";} 
print OUT <<EOF;
</TD>
EOF
    close(OUT);
}

`cat sttng1b.html>>../../../Sttng-1.html`;
`cat sttng2b.html>>../../../Sttng-2.html`;
`cat sttng3b.html>>../../../Sttng-3.html`;
`cat sttng4b.html>>../../../Sttng-4.html`;
`cat sttng5b.html>>../../../Sttng-5.html`;
`cat sttng6b.html>>../../../Sttng-6.html`;
`cat sttng7b.html>>../../../Sttng-7.html`;