/[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 19 by dpavlin, Sat Oct 31 13:29:41 2009 UTC revision 25 by dpavlin, Sat Oct 31 14:47:07 2009 UTC
# Line 19  print qq| Line 19  print qq|
19    
20  <style type="text/css">  <style type="text/css">
21    
22  ,hour {  td {
23          border-top: 1px dashed #ccc;          font-family:sans-serif;
24            vertical-align: top;
25            background: #eee;
26    }
27    
28    th,odd {
29            background: #eef;
30    }
31    
32    th.even {
33            background: #fcc;
34  }  }
35    
36  .hhmm {  .hhmm {
# Line 34  print qq| Line 44  print qq|
44  </head>  </head>
45  <body>  <body>
46    
47  <table border=1 >  <table>
48  <tr><td></td>  <tr><td></td>
49  |;  |;
50    
# Line 81  foreach my $hh ( 0 .. 23 ) { Line 91  foreach my $hh ( 0 .. 23 ) {
91                          if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) {                          if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) {
92                                  my $p = shift @{ $programs->{$c} };                                  my $p = shift @{ $programs->{$c} };
93                                  my $span = $p->[1]; # - 1;                                  my $span = $p->[1]; # - 1;
94                                  push @td, join(''  
95                                          , qq|<td rowspan=$span>|                                  my $html = '';
96                                          , join("\n"                                  $html = join("\n"
97                                                  , qq|<span class="hhmm">$hhmm<br>$span</span>|                                          , qq|<span class="hhmm">$hhmm<br>$span</span>|
98                                                  , $p->[2]->{title}->{content} || ''                                          , $p->[2]->{title}->{content}
99                                                  , "<!-- $c -->"                                          , "<!-- $c -->"
100                                          )                                  ) if $p->[2];
101                                          . qq|</td>|  
102                                  );                                  push @td, qq|<td rowspan=$span>$html</td>|;
103                          }                          }
104                  }                  }
105    
106                  my ($th,$class) = ('','');                  my $class = $hh % 2 == 0 ? 'even' : 'odd';
107                     ($th,$class) = ( "<th rowspan=60>$hh</th>", ' class="hour"' ) if $mm == 0;  
108                  print qq|<tr$class>$th|, join('', @td), qq|</tr>\n|;                  my $th = '';
109                       $th = qq|<th rowspan=60 class=$class>$hh</th>| if $mm == 0;
110    
111                    print qq|<tr>$th|, join('', @td), qq|</tr>\n|;
112          }          }
113  }  }
114    
Legend:
Removed from v.19  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.26