#!/usr/bin/perl -w
use strict;
use IO::File;
use HTML::Entities;
use YAML;
my %title;
my $scene_title_h = IO::File->new("scene_title_short");
$scene_title_h->getline();
while (defined(my $line = $scene_title_h->getline())) {
chomp $line;
my ($scene, $title) = split /\t/, $line;
$title{$scene} = $title;
}
$scene_title_h->close();
# print Dump(\%title);
my @scenes;
my %scene_characters;
my $list;
my $scene;
my $scene_characters_h = IO::File->new("scenes_and_characters");
while (defined(my $line = $scene_characters_h->getline())) {
chomp $line;
if ($line eq "") {
$scene_characters{$scene} = $list; undef $list;
} elsif ($line =~ /^[0-9]/) {
$scene = $line;
push @scenes, $line;
$list = [];
} else {
push @$list, $line;
}
}
$scene_characters_h->close();
# print Dump(\%scene_characters, \@scenes);
my %role_actors;
my %actor_roles;
my %actors;
my $role_actor_h = IO::File->new("role_actor");
while (defined(my $line = $role_actor_h->getline())) {
chomp $line;
my ($role, $actor) = split /\t/, $line;
push @{$role_actors{$role}}, $actor;
push @{$actor_roles{$actor}}, $role;
$actors{$actor} = 1;
}
$role_actor_h->close();
# print Dump(\%role_actors);
print "\n";
print <<'MSOCRAPEND';
MSOCRAPEND
my $pagebreak = <
End
my $actor_count = 0; # XXX DEBUG
for my $actor (sort keys %actors) {
warn "$actor\n";
print "$actor
\n";
for my $role (@{$actor_roles{$actor}}) {
print " $role
\n";
}
print "
\n";
my $count = 0;
my $timetable_h = IO::File->new("timetable");
$timetable_h->getline();
while (defined(my $line = $timetable_h->getline())) {
if ($count ++) { print "
\n"; }
chomp $line;
my ($date, $scenes_lunch, $scenes_330, $other) = split /\t/, $line;
for ($scenes_lunch, $scenes_330, $other) { $_ ||= ''; }
my @scenes_330 = split /; /, $scenes_330;
my @other = split /; /, $other;
my ($month, $day) = split / /, $date;
my $yyyymmdd = sprintf("2004%02d%02d", $month, $day);
my $dow_month = `date -d $yyyymmdd +"%a %b"`; chomp $dow_month;
my ($dow, $month_name) = split / /, $dow_month;
print "$month_name $day $dow:
\n";
undef $scenes_lunch if !$scenes_lunch || !my_scene($actor, $scenes_lunch);
if ($scenes_lunch) {
my $title = encode_entities($title{$scenes_lunch});
print "Lunch - $scenes_lunch $title
\n";
}
@scenes_330 = grep {my_scene($actor, $_)} @scenes_330;
if (@scenes_330) {
print "3:30 - ";
my $n=0;
for my $scene (@scenes_330) {
my $comment = "";
if ($scene =~ /^(.*?)(\(.*?\))$/) {
$scene = $1; $comment = " $2";
}
if ($n++) { print " "x2; }
my $title = encode_entities($title{$scene});
$comment = encode_entities($comment);
print "$scene $title$comment
\n";
}
}
for (@other) {
print "$_
\n";
}
}
$timetable_h->close();
print $pagebreak;
# if (++$actor_count >= 3) { last }; # XXX DEBUG
}
print <<'MSOCRAPEND';
MSOCRAPEND
sub my_scene {
my ($actor, $scene) = @_;
if ($scene_characters{$scene}[0] eq "WHOLE CAST") { warn "WC"; return 1; }
for my $role (@{$actor_roles{$actor}}) {
for my $char (@{$scene_characters{$scene}}) {
if ($char eq $role) { return 1; }
}
}
return 0;
}