1 files changed, 0 insertions, 56 deletions
diff --git a/summary2info.pl b/summary2info.pl
deleted file mode 100755
index 15300e5d..00000000
--- a/summary2info.pl
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/perl
-
-# Convert 'summary.vdr' files to 'info.vdr'
-#
-# Converts all 'summary.vdr' files in the video directory to the
-# 'info.vdr' format as used from VDR version 1.3.25 upward.
-#
-# Usage: summary2info.pl /video
-#
-# See the main source file 'vdr.c' for copyright information and
-# how to reach the author.
-#
-# $Id: summary2info.pl 1.6 2006/04/17 12:19:24 kls Exp $
-
-$VideoDir = $ARGV[0] || die "please provide the name of the video directory\n";
-
-@SummaryFiles = `find "$VideoDir" -name summary.vdr`;
-
-for $SummaryFile (@SummaryFiles) {
-    chomp($SummaryFile);
-    print STDERR "converting $SummaryFile...";
-    open(F, $SummaryFile) || die "$SummaryFile: $!\n";
-    $line = 0;
-    @data = ();
-    while (<F>) {
-          chomp;
-          if ($_ || $line > 1) {
-             $data[$line] .= '|' if ($data[$line]);
-             $data[$line] .= $_;
-             }
-          else {
-             $line++;
-             }
-          }
-    close(F);
-    if (!$data[2]) {
-       $data[2] = $data[1];
-       $data[1] = "";
-       }
-    elsif ($data[1] && $data[2]) {
-       # if line 1 is too long, it can't be the short text,
-       # so assume the short text is missing and concatenate
-       # line 1 and line 2 to be the long text:
-       if (length($data[1]) > 80) {
-          $data[2] = $data[1] . "|" . $data[2];
-          $data[1] = "";
-          }
-       }
-    ($InfoFile = $SummaryFile) =~ s/summary\.vdr$/info.vdr/;
-    open(F, ">$InfoFile") || die "$InfoFile: $!\n";
-    print F "T $data[0]\n" if ($data[0]);
-    print F "S $data[1]\n" if ($data[1]);
-    print F "D $data[2]\n" if ($data[2]);
-    close(F);
-    print STDERR "done.\n";
-    }