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).
41 lines
694 B
Perl
Executable File
41 lines
694 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
$read = $size = 1024*1024;
|
|
|
|
$dir = $ARGV[0];
|
|
$subdir = $ARGV[1];
|
|
$teil = $ARGV[2];
|
|
$count1 = $ARGV[3];
|
|
$title = $ARGV[4];
|
|
|
|
$filenum = "1";
|
|
$count = 0;
|
|
|
|
open (FI,">$dir/$subdir/$teil.$filenum.mpg");
|
|
|
|
while ($read == $size)
|
|
{
|
|
if (($filenum == 1 && $count < $count1) || ($filenum > 1 && $count < 660*1024*1024))
|
|
{
|
|
$read = read (STDIN,$data,$size);
|
|
print FI $data;
|
|
$count += $size;
|
|
$a = $count /1024/1024;
|
|
}
|
|
else
|
|
{
|
|
close (FI);
|
|
$filenum++;
|
|
$subdir++;
|
|
mkdir ("$dir/$subdir");
|
|
open (FF,">$dir/$subdir/$title\ CD\ $subdir");
|
|
close (FF);
|
|
open (FI,">$dir/$subdir/$teil.$filenum.mpg");
|
|
$count = 0;
|
|
}
|
|
}
|
|
|
|
close FI;
|
|
|
|
print "$subdir\n";
|