#!/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");
$between=2;
while (<DATA>) {
    ($NUM, $PN)=split(/ /);
    chop($PN);
    $SE=$data{"$PN,SE"};
    open(OUT, ">>../../sttng-$SE.html");
    print OUT <<EOF;
<TD VALIGN=TOP> 
<IMG ALT="" WIDTH=250 SRC="pics/hrule.gif"><BR>
<P ALIGN=CENTER><B><FONT SIZE=+2><A HREF="episodes/$PN.html">$data{"$PN,TI"}</A></FONT></B></P>
EOF

if (-e "../images/$PN-2.jpg") {
$len = (-s "../images/$PN-2.jpg");
$len/=1024;
if (($len - int($len)) >= 0.5) {
$len = int($len) + 1;
} else {
$len = int($len);
}
$SIZE=`jpegSize ../images/$PN-2.jpg`;
chop($SIZE);
print OUT <<EOF;
<P ALIGN=CENTER><IMG ALT="(${len}K)" ALIGN=TOP $SIZE SRC="episodes/images/$PN-2.jpg"></P>
<P ALIGN=CENTER><IMG ALT="" WIDTH=250 SRC="pics/hrule.gif"></P> 
EOF
}
    print OUT <<EOF;
</P>
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>Nielsen 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 <<EOF;
</UL>
</TD>
EOF

    if ($between==1) { 
	print OUT <<EOF;
<TD WIDTH=2 HEIGHT=400 VALIGN=CENTER><IMG WIDTH=2 HEIGHT=400 SRC="pics/vert.gif"></TD>
EOF
	$between=2; 
    } else {
	print OUT "</TR><TR><TD></TD>";
	$between=1; 
    }
    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`;