#!/usr/bin/perl -w

$ziel_verzeichnis = '/mnt/centrix/video_box';

$dir = shift || die "Bitte Start-Verzeichnis angeben!\n";

# Prüfen, ob gemountet, und evtl. mounten
system("mount | grep /mnt/centrix >/dev/null || mount /mnt/centrix");
$err = $? >> 8;
if ($err > 0)
{
  print "Fehler: /mnt/centrix ist nicht gemountet und kann nicht gemountet werden!\n";
  exit;
}

@files = `find $dir -name *.rec -type d`;

foreach $quell_dir (@files)
{
  chomp $quell_dir;
  $quell_dir =~ /^\/video\d*(.+)\/([^\/]+)\/(\d\d\d\d-\d\d-\d\d).*\.rec$/;
  $path  = $1;
  $title = $2;
  $date  = $3;
  $ziel = "$ziel_verzeichnis/$path/$title-$date.mpg";
  # Sonderzeichen entfernen
  $ziel =~ s/[^\w\/\-\.]//g;
  if (-f $ziel)
  {
    warn "### Das Zielfile: '$ziel' existiert bereits! Es wird nicht kopiert!\n";
  }
  else
  {
    $path      = quotemeta($path);
    $quell_dir = quotemeta($quell_dir);
    $ziel      = quotemeta($ziel);
    system("mkdir -p $ziel_verzeichnis/$path");
    system("vdr2mpeg2ps $quell_dir/0*.vdr $ziel");
  }
}