#!/usr/bin/perl open(EDIT, ") { ($PN, $TI) = split("@"); $EDIT{"$PN"} = $TI; } close (EDIT); $number=0; open(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/
//g; $HI =~ s/

//g; } elsif (/^AD: (.*)/) { $AD=$1; $AD =~ s/
//g; $AD =~ s/

//g; } elsif (/^TV: (.*)/) { $TV=$1; $TV =~ s/
//g; $TV =~ s/

//g; } elsif (/^ED: (.*)/) { $ED=$1; $ED =~ s/
//g; $ED =~ s/

//g; } elsif (/^----(.*)/) { print $PN, "\n"; $line = ; $line =~ /^PN: (.*)/; $next = $1; $yst=$number*33; # `pnmcut 0 $yst 397 33 titles.pnm | ppmtogif -transparent rgb:00/00/00 > $PN.gif`; $number++; open (OUT, ">../$PN.html"); print OUT < TNG Episode: $TI, Stardate $ST

EOF if (-e "../credits/$PN.html") { print OUT "";} if (-e "../promo/$PN.html") { print OUT "";} if (-e "../press/$PN.html") { print OUT "";} if (-e "../quotes/$PN.html") { print OUT "";} if (-e "../reviews/$PN.html") { print OUT "";} print OUT < (17K)
[ <-- | EOF if (-e "../credits/$PN.html") { print OUT "CREDITS | "; } else { print OUT "CREDITS | "; } if (-e "../promo/$PN.html") { print OUT "PROMO | "; } else { print OUT "PROMO | "; } if (-e "../press/$PN.html") {print OUT "PRESS | ";} else { print OUT "PRESS | "; } if (-e "../quotes/$PN.html") {print OUT "QUOTES | "} else { print OUT "QUOTES | "; } if (-e "../reviews/$PN.html") { print OUT "REVIEWS | "; } else { print OUT "REVIEWS | "; } if ($SN ne "") { print OUT "SNAFUS | "; } print OUT <--> ]

$TI
EOF if ($AKA ne "") { print OUT "Working Title: $AKA
\n"; } print OUT < Rating:

Edited Length: $EDIT{"$PN"}
U.S. Airdate: $DT
EOF print OUT "Nielsen Rating/Rank: $NI
\n" unless ($NI eq "[/]"); if ($EN ne "") { print OUT < This Episode was Nominated for Emmy(s)!
$EN

EOF } print OUT "$GS

"; print OUT "
\"\"
\"\"\"\""; if (-e "../images/$PN-1.jpg") { $len = (-s "../images/$PN-1.jpg"); $len/=1024; if (($len - int($len)) >= 0.5) { $len = int($len) + 1; } else { $len = int($len); } $SIZE=`jpegSize ../images/$PN-1.jpg`; print OUT "\"(${len}K)\"";} else {print OUT "\"(4K)\"";} print OUT "\"\""; 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`; print OUT "\"(${len}K)\"";} else {print OUT "\"(5K)\"";} print OUT "\"\""; if (-e "../images/$PN-3.jpg") { $len = (-s "../images/$PN-3.jpg"); $len/=1024; if (($len - int($len)) >= 0.5) { $len = int($len) + 1; } else { $len = int($len); } $SIZE=`jpegSize ../images/$PN-3.jpg`; print OUT "\"(${len}K)\"";} else {print OUT "\"(5K)\"";} print OUT "\n

\n"; print OUT < TNG Webnews ---------------------------------------------------------

Currently, this feature is disabled... Sorry.

TNG Rate ------------------------------------------------------------

1 2 3 4 5 6 7 8 9 10

Extended Synopsis (by Tim Lynch) ------------------------------------

Highlight Listing:
$HI
Advertising Headline:
$AD
TV log listing:
$TV EOF if ($SN ne "") { print OUT "
Operation SNAFU
"; print OUT $SN; if ($ED ne "") { print OUT "

Editor's Note:
$ED"; } } print OUT <

[ Mr. Video Productions ]

Andrew Tong

Technical design, graphic design, interactive features, HTML & CGI programming by Andrew Tong. || All materials Copyright © 1987-1995 by their respective authors. || Document created: January 28, 1995 || Last Modified:

EOF $ED=""; $EN=""; $prev = $PN; $PN = $next; $AKA = ""; $SN =""; } else { print; } } #

# #