1 files changed, 0 insertions, 35 deletions
diff --git a/Tools/schnitt/cut.pl b/Tools/schnitt/cut.pl
deleted file mode 100755
index e055076..0000000
--- a/Tools/schnitt/cut.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-
-chdir ($ARGV[0]) if ($ARGV[0]);
-
-$read = $size = 1024*1024;
-
-$filenum = "1";
-$count = 0;
-
-$fi = sprintf ("part%d",$filenum);
-open (FI,">$fi");
-
-while ($read == $size)
-  {
-    if ($count < 660*1024*1024)
-      {
-	$read = read (STDIN,$data,$size);
-	print FI $data;
-	$count += $size;
-	$a = $count /1024/1024;
-	if ($a % 10 == 0) {
-          print stderr "File: $filenum Size: ${a}MB\n";
-        }
-      }
-    else
-      {
-	close (FI);
-	$filenum++;
-	$fi = sprintf ("part%d",$filenum);
-	open (FI,">$fi");
-	$count = 0;
-      }
-  }
-
-close FI;