Add support for full screen playout.

1 files changed, 9 insertions, 0 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index 9650495..b6faf28 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -24,6 +24,9 @@
 # TrueType font name/path used by GD to draw text
 my $gdfont = "/usr/share/fonts/truetype/ttf-liberation/LiberationSans-Regular.ttf";
 
+# Set to 0 if VLC should not play in full screen mode
+my $fullscreen = 1;
+
 use strict;
 use warnings;
 
@@ -331,6 +334,7 @@ sub vlc_start {
         $vlc->{url} = "http://localhost:8080/";
         $vlc->{pid} = $pid;
         $vlc->{loop} = 0;
+        $vlc->{fullscreen} = 0;
 #        sleep 5; # Give VLC some time to start
         return $vlc;
     }
@@ -359,6 +363,11 @@ sub vlc_play {
                      sub { my $vlc = shift; $vlc->{loop} = ! $vlc->{loop}; }]);
     }
 
+    if ($fullscreen != $vlc->{fullscreen}) {
+        push(@cmds, [$vlc->{url} . "requests/status.xml?command=fullscreen",
+                     sub { my $vlc = shift; $vlc->{fullscreen} = ! $vlc->{fullscreen}; }]);
+    }
+
     for my $cmdref (@cmds) {
         my ($url, $postfunc) = @{$cmdref};