Current code to make Frikanalen entries.HEADmaster

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