summaryrefslogtreecommitdiff
path: root/Tools/schnitt/cut3.pl
diff options
context:
space:
mode:
authorKlaus Schmidinger <kls (at) cadsoft (dot) de>2001-08-06 18:00:00 +0200
committerKlaus Schmidinger <kls (at) cadsoft (dot) de>2001-08-06 18:00:00 +0200
commitf1d1c9849c8e27cccb46cf9c0d0ccb59da3f91f9 (patch)
treeb5a5f73f7b7595c7371cab1fc11f2ea60aa2b392 /Tools/schnitt/cut3.pl
parent8f9cc68f76c4fd0960f919a77fb16a6455922deb (diff)
downloadvdr-patch-lnbsharing-f1d1c9849c8e27cccb46cf9c0d0ccb59da3f91f9.tar.gz
vdr-patch-lnbsharing-f1d1c9849c8e27cccb46cf9c0d0ccb59da3f91f9.tar.bz2
Version 0.90vdr-0.90
- 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).
Diffstat (limited to 'Tools/schnitt/cut3.pl')
-rwxr-xr-xTools/schnitt/cut3.pl40
1 files changed, 40 insertions, 0 deletions
diff --git a/Tools/schnitt/cut3.pl b/Tools/schnitt/cut3.pl
new file mode 100755
index 0000000..ddaf0d6
--- /dev/null
+++ b/Tools/schnitt/cut3.pl
@@ -0,0 +1,40 @@
+#!/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";