/usr/share/perl5/FlashVideo/Site/Ardmediathek.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 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Ardmediathek;
use strict;
use FlashVideo::Utils;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
my ($id, $filename, $videourl, $quality);
$quality = {high => '2', low => '1'}->{$prefs->{quality}};
if($embed_url =~ /documentId=(\d+)/) {
$id = $1;
debug "Ardmediathek::find_video called, embed_url = \"$embed_url\"\n";
debug "documentId: $id\n";
debug "quality: $quality\n";
if($browser->content =~ /addMediaStream\(0, $quality, "(rtmp:\/\/.*?)", "(.*?)"/) {
$videourl = "$1/$2";
debug "found videourl: $videourl\n";
if($2 =~ /clip=(.*?)&/) {
$filename = "$1.flv";
} else {
$filename = "$id.flv";
}
$filename = title_to_filename($filename);
$videourl = {
rtmp => $videourl,
swfVfy => "http://www.ardmediathek.de/ard/static/player/base/flash/PluginFlash.swf"
};
}
}
return $videourl, $filename;
}
1;
|