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/cutall3.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 Tools/schnitt/cutall3.pl

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

diff --git a/Tools/schnitt/cutall3.pl b/Tools/schnitt/cutall3.pl
new file mode 100755
index 0000000..6961666
--- /dev/null
+++ b/Tools/schnitt/cutall3.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+open (FI,"cut") or die "Kann Cut-Datei nicht oeffnen\n";
+
+outer: while (<FI>)
+  {
+    chomp;
+    if (! ($_ > 1 || $_ eq "0"))
+      {
+	open (FO,">cut2");
+	print FO "$_\n";
+	while (<FI>)
+	  {
+	    chomp;
+	    if ($_ > 1 || $_ eq "0")
+	      {
+		print FO "$_\n";
+	      }
+	    else
+	      {
+		system ("cutt");
+		redo outer;
+	      }
+	  }
+      }
+  }
+if ( -f "cut2")
+  {
+    system ("cutt");
+    unlink "cut2";
+  }
-- 
cgit v1.2.3