mirror of
https://github.com/vdr-projects/vdr.git
synced 2025-03-01 10:50:46 +00:00
f1d1c9849c
- Modified the display of the channel group separators (thanks to Markus Lang for this suggestion). - Added support for replaying DVDs (thanks to Andreas Schultz). See INSTALL for instructions on how to compile VDR with DVD support. - Fixed replay progress display in case replay is paused while watching an ongoing recording. - Ringbuffer uses semaphores to signal empty/full conditions. - Fixed calculating the timeout value in cFile::FileReady() (thanks to Wolfgang Henselmann-Weiss).
40 lines
743 B
Perl
Executable File
40 lines
743 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
$titel = $ARGV[0];
|
|
|
|
chdir ("/x2/temp");
|
|
|
|
@files=<teil*.mpg>;
|
|
$cd = 1;
|
|
mkdir "/x2/temp/$cd";
|
|
open (FF,">/x2/temp/$cd/$titel\ CD\ $cd");
|
|
close (FF);
|
|
|
|
foreach $file (@files)
|
|
{
|
|
$size = -s $file;
|
|
$total += $size;
|
|
if ($total <= 660*1024*1024)
|
|
{
|
|
print "Moving $file\n";
|
|
system ("mv /x2/temp/$file /x2/temp/$cd/$file");
|
|
}
|
|
else
|
|
{
|
|
print "Splitting $file\n";
|
|
$file =~ s/\.mpg$//;
|
|
$total -= $size;
|
|
$size = (660*1024*1024) - $total;
|
|
$cd = `cut3.pl /x2/temp $cd $file $size \'$titel\' < $file.mpg`;
|
|
chomp $cd;
|
|
$total = 0;
|
|
@files2=</x2/temp/$cd/teil*>;
|
|
foreach $file2 (@files2)
|
|
{
|
|
$total += -s $file2;
|
|
}
|
|
print "CD: $cd Total $total\n";
|
|
unlink "$file.mpg";
|
|
}
|
|
}
|