/usr/share/perl5/FlashVideo/Site/Vrak.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 | package FlashVideo::Site::Vrak;
use strict;
use FlashVideo::Utils;
no strict 'refs';
#sub xxcan_handle {
# my($self, $browser, $url) = @_;
# return $browser->content =~ /var\s+videoId\s*=\s*\d+\s*;/i;
#}
sub find_video {
my($self, $browser, $embed_url, $prefs) = @_;
my $check_response = sub {
my ( $message ) = @_;
return if $browser->success;
die sprintf $message, $browser->response->code;
};
my $videoID = 0;
( $videoID ) = ( $browser->content =~ /var\s+videoId\s*=\s*(\d+)\s*;/i );
debug "VIDEOID = " . $videoID;
die "No Vrak Video ID found" unless $videoID;
my $title;
( $title ) = ( $browser->content =~ /var\s+videoTitle\s*=\s*"([^"]+)/i );
debug "TITLE = " . $title . " " . title_to_filename($title, 'flv');
my $xmlurl = 'http://www.vrak.tv/webtele/_dyn/getVideoDataXml.jsp?videoId=' . $videoID;
$browser->get($xmlurl);
my $xml = from_xml($browser);
my $url;
if ( $prefs->{quality} == "high" ) {
$url = $xml->{video}->{highFlvUrl};
} else {
$url = $xml->{video}->{lowFlvUrl};
}
debug "URL = " . $url;
my $ext;
( $ext ) = ( $url =~ /\.(.+)$/i );
die "No (high|low)FlvUrl found in XML ". $xmlurl unless $url;
return $url, title_to_filename($title);
}
1;
|