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