use HTML::TreeBuilder to parse hcalendar

[HTML5TV.git] / bin / mplayer.pl

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 018b723..195c9df 100755 (executable)
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -9,6 +9,7 @@ use Data::Dump qw(dump);
 use File::Slurp;
 use YAML;
 use JSON;
+use HTML::TreeBuilder;
 
 
 my $movie = shift @ARGV
@@ -214,6 +215,17 @@ sub html5tv {
                . qq|</table>|
                ;
 
+       my $hcalendar = '<div style="color: red">Create <tt>hcalendar.html</tt> to fill this space</div>';
+       my $hcal_path = 'www/media/hcalendar.html';
+       if ( -e $hcal_path ) {
+               $html5tv->{hcalendar} = read_file $hcal_path;
+               my $tree = HTML::TreeBuilder->new;
+               $tree->parse_file($hcal_path);
+               if ( my $vevent = $tree->look_down( class => 'vevent' ) ) {
+                       $html5tv->{title} = $vevent->look_down( class=> 'summary' )->as_trimmed_text;
+               }
+       }
+
        warn "html5tv ", dump $html5tv;
 
        my $sync_path = 'www/media/video.js';