<%attr> ajax => 1 <%once> use Time::Local; # my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime('1201735859'); # -- <% $mday %> -- <% $mon %> -- <% $year %> -- <% $hour %>:<% $min %> # $mon +=1; # $year +=1900; <%args> $lite => undef $classic => undef $search => undef <%perl> my $AvantgardeIP= $m->comp('/include/config:get_key', key => 'AvantgardeIP'); my $streamlink='http://' . $AvantgardeIP . ':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($m->comp('/include/system:vdrstatus')) { % } else { % }
@(Hostname): <% `hostname` %>
vdr: @(running) vdr: @(not running)
@(Uptime): <% $uptime %>
@(LoadAverage): <% $lav1 %>,<% $lav2 %>,<% $lav3 %>