/usr/share/perl5/FlashVideo/Site/Kanal5play.pm is in get-flash-videos 1.25~git2012.06.27-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Kanal5play;
use strict;
use warnings;
use FlashVideo::Utils;
use FlashVideo::JSON;
my $bitrates = {
"low" => 250000,
"medium" => 450000,
"high" => 900000 };
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
if(!($browser->uri->as_string =~ m/video\/([0-9]*)/)){
die "No video id found in url";
}
my ($video_id) = $1;
my $info_url = "http://www.kanal5play.se/api/getVideo?format=FLASH&videoId=$video_id";
$browser->get($info_url);
if (!$browser->success){
die "Couldn't download $info_url: " . $browser->response->status_line;
}
my $jsonstr = $browser->content;
my $json = from_json($jsonstr);
my $name = $json->{program}->{name};
my $episode = $json->{episodeNumber};
my $season = $json->{seasonNumber};
my $filename = sprintf "%s - S%02dE%02d", $name, $season, $episode;
my ($rtmp) = "rtmp://fl1.c00608.cdn.qbrick.com:1935/00608";
my ($playpath) = $json->{streams}[0]->{source};
my $i;
foreach $i (keys $json->{streams}) {
my ($rate) = int($json->{streams}[$i]->{bitrate});
if($bitrates->{$prefs->{quality}} == $rate){
$playpath = $json->{streams}[$i]->{source};
}
}
return {
flv => title_to_filename($filename, "flv"),
rtmp => $rtmp,
playpath => $playpath,
swfVfy => "http://www.kanal5play.se/flash/StandardPlayer.swf"
};
}
1;
|