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 |
|
|
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 |
|; |
|; |
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>| |
101 |
|
|
102 |
print qq| |
print qq| |
103 |
</table> |
</table> |
104 |
|
|
105 |
|
</body> |
106 |
|
|
107 |
|
</html> |
108 |
|; |
|; |