Avoid depending on global $vlc variable.

1 files changed, 4 insertions, 0 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index 12b6bf9..2b87118 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -140,6 +140,7 @@ sub schedule_video {
     Event->timer(at => $starttime,
                  data => {
                      eventref => $events[$seq],
+                     vlc => $vlc,
                      seq => $seq
                  },
                  cb => sub {
@@ -149,6 +150,7 @@ sub schedule_video {
                      my $seq = $data->{seq};
                      my $title = $eventref->{'title'};
                      my $ogvurl  = $eventref->{'ogvurl'};
+                     my $vlc = $event->w->data()->{vlc};
 
                      my $startstring = short_time($eventref->{'start'});
                      my $stopstring = short_time($eventref->{'stop'});
@@ -163,12 +165,14 @@ sub schedule_video {
     my $stopstring = strftime("%H:%M", localtime($stoptime));
     Event->timer(at => $stoptime - 30,
                  data => {
+                     vlc => $vlc,
                      seq => $seq,
                      name => "Pause starting $stopstring",
                  },
                  cb => sub {
                      my $event = shift;
                      my $seq = $event->w->data()->{seq};
+                     my $vlc = $event->w->data()->{vlc};
                      print "Generate pause screen for $seq\n";
                      my $programogv = generate_program($vlc, $seq);
                      Event->timer(at => $stoptime,