diff options
-rwxr-xr-x | frikanalen/bin/scheduler | 10 |
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); } |