Legg inn 'NUUG presenterer' i starten av frontskjermen.

1 files changed, 18 insertions, 3 deletions

diff --git a/tools/gen_frikanalen_video.pl b/tools/gen_frikanalen_video.pl
index eaab582..19ded9d 100755
--- a/tools/gen_frikanalen_video.pl
+++ b/tools/gen_frikanalen_video.pl
@@ -165,8 +165,23 @@ sub create_startposter_png {
   my $name = shift;
   my $title_lines = break_title($meta->{'title'});
   my $bgfile = shift;
-  my $f = "convert $bgfile -pointsize 72 -fill white -gravity NorthWest -draw \"text 450,167 \'$meta->{'presenter'}\'\" -pointsize 60 -draw \"text 450,300 \'$title_lines->[0]\'\" -draw \"text 450,380 \'$title_lines->[1]\'\" -draw \"text 450,460 \'$title_lines->[2]\'\" -draw \"text 450,540 \'$title_lines->[3]\'\" -pointsize 36 -pointsize 36 -draw \"text 52,790 \'$meta->{'url'}\'\" -draw \"text 750,640 \'$meta->{'place'}, $meta->{'date'}\'\" $name";
-  if ( !runcmd($f) ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; }
+  my @cmd =
+      ("convert", "$bgfile",
+       "-fill", "white", "-gravity", "NorthWest",
+       "-pointsize", "36",
+       "-draw", "\"text 450,167 \'NUUG presenterer\'\"",
+       "-pointsize", "72",
+       "-draw", "\"text 450,247 \'$meta->{'presenter'}\'\"",
+       "-pointsize", "60",
+       "-draw", "\"text 450,380 \'$title_lines->[0]\'\"",
+       "-draw", "\"text 450,460 \'$title_lines->[1]\'\"",
+       "-draw", "\"text 450,540 \'$title_lines->[2]\'\"",
+       "-draw", "\"text 450,620 \'$title_lines->[3]\'\"",
+       "-pointsize", "36",
+       "-draw", "\"text 52,790 \'$meta->{'url'}\'\"",
+       "-draw", "\"text 750,640 \'$meta->{'place'}, $meta->{'date'}\'\" $name");
+
+  if ( !runcmd(@cmd) ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; }
 }
 
 sub create_endposter_png {
@@ -291,7 +306,7 @@ sub getsrtfile {
 }
 
 sub runcmd {
-  my ($cmd) = @_;
+  my $cmd = join(" ", @_)
   print "Cmd: $cmd\n" if $debug;
   my $f = `$cmd  || echo  -n -1`;
   return 0 if ( $f eq -1 );