%once>
svdrp('LSTR');
%once>
<%attr>
ajax => 1
update => 'recordings'
throbber => 1
form => 'recordings'
%attr>
<%args>
$recid
$recdir
$last_update
%args>
<%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');
}
%perl>
@(close)
<& '/include/recordings:read_recordings', force => 'true' &>
<%method display_id>
<%args>
$recid
%args>
<&| '/include/recordings:get_single_id', id => $recid &>
@(deleted): %titel - %subtitel ...
&>
%method>
<%method timeout>
@(Session ungueltig, bitte versuchen sie es erneut).
%method>
<%method error_msg>
<%args>
$text
%args>
<% $text %>
%method>