Open Source Odeon
Open Source Odeon:
Now showing |
Coming soon |
Find a cinema
EOF
# ----- Now let's do the work!
if ($cmd eq 'n' or $cmd eq '') {
# ----- Now showing
@ojs=Get_Odeon_JS('page=films.js&Parameters=TYPE~N');
ProcessVars(@ojs);
print "Now showing
\n";
print "Current top five
\n";
print ""; ListFilms(ParseCSV($var{'top_five_films'})); print "
";
print "New releases
\n";
print ""; ListFilms(ParseCSV($var{'nr_films'})); print "
";
print "All films
\n";
print ""; ListFilms(ParseCSV($var{'nscs_films'})); print "
";
} elsif ($cmd eq 'c') {
# ----- Coming soon
@ojs=Get_Odeon_JS('page=films.js&Parameters=TYPE~C');
ProcessVars(@ojs);
print "Coming soon
";
print "Forthcoming films
\n";
print ""; ListFilms(ParseCSV($var{'nscs_films'})); print "
";
print "Future highlights
\n";
print ""; ListFilms(ParseCSV($var{'fh_films'})); print "
";
} elsif ($cmd eq 'f') {
# ----- Film details
$film=$formdata{'film'};
$filmreadable=$film;
$filmreadable=~s/_/ /g;
$filmreadable=~s/([\w']+)/\u\L$1/g;
@ojs=Get_Odeon_JS("page=film_x.js&Parameters=FILM~$film");
ProcessVars(@ojs);
print "$filmreadable ($var{'certificate'})
";
print "$var{'synopsis'}
";
print "Running time $var{'runtime'} minutes
";
print "Director $var{'director'}
";
@stars=ParseCSV($var{'keyCast'});
if (@stars) { print "Starring: @stars
"; }
if ($var{'showing'}==1) { print "Now showing "; }
else { print "
Coming soon "; }
print "(released $var{'releaseDate'}) ";
@cinemas=ParseCSV($var{'cinema_id'});
if (@cinemas) { print "at:"; ListCinemas(@cinemas); }
print "
";
} elsif ($cmd eq 'r') {
# ----- Region or cinema listing
if (exists $formdata{'region'}) {
# List cinemas in a region
$region=$formdata{'region'};
$regionreadable=$region;
$regionreadable=~s/_/ /g;
print "$regionreadable
\n";
@ojs=Get_Odeon_JS("Page=regionx.js&Parameters=REGION~$region");
ProcessVars(@ojs);
ListCinemas(ParseCSV($var{'cinemas'}));
} else {
# List all regions
print "Select a region
";
WriteRegion('Central London');
WriteRegion('Greater London');
WriteRegion('Midlands');
WriteRegion('Channel Islands');
WriteRegion('North East England');
WriteRegion('North West England');
WriteRegion('Scotland');
WriteRegion('South East England');
WriteRegion('South West England');
WriteRegion('Wales');
print "
";
}
} elsif ($cmd eq 'a') {
# ----- What's on at a particular cinema
$cinema=$formdata{'cinema'};
$cinemareadable=$cinema;
$cinemareadable=~s/_/ /g;
$cinemareadable=~s/(\w+)/\u\L$1/g;
# What's on
print "$cinemareadable
\n";
print "What's on
\n";
@ojs=Get_Odeon_JS("page=cinema_xy.js&Parameters=CINEMA~$cinema");
ProcessVars(@ojs);
@dates=ParseCSVSingleQuotes($var{'d'});
@films=ParseCSVSingleQuotes($var{'f'});
@perfs=ParseCSVSingleQuotes($var{'p'});
@schedule=unpack('(A6)*',$var{'data'});
$lastdate=999;
foreach $perf (@schedule) {
($dateno,$filmno,$perfno)=unpack('(A2)*',$perf);
$dateno=hex $dateno;
$filmno=hex $filmno;
$perfno=hex $perfno;
if ($dateno ne $lastdate) {
if ($lastdate!=999) { print "\n"; }
print "$dates[$dateno]
\n";
$lastdate=$dateno;
}
$film=$films[$filmno];
$film=~s/\\//g;
$filmurl=Paramify($film);
$filmurl=~s/__\(.*\)$//;
print "- $film: $perfs[$perfno]\n";
}
if ($lastdate!=999) { print "
\n"; }
print "For information, call $var{'filmlineNumber'}
";
print "Disability information call $var{'disabilityNumber'}
";
$loveseat=$var{'love_seat'};
$audio=$var{'dda'};
# Cinema information
print "About this cinema
\n";
@ojs2=Get_Odeon_JS("page=cinema_info.js&Parameters=CINEMA~$cinema");
ProcessVars(@ojs2);
print "Address: $var{'address'}
";
for ($i=17; $i<=$#ojs2; $i++) {
if ($ojs2[$i]=~/new header\("([^"]*)","([^"]*)"\)/) { print "$1: $2
\n"; }
}
if ($loveseat eq 'Y') { print "Lurve seats available
\n"; }
if ($audio eq 'Y') { print "Audio description technology installed
\n"; }
}
# =================================
# Subroutines follow
# =================================
# ------ Get_Odeon_JS subroutine
# takes query string for Display.page, returns document as string
sub Get_Odeon_JS {
my $qs=$_[0];
return split(/\n/,get ("http://www.odeon.co.uk/pls/Odeon/Display.page?$qs")) or die ("Couldn't get $qs: $!\n");
}
# ------ Parse_Form subroutine
# this version handles both POST and GET
sub Parse_Form {
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
@pairs=split(/&/, $ENV{'QUERY_STRING'});
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
if ($ENV{'QUERY_STRING'}) {
@getpairs=split(/&/, $ENV{'QUERY_STRING'});
push (@pairs,@getpairs);
}
}
foreach $pair (@pairs) {
($key, $value) = split (/=/, $pair);
$key =~ tr/+/ /;
$key =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
if ($formdata{$key}) { $formdata{$key} .= ", $value"; }
else { $formdata{$key} = $value; }
}
}
# -------------------
# ParseCSV subroutine
sub ParseCSV {
my $str = @_ ? shift : $_;
my @ret;
while ($str =~ /\G\s*(?!$)("[^"]*(?:""[^"]*)*"|[^,"]*),?/g) {
push @ret, $1;
$ret[-1] =~ s/\s+$//;
if ($ret[-1] =~ s/^"//) { chop $ret[-1]; $ret[-1] =~ s/""/"/g }
}
return @ret;
}
sub ParseCSVSingleQuotes {
my $str=substr($_[0],1).",'";
return split(/','/,$str);
}
# -------------------
# Paramify subroutine
sub Paramify {
my $str=$_[0];
$str=~s/['.]//g;
$str=~s/ /_/g;
return $str;
}
# ----------------------
# WriteRegion subroutine
sub WriteRegion {
my $region=$_[0];
my $regurl=Paramify($region);
print "$region\n";
}
# ----------------------
# ListCinemas subroutine
sub ListCinemas {
print "";
foreach my $cinema (@_) {
$cinema=~s/\\//g;
my $cinurl=Paramify($cinema);
print "- $cinema ";
}
print "
";
}
# --------------------
# ListFilms subroutine
sub ListFilms {
foreach my $film (@_) {
my $filmurl=Paramify($film);
$film=~s/([\w']+)/\u\L$1/g;
print "$film\n";
}
}
# ----------------------
# ProcessVars subroutine
sub ProcessVars {
%var=();
foreach my $line (@_) {
foreach my $subline (split(/; var /,$line)) {
if ($subline=~/^var /) { $subline=substr($subline,4);}
$subline=~s/;$//;
if ($subline=~/^([^=\s]*)\s?=\s?(.*)$/) {
my $varname=$1;
my $value=$2;
if ($value=~/^".*"$/) { $value=substr($value,1,-1); }
elsif ($value=~/^\[.*\]$/) { $value=substr($value,1,-1); }
$value=~s/\\//g;
$var{$varname}=$value;
}
}
}
}