Move font name to a config section in the start of the script.

1 files changed, 7 insertions, 5 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index 30d0c27..274581c 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -15,6 +15,9 @@
 #  ffmpeg2theora
 #  libevent-perl
 
+# TrueType font name/path used by GD to draw text
+my $gdfont = "/usr/share/fonts/truetype/ttf-liberation/LiberationSans-Regular.ttf";
+
 use strict;
 use warnings;
 
@@ -195,10 +198,9 @@ sub generate_program {
     my $fontsize = 20;
     my $left = 0;
     my $futurelines = 9;
-    my $font = "/usr/share/fonts/truetype/ttf-liberation/LiberationSans-Regular.ttf";
     $im->fill(50,50,$white);
     my @bounds =
-        $im->stringFT($black,$font,$fontsize*2,$left,30,50,"Frikanalen");
+        $im->stringFT($black,$gdfont,$fontsize*2,$left,30,50,"Frikanalen");
 
     $bounds[1] += 80; # Move rest of the text down on the screen
 
@@ -217,14 +219,14 @@ sub generate_program {
         if ($date ne $datestring) {
             my $infostring = "$datestring";
             print "  $infostring\n";
-            @bounds = $im->stringFT($black,$font,$fontsize,$left,
+            @bounds = $im->stringFT($black,$gdfont,$fontsize,$left,
                                     90, $bounds[1] + $fontsize * 2, "$infostring");
             $date = $datestring;
             $futurelines -= 1;
         }
         my $infostring = "$startstring-$stopstring - $title";
         print "  $infostring\n";
-        @bounds = $im->stringFT($black,$font,$fontsize,$left,
+        @bounds = $im->stringFT($black,$gdfont,$fontsize,$left,
                                 100, $bounds[1] + $fontsize * 2, "$infostring");
         $seq++;
     }
@@ -298,7 +300,7 @@ sub vlc_start {
     } else {
         $vlc->{url} = "http://localhost:8080/";
         $vlc->{pid} = $pid;
-        sleep 5; # Give VLC some time to start
+#        sleep 5; # Give VLC some time to start
         return $vlc;
     }
 }