$heading
End
my $tab = " ";
my $timetable_h = IO::File->new("timetable");
$timetable_h->getline();
while (defined(my $line = $timetable_h->getline())) {
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 $today = `date -d $yyyymmdd +"%A %B %e"`; chomp $today; $today =~ s/ / /;
if ($today =~ /Monday/) { print $pagebreak; }
if ($scenes_lunch || @scenes_330 || @other) {
print big($today);
}
if ($scenes_lunch) {
print big("Lunch: 1.00 - 1.30");
print_scene($scenes_lunch);
}
if (@scenes_330) {
print big("After School: 3.30 - 5.00");
for my $scene (@scenes_330) {
print_scene($scene);
}
}
if (@other) {
for (@other) {
print big($_);
}
print "
\n";
}
}
$timetable_h->close();
print <<'MSOCRAPEND';
MSOCRAPEND
sub print_scene {
my ($scene) = @_;
my ($act, $sc) = split /\./, $scene;
my $title = "ACT ".("I"x$act)." - Scene $sc — ".uc($title{$scene});
print big($title, 14);
for my $character (@{$scene_characters{$scene}}) {
my $character_disp = $character;
$character_disp =~ s,\bOrphan\b,orphan,;
print "$character";
for my $actor (@{$role_actors{$character}}) {
print "$tab$actor
\n";
}
if (!@{$role_actors{$character}}) { print "
\n"; }
}
print "
\n";
}
sub big {
my ($text, $size) = @_;
$size ||= 20;
return "$text
\n";
}