1 files changed, 0 insertions, 77 deletions
diff --git a/Tools/schnitt/schnitt3.pl.new b/Tools/schnitt/schnitt3.pl.new
deleted file mode 100755
index 04a6239..0000000
--- a/Tools/schnitt/schnitt3.pl.new
+++ /dev/null
@@ -1,77 +0,0 @@
-#!/usr/bin/perl
-
-require "/usr/local/bin/my/schnittcommon.pli";
-
-open (INDEX,"index.vdr");
-
-$index = $ARGV[0];
-&nextI;
-
-$oldindex = $index;
-$tempindex = $index;
-
-$add = -1;
-
-$fi = sprintf ("%03d.vdr",$file);
-open (FI2,$fi);
-open (FO,">test2");
-sysseek (FI2,$offset,0);
-sysread (FI2,$temp,3000000);
-syswrite (FO,$temp,3000000);
-close (FI2);
-close (FO);
-
-system ("pes2av_pes test2 > test 2>/dev/null");
-open (PVA,"/usr/local/bin/pvademux.old . test 2>&1 |");
-
-@a=<PVA>; close PVA;
-@b=split (/\s/,$a[2]);
-
-if (!($b[4] =~ /\-/) && $b[4] < 2000)
-  {
-    unlink <test*>;
-    print "$index\n";
-    exit 0;
-  }
-
-while (1)
-  {
-    if ($index == 0)
-      {
-        $add = 1;
-      }
-    if ($add = -1)
-      {
-       $index--;
-       &prevI;
-      }
-    else
-      {
-        nextI;
-      }
-    $fi = sprintf ("%03d.vdr",$file);
-    open (FI2,$fi);
-    open (FO,">test2");
-    sysseek (FI2,$offset,0);
-    sysread (FI2,$temp,3000000);
-    syswrite (FO,$temp,3000000);
-    close (FI2);
-    close (FO);
-
-system ("/usr/local/bin/pes2av_pes test2 > test 2>/dev/null");
-open (PVA,"/usr/local/bin/pvademux.old . test 2>&1 |");
-
-@a=<PVA>; close PVA;
-@b=split (/\s/,$a[2]);
-
-if (!($b[4] =~ /\-/) && $b[4] < 2000)
-  {
-    unlink <test*>;
-        if ($index < 0)
-          {
-            $index *= -1;
-          }
-    print "$index\n";
-    exit 0;
-  }
-}