Gjør convert-linjen som lager sluttskjermen enklere å lese.

1 files changed, 10 insertions, 2 deletions

diff --git a/tools/gen_frikanalen_video.pl b/tools/gen_frikanalen_video.pl
index 19ded9d..2ec0ed7 100755
--- a/tools/gen_frikanalen_video.pl
+++ b/tools/gen_frikanalen_video.pl
@@ -218,8 +218,16 @@ sub create_endposter_png {
   }
   my $name = shift;
   my $bgfile = shift;
-  my $f = "convert $bgfile -pointsize $text_size -fill white -gravity NorthWest $cmd_body -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",
+       "-pointsize", "$text_size",
+       "-fill", "white",
+       "-gravity", "NorthWest",
+       "$cmd_body",
+       "-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 gen_dv_from_png {