#!/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);
print "\n";
print <<'MSOCRAPEND';
MSOCRAPEND
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";
if ($scenes_lunch) {
my $title = encode_entities($title{$scenes_lunch});
print "Lunch - $scenes_lunch $title
\n";
}
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 <<'MSOCRAPEND';
MSOCRAPEND