/[mplayer-eee-tv]/program/xmltv.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /program/xmltv.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by dpavlin, Sat Oct 31 13:10:05 2009 UTC revision 19 by dpavlin, Sat Oct 31 13:29:41 2009 UTC
# Line 13  my $tv = XMLin( 'tv.xml', Line 13  my $tv = XMLin( 'tv.xml',
13  warn dump $tv;  warn dump $tv;
14    
15  print qq|  print qq|
16    <html>
17    <head>
18    <meta charset=utf-8>
19    
20  <style type="text/css">  <style type="text/css">
21    
# Line 20  print qq| Line 23  print qq|
23          border-top: 1px dashed #ccc;          border-top: 1px dashed #ccc;
24  }  }
25    
26    .hhmm {
27            font-size: 50%;
28            color: #888;
29            float: right;
30    }
31    
32  </style>  </style>
33    
34    </head>
35    <body>
36    
37  <table border=1 >  <table border=1 >
38  <tr><td></td>  <tr><td></td>
39  |;  |;
# Line 68  foreach my $hh ( 0 .. 23 ) { Line 80  foreach my $hh ( 0 .. 23 ) {
80                  foreach my $c ( @channels ) {                  foreach my $c ( @channels ) {
81                          if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) {                          if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) {
82                                  my $p = shift @{ $programs->{$c} };                                  my $p = shift @{ $programs->{$c} };
83                                  my $span = $p->[1] - 1;                                  my $span = $p->[1]; # - 1;
84                                  push @td, join(''                                  push @td, join(''
85                                          , qq|<td rowspan=$span>|                                          , qq|<td rowspan=$span>|
86                                          , join("\n"                                          , join("\n"
87                                                  , qq|<span class="hhmm">$hhmm</span>|                                                  , qq|<span class="hhmm">$hhmm<br>$span</span>|
88                                                  , $p->[2]->{title}->{content} || '-'                                                  , $p->[2]->{title}->{content} || ''
89                                                  , "<!-- $c -->"                                                  , "<!-- $c -->"
90                                          )                                          )
91                                          . qq|</td>|                                          . qq|</td>|
# Line 89  foreach my $hh ( 0 .. 23 ) { Line 101  foreach my $hh ( 0 .. 23 ) {
101    
102  print qq|  print qq|
103  </table>  </table>
104    
105    </body>
106    
107    </html>
108  |;  |;

Legend:
Removed from v.18  
changed lines
  Added in v.19

  ViewVC Help
Powered by ViewVC 1.1.26