/usr/share/perl5/FlashVideo/Site/Arte.pm is in get-flash-videos 1.25~git2014.03.23-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 54 55 56 57 58 59 60 61 62 63 64 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Arte;
use strict;
use FlashVideo::Utils;
use FlashVideo::JSON;
our $VERSION = '0.02';
sub Version { $VERSION; }
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
my ($lang, $jsonurl, $filename, $videourl, $quality);
debug "Arte::find_video called, embed_url = \"$embed_url\"\n";
my $pageurl = $browser->uri() . "";
if($pageurl =~ /www\.arte\.tv\/guide\/(..)\//) {
$lang = $1;
} elsif($pageurl =~ /concert.arte.tv\/(..)\//) {
$lang = $1;
} else {
die "Unable to find language in original URL \"$pageurl\"\n";
}
if($browser->content =~ /arte_vp_url="(.*)"/) {
$jsonurl = $1;
debug "found arte_vp_url \"$jsonurl\"\n";
($filename = $jsonurl) =~ s/-.*$//;
$filename =~ s/^.*\///g;
$filename .= '_'.$prefs->{quality};
$filename = title_to_filename(extract_title($browser), 'flv');
} else {
die "Unable to find 'arte_vp_url' in page\n";
}
$browser->get($jsonurl);
$quality = {high => 'SQ', medium => 'MQ', low => 'LQ'}->{$prefs->{quality}};
my $result = from_json($browser->content());
my $protocol = "";
if (defined ($result->{videoJsonPlayer}->{VSR}->{'RTMP_'.$quality.'_1'})) {
my $video_json = $result->{videoJsonPlayer}->{VSR}->{'RTMP_'.$quality.'_1'};
$videourl = {
rtmp => $video_json->{streamer},
playpath => 'mp4:'.$video_json->{url},
flv => $filename,
};
return $videourl, $filename;
} elsif (defined ($result->{videoJsonPlayer}->{VSR}->{'HTTP_'.$quality.'_1'})) {
my $video_json = $result->{videoJsonPlayer}->{VSR}->{'HTTP_'.$quality.'_1'};
return $video_json->{url}, $filename;
} else {
die "Unable to figure out transport protocol in page\n";
}
}
1;
|