/usr/share/perl5/FlashVideo/Site/Arte.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 54 55 56 57 58 59 60 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Arte;
use strict;
use FlashVideo::Utils;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
my ($lang, $xmlurl1, $xmlurl2, $filename, $videourl, $hash, $playerurl, $quality);
debug "Arte::find_video called, embed_url = \"$embed_url\"\n";
my $pageurl = $browser->uri() . "";
if($pageurl =~ /videos\.arte\.tv\/(..)\//) {
$lang = $1;
} else {
die "Unable to find language in original URL \"$pageurl\"\n";
}
if($browser->content =~ /videorefFileUrl = "(.*)";/) {
$xmlurl1 = $1;
debug "found videorefFileUrl \"$xmlurl1\"\n";
($filename = $xmlurl1) =~ s/-.*$//;
$filename =~ s/^.*\///g;
$filename = title_to_filename($filename);
} else {
die "Unable to find 'videorefFileUrl' in page\n";
}
if($browser->content =~ /<param name="movie" value="(http:\/\/videos\.arte\.tv\/[^\?]+)\?/) {
$playerurl = $1;
debug "found playerurl \"$playerurl\"\n";
}
$browser->get($xmlurl1);
if($browser->content =~ /<video lang="$lang" ref="(.*)"\s?\/>/) {
$xmlurl2 = $1;
debug "found <video ref=\"$xmlurl2\">\n";
} else {
die "Unable to find <video ref...> in XML $xmlurl1\n";
}
$browser->get($xmlurl2);
$quality = {high => 'hd', low => 'sd'}->{$prefs->{quality}};
if($browser->content =~ /<url quality="$quality">([^<]+)<\/url>/) {
$videourl = { rtmp => $1,
flv => $filename};
if(defined $playerurl) {
$videourl->{swfVfy} = $playerurl;
}
} else {
die "Unable to find <url ...> in XML $xmlurl2\n";
}
return $videourl, $filename;
}
1;
|