summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xfrikanalen/bin/scheduler10
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);
}