1 files changed, 0 insertions, 40 deletions
diff --git a/Tools/schnitt/cut3.pl b/Tools/schnitt/cut3.pl
deleted file mode 100755
index ddaf0d6..0000000
--- a/Tools/schnitt/cut3.pl
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/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";