<%once> svdrp('LSTR'); <%attr> ajax => 1 update => 'recordings' throbber => 1 form => 'recordings' <%args> $recid $recdir $last_update <%perl> use File::Touch; my $global_rec = $r->notes('CFG_RecDir'); $recdir =~ s/___H___/#/g; $recdir =~ s/___A___/'/g; $recdir =~ s/___U___/&/g; ( my $newrec = $recdir ) =~ s/\.rec\/*\s*$/\.del/; if ( ! -e $recdir && ! -d $recdir ) { $m->comp('SELF:error_msg', text => "@(no such directory): $recdir" ) } elsif ( $recdir !~ m!\.rec/*\s*$! ) { $m->comp('SELF:error_msg', text => "@(no such recording): $recdir" ) } elsif ( $last_update eq $m->comp('/include/recordings:get_last_update') ) { $m->comp('/include/recordings:read_recordings'); $m->comp('SELF:display_id', recid => $recid ); rename( $recdir, $newrec ); touch( "$global_rec/.update"); system("$ENV{RBC_BASE}/bin/records.pl >/dev/null 2>&1"); svdrp('LSTR'); $m->comp('/include/recordings:read_recordings'); } else { $m->comp('SELF:timeout'); svdrp('LSTR'); }

@(close) <& '/include/recordings:read_recordings', force => 'true' &> <%method display_id> <%args> $recid <&| '/include/recordings:get_single_id', id => $recid &> @(deleted): %titel - %subtitel ...
<%method timeout> @(Session ungueltig, bitte versuchen sie es erneut). <%method error_msg> <%args> $text
<% $text %>