<%attr> ajax => 1 <%args> $duration => 99 $chnum => undef $tid => undef $prio => 50 $active $date $start_time $end_time $descr <%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"; } Timer angelegt/modifiziert

<& '/vdr/epg/timer.html' &>