No use sending broken URLs to VLC.

1 files changed, 9 insertions, 1 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index bcab14b..f392ad9 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -78,7 +78,15 @@ sub process_event {
 
         print "# [$start -> $stop] $title\n";
         print "$ogvurl\n";
-        vlc_play($vlc, $ogvurl);
+
+        my $ua = new LWP::UserAgent;
+        my $req = new HTTP::Request HEAD => $ogvurl;
+        my $res = $ua->request($req);
+        if ($res->is_success) {
+            vlc_play($vlc, $ogvurl);
+        } else {
+            print "error: Missing $ogvurl\n";
+        }
     } else {
 #        print Dumper($eventref);
     }