<%shared> my @BList; <%doc> SF 1;Schweizer Fernsehen:12399:hC34:S13.0E:27500:160:80=deu,81=eng,82=mul:32:500:901:318:8500:0

<& 'SELF:display_form', %ARGS &>
<& 'SELF:display_bouqet', %ARGS &>
<%method display_form> <%args> $bouqet => $m->comp('/include/config:get_key', key => 'StartBouqet') <& '/include/channel:display_ajax_form', %ARGS , bouqet => $bouqet &> <%method search_channel> <%attr> ajax => 1 update => 'bouqet' throbber => 0 form => 'search_form' <%args> $search $target => '_stream_' $stream => undef % return if ( $search !~ /^.{3}/); <& '/vdr/channel.html:display_bouqet', stream => $stream, targ => $target, search => $search, bouqet => $search, %ARGS &> <%method display_bouqet> <%attr> ajax => 1 update => 'bouqet' throbber => 1 form => 'bouqet_form' <%args> $bouqet => $m->comp('/include/config:get_key', key => 'StartBouqet') $chnum => undef $target => '_stream_' $stream => undef $arguments => undef $refresh => undef $search => undef $link => '/tools/live.html&chnum=%chnum' $div => 'screen' <%perl> use URI::Escape; my $ref_link = "target=$target&stream=$stream&div=$div&link=" . uri_escape($link); my $tmp = $bouqet; $bouqet = uri_unescape($bouqet); $arguments = "&bouqet=$tmp"; # $tmp =~ s/^\s*@\d+\s\.+\s//g; $m->comp('/include/config'); my $AvantgardeIP = $m->comp('/include/config:get_key', key => 'AvantgardeIP'); my $streamlink = 'http://'.$AvantgardeIP.':3000/%stream'; if ( defined $stream && $stream eq 'embed' ) { $streamlink = '/tools/live.html?chnum=%chnum'; } # check channel refresh if ( defined $refresh ) { $m->comp('/include/channel:refresh_channels'); } if ( defined $search && $search ne '' ) { $bouqet = $search; $search = undef if $search =~ /^.$/; } <&| '/include/channel:create_bouqet', bouqet => $bouqet, search => $search &>
<% $bouqet %> refresh @(set bouqet)
% if(defined $stream && $stream eq 'embed') { %chnum %name % } else { <& '/include/reelbox:remote_link', link => "javascript: Zap('%chnum')", name => '%chnum', title => '@(Zap)', highlight => $chnum &>
<& '/include/reelbox:remote_link', link => "javascript: Zap('%chnum')", name => '%name', title => '@(Zap)', highlight => $chnum &> <& '/include/reelbox:remote_link', link => $streamlink, name => '', target => $target, title => '@(Stream)', arguments => $arguments, highlight => $chnum &> <& '/include/reelbox:remote_link', link => "/vdr/epg/epg.html?chnum=%chnum", name => '', title => '@(EPG)', arguments => $arguments, highlight => $chnum &>
% }
<%method channel_files> <%perl> my @Files=glob('/etc/vdr/channels/*/*.conf'); return \@Files;