%once>
use Time::Local;
%once>

<& SELF:osd_snap, %ARGS &>
|
|
<& '/vdr/remote.html:fb_control' &>
'
|
<%method osd_snap>
<%attr>
ajax => 1
update => 'osd'
throbber => 0
%attr>
<%args>
$r_cmd => undef
$remote_cmd => $r_cmd || undef
%args>
<%perl>
#use Time::HiRes qw( usleep );
#my $sleep = 0;
$m->comp('/include/reelbox:remote_cmd', cmd => $r_cmd);
#if ( defined $remote_cmd && $remote_cmd eq 'Up' || $remote_cmd eq 'Down' ) {
# $sleep = 0;
#}
#elsif ( defined $remote_cmd ) {
# $sleep = 0;
#}
#else {
# $sleep = 0;
#}
## usleep($sleep);
my $tstamp = timelocal(localtime);
`/usr/sbin/hdfbshot /tmp/osd1.png`;
%perl>
%method>