#!/usr/ug/bin/perl open (PAGE, ">index.shtml"); while ($name=) { open (FILE,$name); $name=~ /new\/.*/; $name=$&; substr($name,0,4)=""; print "$name\n"; push (@names,$name); ($title)=split( /\|/, ); push (@titles,$title); } open (DATE, "date +%A|"); $date=; chop ($date); open (DATE, "date +%B|"); $date=$date . ", " . ; open (DATE, "date +%d|"); $date=$date . " " . ; chop ($date); print PAGE "Pasadena Area Film Guide"; print PAGE "

Pasadena Area Film Guide

\n"; print PAGE " Last updated $date.
<\/i>

A more-or-less comprehensive list of what's playing this week in Pasadena.

Caltech users can find out what's showing at Caltech<\/a>. We also list a couple of cool non-Pasadena<\/a> theatres and other movie stuff<\/a>, including the 5 Best... lists.

Let us know<\/a> if you have any comments or find any errors.

The Movies<\/h3> Click on the theatre name to find out more about that particular showing. Or, call (310) 777-FILM<\/b>, the LA Times Movieline.
You can find out almost anything from the
Internet Movie Database<\/a>.
If you'd rather, you can search
by theatre<\/a>. Our comprehensive rating system is here<\/a>.

"; foreach $title (@titles) { $name=shift(@names); print PAGE "
$title<\/a> | "; } print PAGE "
"; while ($name=) { open (FILE,$name); $name=~ /new\/.*/; $name=$&; substr($name,0,4)=""; ($title,$score)=split(/\|/, ); # START OF CHANGES # $entry is the name the movie database will use. $entry = $title; # Change all spaces to + $entry =~ s/ /\+/g; # If it started with an article, put it at the end. if (substr($entry,0,2) eq "A+") { $entry = substr($entry,2,length($entry)) . ",+A"; } if (substr($entry,0,3) eq "An+") { $entry = substr($entry,3,length($entry)) . ",+An"; } if (substr($entry,0,4) eq "The+") { $entry = substr($entry,4,length($entry)) . ",+The"; } # Add link to the database print PAGE "\n"; print PAGE "
<\/a>"; print PAGE "$title<\/b><\/a> $score
"; # END OF CHANGES $review= ; chop ($review); print PAGE "$review"; while ($show=) { ($theatre,$times)=split(/\|/,$show); print PAGE "
"; if ($theatre eq "nuart" || $theatre eq "capitan") { print PAGE "
"; } else { print PAGE ""; } if ($theatre eq "academy") { print PAGE "Academy Theatre"; push (@academy,$name); } if ($theatre eq "amc") { print PAGE "AMC Old Pasadena"; push (@amc,$name); } if ($theatre eq "colorado") { print PAGE "Colorado"; push (@colorado,$name); } if ($theatre eq "esquire") { print PAGE "Esquire"; push (@esquire,$name); } if ($theatre eq "rialto") { print PAGE "Rialto"; push (@rialto,$name); } if ($theatre eq "nuart") { print PAGE "Nuart"; } if ($theatre eq "capitan") { print PAGE "El Capitan"; } if ($theatre eq "mann") { print PAGE "Mann's Hastings"; push (@mann,$name); } if ($theatre eq "pacific") { print PAGE "Pacific's Hastings"; push (@pacific,$name); } if ($theatre eq "state") { print PAGE "State Theatre"; push (@state,$name); } if ($theatre eq "ua") { print PAGE "UA Marketplace"; push (@ua,$name); } print PAGE "<\/a>: $times"; } print PAGE "

\n"; } print PAGE " <\/a>

The Ratings<\/h3> WW<\/i> - W<\/b>ell-W<\/b>orth Watching.
W<\/i> - W<\/b>orth watching.
WC<\/i> - W<\/b>orth watching for C<\/b>heap (\$3 or less).
NW<\/i> - N<\/b>ot W<\/b>orth watching.
?<\/i> - Haven't seen it. We're not going to even pretend that we know how good these movies are.
Mike Benedetti \/ benedett@ugcs.caltech.edu<\/a>
with special guest reviewers
Bobby Bodenheimer \/ bobby@hot.caltech.edu
Richard Mason \/ mason@cco.caltech.edu
Michael Radford / mrad@ugcs.caltech.edu
Adam Villani \/ addam@cco.caltech.edu<\/a>
Julius Yang / julius@rhythm.com
Thanks to Presto for linking to the Internet Movie Database.
All reviews on these pages are copyright (c) 1996 by the authors. Yes, the idea of someone stealing our reviews amuses me, too. "; close (PAGE); # Now we do the theatres open (PAGE, ">theatres.html"); print PAGE " Pasadena Area Theatres<\/title> [ <a href=\"#academy\">Academy<\/a> | <a href=\"#amc\">AMC<\/a> | <a href=\"#garfield\"> Garfield<\/a> | <a href=\"#kuohwa\">Kuo Hwa<\/a> | <a href=\"#colorado\">Colorado<\/a> | <a href=\"#esquire\">Esquire<\/a> | <a href=\"#rialto\">Rialto<\/a> | <a href=\"#mann\">Mann's Hastings<\/a> | <a href=\"#pacific\">Pacific's Hastings<\/a> | <a href=\"#state\">State Theatre<\/a> | <a href=\"#ua\">UA Marketplace<\/a> ]<br> <h1>The Theatres of Pasadena<\/h1>* means that no special passes, etc. will be accepted.<br> <i>Last updated $date.</i> <p> <b>Times change from day to day, so we update several times a week to stay current.</b> <p> Due to popular demand, we're now listing the sound systems in the theatres when this information is available.<ul> <li><b>S</b>--Stereo! <li><b>SDDS</b>--Sony Dynamic Digital Stereo! <li><b>SRD</b>--SR Dolby! <li><b>THX</b>--THX! </ul> "; print PAGE " <h3><a name=\"academy\">Academy Theatre<\/a><\/h3> 1003 E. Colorado Blvd. Pasadena (818) 585-2278<br> \$3.00 general admission \$2.00 on Wednesdays<br> <a href=\"academy.html\">The Academy's sound system<\/a><br> "; unshift (@academy,"academy"); &DoTheatre(@academy); print PAGE " <h3><a name=\"amc\">AMC Old Pasadena<\/a><\/h3> One Colorado Blvd. Pasadena (818) 585-8900<br> \$6.75 general admission \$4.75 with student ID \$4.25 matinee<br> \$3.75 55+ and kids 2-13 \$3.75 twilight shows (twilight is the 5\/6 pm shows)<br> "; unshift (@amc,"amc"); &DoTheatre(@amc); print PAGE " <h3><a name=\"garfield\">Garfield<\/a><\/h3> 576-2504<br> I'd tell you to call them for shows and times, except they don't answer my own calls. Pablo has a <a href=\"http:\/\/www.ugcs.caltech.edu\/~pablo\/hkla.shtml#Garfield\">listing<\/a> for them. <h3><a name=\"kuohwa\">Kuo Hwa<\/a><\/h3> (310) 282-5838<br> See <a href=\"http:\/\/www.ugcs.caltech.edu\/~pablo\/hkla.shtml#Kuo Hwa\">here<\/a> for listings. It's a good idea to call first. "; print PAGE " <h3><a name=\"colorado\">Laemmle's Colorado<\/a><\/h3> 2588 E. Colorado Blvd. Pasadena (818) 796-9704<br> \$7.00 general admission \$4.00 65+ and kids under 11<br> popcorn \$2.00\/2.75\/3.50 pop \$1.50\/2.00\/2.50 candy \$1.50\/1.75\/2.00\/2.75<br> ice cream \$1.25\/2.50 natural juices\/mineral water\/snapple\/chilled sahara \$2.00<br> "; unshift (@colorado,"colorado"); &DoTheatre(@colorado); print PAGE " <h3><a name=\"esquire\">Laemmle's Esquire<\/a><\/h3> 2670 E. Colorado Blvd. Pasadena (818) 793-6149<br> Same pricing as Colorado above.<br> "; unshift (@esquire,"esquire"); &DoTheatre(@esquire); print PAGE " <h3><a name=\"rialto\">Landmark's Rialto<\/a><\/h3> 1023 S. Fair Oaks Ave. South Pasadena (818) 799-9567<br> \$7.00 general admission \$4.00 kids and seniors<br> "; unshift (@rialto,"rialto"); &DoTheatre(@rialto); print PAGE " <h3><a name=\"mann\">Mann Hastings Ranch<\/a><\/h3> 467 N. Rosemead Blvd. Pasadena (818) 351-8939<br> \$7.00 general admission \$5.00 student ID \$4.50 matinee<br> "; unshift (@mann,"mann"); &DoTheatre(@mann); print PAGE " <h3><a name=\"pacific\">Pacific Hastings<\/a><\/h3> 355 N. Rosemead Blvd. Pasadena (818) 351-7555<br> \$7.00 general admission \$4.00 for seniors and kids under 12<br> First two matinees \$4.50 Student price \$5.00<br> "; unshift (@pacific,"pacific"); &DoTheatre(@pacific); print PAGE " <h3><a name=\"state\">State Theatre<\/a><\/h3> 770 E. Colorado Blvd. Pasadena (818) 792-3540<br> \$4.00 general admission \$3.00 65+ and kids under 12<br> UNDERGOING MAJOR WEIRDNESS. STILL SHOWING FILMS ON A DAY TO DAY BASIS.<BR> "; unshift (@state,"state"); &DoTheatre(@state); print PAGE " <h3><a name=\"ua\">UA Marketplace<\/a><\/h3> 64 W. Colorado Blvd. Pasadena (818) 795-1386<br> \$7.00 general admission \$4.00 seniors and kids<br> hot dog \$2.25 nachos \$3.25 ice cream \$2.50 Frontier Clear \$2.00\/2.75<br> drinks \$2.25\/2.50\/2.75 popcorn \$2.75\/3.50\/3.75 candy \$1.25\/1.75\/2.25<br> "; unshift (@ua,"ua"); &DoTheatre(@ua); print PAGE " <hr> benedett@ugcs.caltech.edu "; sub DoTheatre { print PAGE "<ul>"; local ($theatre,@theatre,$file); @theatre=@_; $theatre=shift(@theatre); foreach $show (@theatre) { $file="/home/benedett/www/data/movies/new/" . $show; open (FILE, $file) || die "Can't find files"; $line=<FILE>; ($name)=split(/\|/,$line); $null=<FILE>; while ($line=<FILE>) { ($place,$times,$star)=split(/\|/,$line); if ($place ne $theatre) { next; } print PAGE "<li><a href=\"index.shtml#$show\">$star$name<\/a>:$times<br>"; } } print PAGE "<\/ul>"; }