<%attr> ajax => 1 <%args> $lite => undef $classic => undef $search => undef <%perl> my $ip_address = $r->notes( 'CFG_ip_address' ); my $streamlink = 'http://' . $ip_address . ':3000/PES/%stream'; <% ## Systeminfo %> <% ## Kanalliste %> <% ## Fernbedienung %>
  • ReelVDR


  • <& control.html:display_links, %ARGS &>
  • @(Systeminfo)


  • <& SELF:systeminfo &>
  • @(Laufwerke)


  • <& /system/df.html:display_graph &>
  • @(Lesezeichen)


  • <& /bookmark/index.html:display &>
  • @(Kanalliste)


  • <& '/vdr/channel.html:display_form', div => 'bouqet-content', update => 'bouqet-content', stream => 'extern', streamlink => $streamlink, %ARGS &>
    <& '/vdr/channel.html:display_bouqet', stream => 'extern', div => 'bouqet-content', %ARGS &>
  • @(Fernbedienung) % if(defined $classic) { (@(modern))


    <& '/vdr/remote.html:display_remote', %ARGS &> (@(detach)) % } else { (html)
    <& '/vdr/remote.html:fb_control', js_function => 'remoteCmd', %ARGS &> (@(detach)) % }
<%method systeminfo> <%perl> # dirty uptime hack, because the 'uptime' output differs after kernel # running more then 24 hours # TODO: using regexp my ($uptime,$time,$usr,$lav1,$lav2,$lav3) = split( ",", $m->comp( '/include/system:uptime' ) ); if ( !defined $lav3 || $lav3 eq '' ) { ( $uptime, $usr, $lav1, $lav2, $lav3 ) = split( ",", $m->comp( '/include/system:uptime' ) ); } # cut 'load average:' $lav1 =~ s/^.+://; % if ( vdr_status ) { % } else { % }
@(Hostname): <% $m->comp('/include/system:read_file', file => '/etc/hostname') %>
vdr: @(running) vdr: @(not running)
@(Uptime): <% $uptime %>
@(LoadAverage): <% $lav1 %>,<% $lav2 %>,<% $lav3 %>