From f1d1c9849c8e27cccb46cf9c0d0ccb59da3f91f9 Mon Sep 17 00:00:00 2001
From: Klaus Schmidinger <kls (at) cadsoft (dot) de>
Date: Mon, 6 Aug 2001 18:00:00 +0200
Subject: Version 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).

---
 Tools/schnitt/cut2.pl | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 Tools/schnitt/cut2.pl

(limited to 'Tools/schnitt/cut2.pl')

diff --git a/Tools/schnitt/cut2.pl b/Tools/schnitt/cut2.pl
new file mode 100755
index 0000000..6131e88
--- /dev/null
+++ b/Tools/schnitt/cut2.pl
@@ -0,0 +1,39 @@
+#!/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";
+      }
+  }
-- 
cgit v1.2.3