/usr/share/perl5/FlashVideo/Site/Truveo.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 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Truveo;
use strict;
use FlashVideo::Utils;
sub find_video {
my($self, $browser, $embed_url, $prefs) = @_;
my($videourl) = $browser->content =~ /var videourl = "(.*?)"/;
# Maybe we were given a direct URL..
$videourl = $embed_url
if !$videourl && $browser->uri->host eq 'xml.truveo.com';
die "videourl not found" unless $videourl;
$browser->get($videourl);
if($browser->content =~ /url=(http:.*?)["']/) {
my $redirect = url_exists($browser, $1);
$browser->get($redirect);
my($package, $possible_url) = FlashVideo::URLFinder->find_package($redirect, $browser);
die "Recursion detected" if $package eq __PACKAGE__;
return $package->find_video($browser, $possible_url, $prefs);
} else {
die "Redirect URL not found";
}
}
1;
|