#!/usr/ug/bin/perl
open (PAGE, ">old.html");
while ($name=) {
open (FILE,$name);
$name=~ /old\/.*/;
$name=$&;
substr($name,0,4)="";
push (@names,$name);
($title)=split( /\|/, );
}
print PAGE "Bygone Reviews";
print PAGE "Old Reviews
\n";
print PAGE "
Reading these will give you an idea of what the reviewers' tastes are, so that y
ou may better judge whether to trust our opinions of recent films.
";
print PAGE "
";
while ($name=) {
open (FILE,$name);
$name=~ /old\/.*/;
$name=$&;
substr($name,0,4)="";
print PAGE "";
($title,$score)=split(/\|/, );
print PAGE "$title<\/b><\/a> $score
";
$review= ;
chop ($review);
print PAGE "$review";
print PAGE "";
}
print PAGE "
Mike Benedetti \/ benedett@ugcs.caltech.edu<\/a>
with special guest reviewers
Bobby Bodenheimer \/ bobby@hot.caltech.edu
Michael Radford / mrad@ugcs.caltech.edu
Adam Villani \/ addam@cco.caltech.edu<\/a>
All reviews on these pages are copyright (c) 1995 by the authors. Yes, the idea
of someone stealing our reviews amuses me, too.
";
close (PAGE);