diff options
author | Petter Reinholdtsen <pere@hungry.com> | 2010-04-08 11:34:39 +0000 |
---|---|---|
committer | Petter Reinholdtsen <pere@hungry.com> | 2010-04-08 11:34:39 +0000 |
commit | cd0943a5910143a4b2a4ffc27cb827e8e8f18283 (patch) | |
tree | c49f0d03424e68db3877d8d95aa385720e813ab7 | |
parent | f164b6bc990a9d186ca6da46bafd924504cbf023 (diff) |
Mer info i tonoskjermen.
-rwxr-xr-x | frikanalen/bin/scheduler | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler index aab9541..d6187d6 100755 --- a/frikanalen/bin/scheduler +++ b/frikanalen/bin/scheduler @@ -525,11 +525,18 @@ sub generate_tonoprogram { my $event = $events[$startseq]; my $title = $event->{'title'}; + my $videoId = $event->{'contentId'}; + my $start = $event->{'start'}; + my $stop = $event->{'stop'}; + my $starttime = str2time($start); + my $stoptime = str2time($stop); + my $startstring = strftime("%H:%M", localtime($starttime)); + my $stopstring = strftime("%H:%M", localtime($stoptime)); - - for my $line (("Programmet '$title'", - "kan ikke vises på grunn av", - "Frikanalens avtale med Tono")) { + for my $line (("Programmet '$title' ($videoId)", + "som sendes mellom $startstring og stopstring", + "kan ikke vises i denne Internet-strømmen på", + " grunn av Frikanalens avtale med Tono.")) { print " $line\n"; @bounds = $im->stringFT($black,$gdfont,$fontsize,$left, 100, $bounds[1] + $fontsize * $linespace, $line); |