#!/usr/bin/perl
# tv2html.pl - Converts sorted XMLTV files to HTML
# Copyright (C) 2002  Toby A Inkster
#    
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or   
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

# input must be a sorted XMLTV file.
# output is an HTML TV guide.

use XMLTV;

$DEBUG = True;

# Find input file name
$filename = '-' if (@ARGV == 0);
$filename = $ARGV[0] if (@ARGV == 1);
usage() if (@ARGV > 1);

# This bit is shamelessly stolen from tv_sort -- obtain list of programs
($encoding, $credits, $channels, $progs) = @{XMLTV::parsefile($filename)};
@progs = @$progs;
@allChannels = sort (keys %$channels);

# Set date and time to some sort of pre-historic values:
$myDate  = '19800601';
$myHour  = '25';
$myClass = 'listCell1';

# boolean (1 or 0) indicating whether the top of the table has been
# printed.
$myTop   = 0;

# loop through all programs
foreach my $thisProg (@progs)
{
  # just in case
  %pd = ();

  # gather program details
  $pd{time}         = $thisProg->{start};
  $pd{channel}      = $thisProg->{channel};
  $pd{title}        = $thisProg->{title}->[0]->[0];
  $pd{subtitle}     = $thisProg->{'sub-title'}->[0]->[0];
  $pd{description}  = $thisProg->{desc}->[0]->[0];
  $pd{category}     = $thisProg->{category}->[0]->[0];
                      # I don't really care about things like
                      # subtitles, stereo, star rating, ep number,
                      # etc. If you do, feel free to add them.

  # prepare less immediate info
  $pd{date}         = substr($pd{time}, 0, 8);
  $pd{hour}         = substr($pd{time}, 8, 2);
  $pd{time}         = substr($pd{time}, 8, 4);   # for pretty
                                                 # printing
  if($myTop == 0 && $myDate ne '19800601')
  {
   $myTop = 1;
   &dump_html_head();
  }

  # if we're on to a new hour, then print out the TV guide for
  # the previous hour and then reset our accumulator.
  if ( $pd{hour} != $myHour)
  {
    &dump_out_html();
#    &dump_out_text();
    $myHour = $pd{hour};  $myDate = $pd{date};  %guideHash = ();
  }

  # NASTY DATA FORMAT!!!
  #   Examples -- 8pm, Friday:
  #     $guideHash{'bbc1.bbc.co.uk'}[0]{title} = 'EastEnders'
  #     $guideHash{'bbc1.bbc.co.uk'}[0]{time}  = '20:00'
  #     $guideHash{'bbc1.bbc.co.uk'}[1]{title} = 'Alistair McGowan's Big Impression'
  #     $guideHash{'bbc1.bbc.co.uk'}[1]{time}  = '20:30'
  #  This is a hash within an array within a hash
  push @{ $guideHash{$pd{channel}} }, { %pd };
}

# Print out the last hour
&dump_out_html();
#&dump_out_text();

&dump_html_foot();

##########################################################################
##########################################################################
##########################################################################
##########################################################################
##########################################################################
##########################################################################
##########################################################################


# Function for debugging. Plain text is a little easier to read on the
# console than HTML.
sub dump_out_text() {
  print "------------------------------------\n";
  print "Date: $myDate   Hour: $myHour\n";
  foreach $channel (@allChannels) {
    print " $channel:\n";
    @progList = @{ $guideHash{$channel} };
    foreach $prog (@progList) {
      print "  $prog->{time} - $prog->{title} ($prog->{category})\n";
    }
  }
}


# HTML Output
sub dump_out_html() {

  # dummy date
  if ($myDate ne '19800601') {

    # print out a banner if it's midnight.
    if ($myHour eq '00') {
      $d = substr($myDate, 6, 2) . "/" . substr($myDate, 4, 2) . "/" . substr($myDate, 0, 4);
      $c = $#allChannels + 2;
      print "<tr><th colspan=\"$c\" class=\"day\"><a name=\"$myDate\">$d</a></th></tr>\n";
      print "<tr>\n";
      print " <th class=\"remind\">Time</th>\n";
      foreach $channel (@allChannels) {
        print " <th class=\"remind\">$channel</th>\n";
      }
      print "</tr>\n";
    }

    # print out this hour's TV!
    print "<tr>\n";
    print " <td class=\"time\" valign=\"top\">$myHour:00</td>\n";

    foreach $channel (@allChannels) {
      print " <td class=\"$myClass\" valign=\"top\">\n";
      @progList = @{ $guideHash{$channel} };
      foreach $prog (@progList) {
        print "  <p>\n";
	$formattedTime = substr($prog->{time},0,2) . ":" . substr($prog->{time},2,2);
        print "   <span class=\"time\">"     . $formattedTime       .  "</span>\n";
        print "   <span class=\"title\">"    . $prog->{title}       . " </span><br>\n";
        print "   <span class=\"subtitle\">" . $prog->{subtitle}    . " </span><br>\n" if (length($prog->{subtitle}) > 2);
        print "   <span class=\"category\">" . $prog->{category}    . " </span>";
        print    "<span class=\"desc\">"     . $prog->{description} . " </span>\n";
        print "  </p>\n";
      }
      print "  </td>\n";
    }
    print "</tr>\n";
  }

  # alternate colours by row
  if ($myClass eq 'listCell1') {
    $myClass = 'listCell2';
  } else {
    $myClass = 'listCell1';
  }
}

sub dump_html_head() {
  $d = substr($myDate, 6, 2) . "/" . substr($myDate, 4, 2) . "/" . substr($myDate, 0, 4);
  $c = $#allChannels + 2;
  print <<EOF;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
 <title>TV Guide</title>
 <link rel="stylesheet" type="text/css" href="xmltv.css">
 <meta http-equiv="Content-type" content="text/html; charset=ISO-8859-1">
 <meta http-equiv="Content-language" content="en">
</head>
<body>
<h1>TV Guide</h1>
<table>
<thead>
<tr><th colspan="$c" class="day">$d</th></tr>
<tr>
 <th>Time</th>
EOF
  foreach $channel (@allChannels) {
    print " <th>$channel</th>\n";
  }
  print <<EOF;
</tr>
</thead>
<tbody>
EOF
}

sub dump_html_foot() {
  print <<EOF;
</tbody>
</table>
<p class="foot">Data from <a href="http://www.ananova.com/">Ananova</a>.
<a href="http://membled.com/work/apps/xmltv/">XMLTV framework</a>
by <a href="mailto:ed%40membled.com">Ed Avis</a>. <a 
href="http://www.goddamn.co.uk/tobyink/?id=204">HTML output</a> by
<a href="http://www.goddamn.co.uk/tobyink/?id=132">Toby A Inkster</a></p>
<p class="valid"><a href="http://validator.w3.org/check/referer"><img
border="0" src="http://www.w3.org/Icons/valid-html401"
alt="Valid HTML 4.01!" height="31" width="88"></a></p>
</body>
</html>
EOF
}