1 files changed, 95 insertions, 0 deletions
diff --git a/scripts/convert_epgsearchdone_data.pl b/scripts/convert_epgsearchdone_data.pl
new file mode 100755
index 0000000..0a04c68
--- /dev/null
+++ b/scripts/convert_epgsearchdone_data.pl
@@ -0,0 +1,95 @@
+#!/usr/bin/perl
+#
+# Dieses Script konvertiert die epgsearchdone.data für
+# epgsearch >= 0.9.14
+#
+# Die neue epgsearchdone.data funktioniert dann nicht mehr
+# für epgsearch < 0.9.14
+#
+# Es werden die epgsearch-Daten aus der Summary in die
+# @-Zeile verlegt.
+#
+# Dies ist nicht zwingend erforderlich. Wenn Du nicht sicher bist,
+# lass es ;)
+#
+# Aufrufen:
+#
+#  convert_epgsearchdone_data.pl /pfad/zur/epgsearchdone.data/
+#
+#  z.B. convert_epgsearchdone_data.pl /etc/vdr/plugins/
+#
+#  "svdrpsend.pl plug epgsearch updd" nicht vergesssen.
+#
+# Backup erstellen?
+#
+#  my $backup=1;  Auf 0 oder 1
+#
+# Mike Constabel vejoun @ vdrportal
+# 2006-03-02
+#
+
+use strict;
+
+my $backup=1;
+
+die("Kein Parameter, bitte Anleitung im Script lesen.") if ! $ARGV[0];
+
+my $Pfad=$ARGV[0];
+
+my $DateiAlt=$Pfad."/epgsearchdone.data";
+my $DateiNeu=$Pfad."/epgsearchdone.data.neu";
+my $DateiBak=$Pfad."/epgsearchdone.data.bak";
+
+open(DATEI,"<".$DateiAlt) || die("Datei nicht gefunden: $DateiAlt");
+open(NEU,">".$DateiNeu) || die("Datei kann nicht geöffnet werden: $DateiAlt");
+
+my $Zeile = "";
+my $epgsearch = "";
+my $neuformat = 0;
+my $aux = "";
+
+printf ("Konvertiere %s\n",$DateiAlt);
+
+while(<DATEI>) {
+
+  $Zeile = $_;
+  $epgsearch="";
+  $aux="";
+  $neuformat = 0;
+
+  print NEU $Zeile if $Zeile =~ /^[RCTSr].*/;
+
+  $epgsearch = $1 if $Zeile =~ /^D .*(Kanal.+Suchtimer.+S-ID.+)$/;
+
+  if ( $Zeile =~ /^(D .+)\|Kanal.+Suchtimer.+S-ID.+$/ )
+  {
+    print NEU sprintf("%s\n",$1);
+  } elsif ( $Zeile =~ /^(D .+)$/ )
+  {
+    print NEU sprintf("%s\n",$1);
+  }
+
+  if ( $Zeile =~ /^(@ .+)$/ )
+  {
+    $neuformat=1;
+    $aux = $1;
+  }
+
+  if ( $neuformat == 1 && $aux !~ /epgsearch/ && $epgsearch ne "" )
+  {
+    $aux .= "<epgsearch>".$epgsearch."</epgsearch>";
+    print NEU sprintf("%s\n",$aux);
+  } elsif ( $neuformat == 1  )
+  {
+    print NEU sprintf("%s\n",$aux);
+  }
+  print NEU sprintf("@ <epgsearch>%s</epgsearch>\n",$epgsearch) if ( $neuformat == 0 && $epgsearch ne "" );
+  
+}
+
+close(DATEI);
+close(NEU);
+
+rename $DateiAlt, $DateiBak if ( ! -e $DateiBak && $backup == 1 );
+rename $DateiNeu, $DateiAlt;
+