1 files changed, 0 insertions, 30 deletions
diff --git a/Tools/schnitt/schnitt6.pl b/Tools/schnitt/schnitt6.pl
deleted file mode 100755
index 92d9eb4..0000000
--- a/Tools/schnitt/schnitt6.pl
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-open (FI,"a");
-
-while (<FI>)
-{
-  open (SCH,"/usr/local/bin/my/schnitt5.pl $_|");
-  $files = <SCH>;
-  chomp $files;
-  ($a,$b) = split (/\s/,$files);
-  $files[$a] = 1;
-  $files[$b] = 1;
-  close (SCH);
-}
-
-while (<0*.vdr>)
-{
-  $_ =~ /\d(\d\d)\.vdr/;
-  if ($files[$1])
-  {
-    print "Keeping $1\n";
-  }
-  else
-  {
-    print "Deleting $_\n";
-    unlink $_;
-  }
-}
-
-close (FI);