#!/usr/bin/perl -w

# Umkodieren von irgendwas nach VDRs *.ts (MPEG-TS) in SD

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

# Das funktioniert für SD auf einem FF-VDR (Hardware-Decoding) und xinelib!

# alt: system("ffmpeg -i $in -f mpegts -vcodec mpeg2video -aspect 16:9 -qscale:v 0 -s 720x576 -acodec mp2 -ac 2 -ar 48000 -ab 192k -bsf h264_mp4toannexb -r 25 -b:v 15000K $out");

# neuere ffmpeg ergeben Fehler mit -bsf h264_mp4toannexb
# ausserdem wird der Filter laut Doku automatisch angewandt.
# system("ffmpeg -i $in -f mpegts -vcodec mpeg2video -aspect 16:9 -qscale:v 0 -s 720x576 -acodec mp2 -ac 2 -ar 48000 -ab 192k -r 25 -b:v 15000K $out");

# ohne "-aspect 16:9" werden 4:3 Sendungen richtig dargestellt
system("ffmpeg -i $in -f mpegts -vcodec mpeg2video -qscale:v 0 -s 720x576 -acodec mp2 -ac 2 -ar 48000 -ab 192k -r 25 -b:v 15000K $out");