#!/usr/bin/perl -w

#
# Umkodieren von irgendwas nach VDRs *.ts (MPEG-TS)
# Achtung: Dabei bleibt sowohl das Video- als auch das Audio-Format gleich!
# Ein FF-VDR wird das nicht wiedergeben können!
# Es kann sein, dass auch ein xinelib-VDR das nicht oder nicht richtig
# wiedergibt!
#
# Für Standard-konforme Umkodierung bitte diese verwenden:
# any2ts-sd oder any2ts-hd
#

$in  = shift || die "Bitte Quell-Datei angeben, z.B. video.mp4!\n";
$out = shift || die "Bitte Ziel-Datei angeben, z.B. 00001.ts!\n";

system("ffmpeg -i $in -vcodec copy -bsf:v h264_mp4toannexb $out");