#!/usr/bin/perl

use strict;
use XML::Simple;
use Data::Dumper;
use CGI qw/:all/;

print header('text/html');
print <<__STYLE__
<style type="text/css">
td {
    vertical-align: top;
}
</style>
__STYLE__
;

my $tv = XMLin('raw.xml');

# channel names & global channel info - array of hashes
# can xref with programs by key: blebid
my $chan_names = $tv->{xmltvid};
# generate cross-referencing hash
my $chan_names = $tv->{xmltvid};
# generate cross-referencing hash
my %xmltvid;
foreach my $chan (@$chan_names) {
    $xmltvid{$chan->{content}} = $chan->{blebid};
}

# programs on BBC 1 - ref to array of hashes [example]
# my $channel = $tv->{channel}->{$xmltvid{'BBC 1'}}->{programme};
# &all_shows($channel, 'BBC 1');

print "<table border>\n";
&all_shows();
print "</table>\n";
sub all_shows {
    # my ($chanref, $channame) = @_;
    print "<tr>\n";
    foreach my $chan (keys %xmltvid) {
        print "  <th>$chan</th>\n";
    }
    foreach my $hour (0 .. 23) {
        print "</tr>\n<tr>\n";
        &this_hour($tv, $hour);
        print "</tr>\n<tr>\n";
        &this_hour($tv, $hour);
        print "</tr><tr>\n";
    }
}

sub this_hour {
    my ($tvref, $hour) = @_;
    # print '<pre>', Dumper $tvref, '</pre>';
    foreach my $chan (keys %xmltvid) {
        # my $chan = 'BBC 1';
        my $chanref =  $tvref->{channel}->{$xmltvid{$chan}}->{programme};
        print "  <td>";
        # print "<pre>", Dumper $chanref, "</pre>\n";
        my $i = 0;
        foreach my $prog (@$chanref) {
            if (substr($prog->{start}, 0, 2) == $hour) {
                print '<table><tr><td>', $prog->{start}, '-',
                $prog->{end}, '</td>',
                "<td><div title='$prog->{subtitle} $prog->{desc}'>$prog->{title}",
                "</div></td></tr></table>";
            }
        }
    }
}