/[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 20 by dpavlin, Sat Oct 31 13:53:52 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(''  
85                                          , qq|<td rowspan=$span>|                                  my $html = '';
86                                          , join("\n"                                  $html = 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                                          )                                  ) if $p->[2];
91                                          . qq|</td>|  
92                                  );                                  push @td, qq|<td rowspan=$span>$html</td>|;
93                          }                          }
94                  }                  }
95    
# 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.20
  ViewVC Help
Powered by ViewVC 1.1.26