Bugfix and disable reloading playlist with program immediately

1 files changed, 10 insertions, 10 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index 23371bc..949bafb 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -101,20 +101,20 @@ sub plwrite {
     kill SIGHUP => $ezpid;
     kill SIGUSR1 => $ezpid;
   }
-  sleep 5;
-  open PL, ">$ezplaylist" or die "Cannot open $ezplaylist for write :$!";
-  print PL "fk-program.jpg\n"; 
-  close PL;
-  if ( $ezpid ) {
-    kill SIGHUP => $ezpid; # Rearead playlist with pause screen, so that next loop
-                           # shows that and not the program again
-  }
+  #sleep 5;
+  #open PL, ">$ezplaylist" or die "Cannot open $ezplaylist for write :$!";
+  #print PL "fk-program.jpg\n"; 
+  #close PL;
+  #if ( $ezpid ) {
+  #  kill SIGHUP => $ezpid; # Rearead playlist with pause screen, so that next loop
+  #                         # shows that and not the program again
+  #}
 }
 
 sub ezstream_start {
   my $ezstream = "/usr/bin/ezstream";
   my $url = shift;
-  &plwrite("fk-program.ogv");
+  &plwrite("fk-program.jpg");
   print $ezcfg <<EOF if $ezcfg;
   <ezstream>
     <url>$url</url>
@@ -285,7 +285,7 @@ if ( $opts{"s"} ) {
     $seq++;
   }
 
-  #print Dumper(@events);
+  print Dumper(@events);
   my $suicide_time = `date -d '03:00 + 1 day' +%s`;
   Event->timer(at => $suicide_time,
       data => {},