diff options
| -rwxr-xr-x | tools/gen_frikanalen_video.pl | 4 | ||||
| -rwxr-xr-x | tools/prepare-for-frikanalen | 37 |
2 files changed, 39 insertions, 2 deletions
diff --git a/tools/gen_frikanalen_video.pl b/tools/gen_frikanalen_video.pl index 2f4da46..e02bc85 100755 --- a/tools/gen_frikanalen_video.pl +++ b/tools/gen_frikanalen_video.pl @@ -224,7 +224,7 @@ sub count_words_n_space { sub break_title { my $title = shift; # print $title; - my $cols = 30; + my $cols = 29; my $count = 0 ; my $ln = 0; my @lines = ('', '', '', ''); @@ -321,7 +321,7 @@ sub normalize_audio { if ( !runcmd($f) ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } $f = "normalize-audio -a $soundlevel_dbfs $workdir/sound.wav"; if ( !runcmd($f) ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } - $f = "ffmpeg -i $sourcedv -i $workdir/sound.wav -map 0.0 -map 1.0 -acodec copy -vcodec copy $targetdv"; + $f = "ffmpeg -i $sourcedv -i $workdir/sound.wav -map 0.0 -map 1.0 -acodec copy -vcodec copy -y $targetdv"; if ( !runcmd($f) ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } return $targetdv; } diff --git a/tools/prepare-for-frikanalen b/tools/prepare-for-frikanalen new file mode 100755 index 0000000..4d24dc0 --- /dev/null +++ b/tools/prepare-for-frikanalen @@ -0,0 +1,37 @@ +#!/bin/sh + +meta="$1" + +if grep -q '^frikanalen=' "$meta" ; then + url=$(grep '^frikanalen=' "$meta"|cut -d= -f2-) + echo "Video is already on Frikanalen, $url" + exit 1 +fi + +basedir=$(dirname $0) +base=$(dirname $meta)/$(basename $meta .meta) + +echo $base $meta +for f in ${base}* ; do + case "$f" in + *.avi|*.dv) + video="$f" + esac +done + +if [ -z "$video" ]; then + echo "error: unable to find video for $meta" + exit 1 +fi + +target=$base-frikanalen.dv +ogv=$base-frikanalen.ogv + +$basedir/gen_frikanalen_video.pl \ + -i $video \ + -m $meta \ + -o $target \ + -b $basedir/lib/graphic/tv-bg.png + +melt $target \ + -consumer avformat:$ogv |