%attr>
ajax => 1
%attr>
<& 'SELF:display_form', %ARGS &>
<& 'SELF:display_detail',
EpgStatus => '1',
%ARGS
&>
<%method display_form>
<%args>
$size => undef
$chnum => '1'
$bouqet => $r->notes('CFG_StartBouqet')
$ip_address => $r->notes('CFG_ip_address')
%args>
<%perl>
my $streamlink='/vdr/epg/now.html:display_detail&chnum=%chnum';
%perl>
<& '/include/epg:read_epg' &>
<& '/vdr/channel.html:display_form'
, target => '_self'
, div => 'now'
, nosearch => 'true'
, bouqet => $bouqet
, update => 'now'
, comp => '/vdr/epg/now.html:display_detail'
, link => $streamlink
, ip_address => $ip_address
, %ARGS
&>
%method>
<%method display_detail>
<%attr>
ajax => 1
update => 'now'
throbber => 1
form => 'bouqet_form'
%attr>
<%args>
$bouqet => $r->notes('CFG_StartBouqet')
$ip_address => $r->notes('CFG_ip_address')
$start_time => timelocal( localtime() )
$EpgStatus => undef
$chnum => undef
%args>
<%perl>
my $streamlink = 'http://' . $ip_address . ':3000/PES/';
if ( !defined $EpgStatus ) {
$m->comp('/include/epg:read_epg');
}
my $uesc_bouqet = uri_unescape($bouqet);
%perl>
<&| '/include/channel:get_chnum_from_bouqet', bouqet => uri_unescape($bouqet), chnum => \$chnum &>
<% $chnum %>
|
<% $m->comp('/include/channel:get_channel_name',
cCount => $chnum) %>
|
<&| '/include/epg:get_epg',
chnum => $chnum ,
start_time => $start_time,
actual => 'true'
&>
|
%text
( -%remaining min )
%image_tag
%titel
%subtitel
%start_time - %end_time %length min
%descr
|
<& '/include/reelbox:remote_link',
link => $streamlink . $m->comp('/include/channel:get_stream_url', chnum => $chnum),
name => ' ',
title => '@(Stream)',
target => '_stream_',
class => 'none',
highlight => $chnum
&>
|
&>
&>
<%filter>
s/\|\*\*\*\|/
/g;
s/\.\|/\.
/g;
s/\|/
/g;
%filter>
%method>