#!/usr/bin/perl -w

$dir = shift || die "Bitte Verzeichnis angeben, das ins alte VDR gewandelt werden soll, z.B. 2015-11-30.19.43.1-0.rec\n";

# Alle Dateien im aktuellen Verzeichnis (inkl. Verzeichnisname) werden
# ins alte VDR-Format gewandelt

if ($dir =~ m/(.+)\.\d+-\d+\.rec/)
{
  $target = "$1.99.99.rec";
  die "$target existiert bereits!\n" if -e $target;
  system("mv $dir $target");
  chdir($target) || die "Fehler bei cd $target!\n";
  system("ts2pes 00001.ts 0 0 > 001.vdr");
  system("genindex");
  unlink '00001.ts', 'index', 'resume';
}