mplayer-eee-tv/program/xmltv.pl

#!/usr/bin/perl

use warnings;
use strict;

use XML::Simple;
use Data::Dump qw(dump);

my $tv = XMLin( 'tv.xml',
        ContentKey => '-content',
);

warn dump $tv;

print qq|

<style type="text/css">

,hour {
        border-top: 1px dashed #ccc;
}

</style>

<table border=1 >
<tr><td></td>
|;

my @channels = keys %{ $tv->{channel} };
warn "# channels ",dump @channels;

print qq|<th><img src="|, $_->{'icon'}->{'src'}, qq|"><br>|, $_->{'display-name'}->{'content'}, qq|</th>| foreach map { $tv->{channel}->{$_} } @channels;

print qq|
</tr>
|;

my $programs;

sub hh { substr $_[0], 8, 2 }
sub mm { substr $_[0], 10, 2 }

sub in_mins { hh($_[0]) * 60 + mm($_[0]) }

foreach my $p ( @{ $tv->{programme} } ) {
        warn "# p ",dump $p;
        my $t_start = in_mins $p->{start};
        my $t_stop  = in_mins $p->{stop};

        warn "# t $t_start - $t_stop\n";
        if ( ! defined $programs->{ $p->{channel} } ) {
                push @{ $programs->{ $p->{channel} } }, [ 0, $t_start ];
        }
        push @{ $programs->{ $p->{channel} } }, [ $t_start, $t_stop - $t_start, $p ];
}

warn "# programs ", dump $programs;

foreach my $hh ( 0 .. 23 ) {
        foreach my $mm ( 0 .. 59 ) {

                my $hhmm = sprintf '%02d:%02d', $hh, $mm;

                print "<!-- $hh$mm -->\n";

                my @td;

                foreach my $c ( @channels ) {
                        if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) {
                                my $p = shift @{ $programs->{$c} };
                                my $span = $p->[1] - 1;
                                push @td, join(''
                                        , qq|<td rowspan=$span>|
                                        , join("\n"
                                                , qq|<span class="hhmm">$hhmm</span>|
                                                , $p->[2]->{title}->{content} || '-'
                                                , "<!-- $c -->"
                                        )
                                        . qq|</td>|
                                );
                        }
                }

                my ($th,$class) = ('','');
                   ($th,$class) = ( "<th rowspan=60>$hh</th>", ' class="hour"' ) if $mm == 0;
                print qq|<tr$class>$th|, join('', @td), qq|</tr>\n|;
        }
}

print qq|
</table>
|;
1	dpavlin	18	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use XML::Simple;
7			use Data::Dump qw(dump);
8
9			my $tv = XMLin( 'tv.xml',
10			ContentKey => '-content',
11			);
12
13			warn dump $tv;
14
15			print qq\|
16
17			<style type="text/css">
18
19			,hour {
20			border-top: 1px dashed #ccc;
21			}
22
23			</style>
24
25			<table border=1 >
26			<tr><td></td>
27			\|;
28
29			my @channels = keys %{ $tv->{channel} };
30			warn "# channels ",dump @channels;
31
32			print qq\|<th><img src="\|, $_->{'icon'}->{'src'}, qq\|"><br>\|, $_->{'display-name'}->{'content'}, qq\|</th>\| foreach map { $tv->{channel}->{$_} } @channels;
33
34			print qq\|
35			</tr>
36			\|;
37
38			my $programs;
39
40			sub hh { substr $_[0], 8, 2 }
41			sub mm { substr $_[0], 10, 2 }
42
43			sub in_mins { hh($_[0]) * 60 + mm($_[0]) }
44
45			foreach my $p ( @{ $tv->{programme} } ) {
46			warn "# p ",dump $p;
47			my $t_start = in_mins $p->{start};
48			my $t_stop = in_mins $p->{stop};
49
50			warn "# t $t_start - $t_stop\n";
51			if ( ! defined $programs->{ $p->{channel} } ) {
52			push @{ $programs->{ $p->{channel} } }, [ 0, $t_start ];
53			}
54			push @{ $programs->{ $p->{channel} } }, [ $t_start, $t_stop - $t_start, $p ];
55			}
56
57			warn "# programs ", dump $programs;
58
59			foreach my $hh ( 0 .. 23 ) {
60			foreach my $mm ( 0 .. 59 ) {
61
62			my $hhmm = sprintf '%02d:%02d', $hh, $mm;
63
64			print "<!-- $hh$mm -->\n";
65
66			my @td;
67
68			foreach my $c ( @channels ) {
69			if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) {
70			my $p = shift @{ $programs->{$c} };
71			my $span = $p->[1] - 1;
72			push @td, join(''
73			, qq\|<td rowspan=$span>\|
74			, join("\n"
75			, qq\|<span class="hhmm">$hhmm</span>\|
76			, $p->[2]->{title}->{content} \|\| '-'
77			, "<!-- $c -->"
78			)
79			. qq\|</td>\|
80			);
81			}
82			}
83
84			my ($th,$class) = ('','');
85			($th,$class) = ( "<th rowspan=60>$hh</th>", ' class="hour"' ) if $mm == 0;
86			print qq\|<tr$class>$th\|, join('', @td), qq\|</tr>\n\|;
87			}
88			}
89
90			print qq\|
91			</table>
92			\|;