summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPetter Reinholdtsen <pere@hungry.com>2010-02-27 22:15:57 +0000
committerPetter Reinholdtsen <pere@hungry.com>2010-02-27 22:15:57 +0000
commitd560e5a6cb161eb1bd1e84ae5fe534bf4a72f477 (patch)
tree842a4d83d95f688a1ee5c0808a6770baee34909c
parenta92238486a301f8abe9632e0567e82566afd96fe (diff)
Make it easier to process the downloaded ogg files.
-rwxr-xr-xfrikanalen/bin/scheduler9
1 files changed, 5 insertions, 4 deletions
diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index 874e663..184fb63 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -18,6 +18,7 @@
# libtimedate-perl
# libwww-perl
# vlc
+# ezstream
# libsoap-lite-perl
# ttf-liberation
@@ -228,7 +229,7 @@ if ($opts{'g'}) {
my $id = $downloadreq{$url};
my $filename ;
if ($opts {'o'} ) {
- $filename = "$id.ogv";
+ $filename = "broadcast-$id.ogv";
} else {
$filename = "broadcast-$id.avi";
}
@@ -348,9 +349,9 @@ sub schedule_stream {
my $nowstring = strftime("%H:%M:%S", localtime(time()));
my $file = "";
print "Playing '$title' $startstring-$stopstring (now $nowstring)\n";
- if ( -f "$id.ogv") {
- print "info: Playing local $id.ogv\n";
- $file = "$id.ogv";
+ if ( -f "broadcast-$id.ogv") {
+ print "info: Playing local broadcast-$id.ogv\n";
+ $file = "broadcast-$id.ogv";
}
if ($skiptonorecords && "true" eq $event->{'HasTonoRecords'}) {
# XXX Should generate "Not allowed to play this" screen.