<%once> use Time::Local; <%attr> ajax => 1 <%args> $size => undef $chnum => '1' $bouqet => $m->comp('/include/config:get_key', key => 'StartBouqet') $AvantgardeIP => $m->comp('/include/config:get_key', key => 'AvantgardeIP') <%perl> my $streamlink='/vdr/epg/now.html:display_detail&chnum=%chnum'; <& '/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 , AvantgardeIP => $AvantgardeIP , %ARGS &>
<& 'SELF:display_detail', EpgStatus => '1', AvantgardeIP => $AvantgardeIP, %ARGS &>
<%method display_detail> <%attr> ajax => 1 update => 'now' throbber => 1 form => 'bouqet_form' <%args> $bouqet => $m->comp('/include/config:get_key', key => 'StartBouqet') $start_time => timelocal( localtime() ) $EpgStatus => undef $chnum => undef $AvantgardeIP => $m->comp('/include/config:get_key', key => 'AvantgardeIP') <%perl> my $streamlink = 'http://' . $AvantgardeIP . ':3000/PES/'; if ( !defined $EpgStatus ) { $m->comp('/include/epg:read_epg'); } my $uesc_bouqet = uri_unescape($bouqet); <% # timestamp header %>

<&| '/include/date:get_time', time => $start_time &> @(%week_day) %day.%mon.%year - %hour:%min  

@(Was laeuft um)?
<% # begin content part %> <&| '/include/channel:get_chnum_from_bouqet', bouqet => uri_unescape($bouqet), chnum => \$chnum &> <&| '/include/epg:get_epg', chnum => $chnum , start_time => $start_time, actual => 'true' &>
<% $chnum %> <% $m->comp('/include/channel:get_channel_name', cCount => $chnum) %> %start_time
. .
%text (-%remaining min)   <& '/include/reelbox:remote_link', link => $streamlink . $m->comp('/include/channel:get_stream_url', chnum => $chnum), name => '', title => '@(Stream)', target => '_stream_', class => 'none', highlight => $chnum &>

%titel

%subtitel


%start_time - %end_time %length min


%descr

<%filter> #use HTML::FillInForm; ## auto fill in form fields #my $fif = HTML::FillInForm->new(); #$_ = $fif->fill( # scalarref => \$_, # fdat => \%ARGS #); s/\|\*\*\*\|/

/g; s/\.\|/\.

/g; s/\|/
/g;