%args>
$duration => 99
$chnum => undef
$tid => undef
$prio => 50
$active
$date
$start_time
$end_time
$descr
%args>
<%perl>
my $aref;
chomp($descr);
$start_time =~ s/://g;
$end_time =~ s/://g;
$descr =~ s/\~$//;
$chnum = $m->comp('/include/timer:get_key',
tid => $tid, key => 'chnum') if(!defined $chnum);
my $epg = $m->comp('/include/timer:get_key',
tid => $tid, key => 'epg') if(defined $tid);
my $string = "$tid $active:$chnum:$date:$start_time:$end_time:$prio:$duration:'$descr'";
if ( !defined $tid ) {
$aref = $m->comp('/include/reelbox:svdrpsend', cmd => "NEWT $string");
print "NEWT $string
\n";
}
else {
$aref = $m->comp('/include/reelbox:svdrpsend', cmd => "MODT $string");
print "MODT $string
\n";
}
%perl>
Timer angelegt/modifiziert
<& '/vdr/epg/timer.html' &>