/usr/share/perl5/FlashVideo/Site/Zdf.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 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Zdf;
use strict;
use FlashVideo::Utils;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
my ($id, $filename, $videourl, $quality);
$quality = {high => 'veryhigh', low => 'low'}->{$prefs->{quality}};
debug "Zdf::find_video called, embed_url = \"$embed_url\"\n";
if($browser->content =~ /\/video\/(\d*)\/(.*)"/) {
$id = $1;
debug "found video $1 $2\n";
$filename = title_to_filename($2);
$browser->get("http://www.zdf.de/ZDFmediathek/xmlservice/web/beitragsDetails?id=$id&ak=web");
if($browser->content =~ /(http:\/\/fstreaming\.zdf\.de\/zdf\/$quality\/.*\.meta)/) {
$browser->get($1);
if($browser->content =~ /(rtmp.*)</) {
debug "found rtmp url\"$1\"\n";
$videourl = {
rtmp => $1,
flv => $filename,
swfVfy => "http://www.zdf.de/ZDFmediatek/flash/player.swf"
};
}
}
}
return $videourl, $filename;
}
1;
|