/usr/share/perl5/FlashVideo/Site/Canalvie.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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | #############################################################################
# Canalvie.pm 2010-11-25
#
# Reverse-engineered using URLSnooper v2.28.01 & WinPcap 4.1.2
#
# Stavr0
#
#
{
package FlashVideo::Site::Canalvie;
use strict;
use FlashVideo::Utils;
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*;/ );
debug "VIDEOID = " . $videoID;
die "No Canalvie Video ID found" unless $videoID;
my $title;
( $title ) = ( $browser->content =~ /NOM EPISODE\+LIEN ici --><a [^>]+>([^<]+)/ );
debug "TITLE = " . $title . " " . title_to_filename($title, 'flv');
my $xmlurl = 'http://www.canalvie.com/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 =~ /\.(.+)$/ );
die "No (high|low)FlvUrl found in XML ". $xmlurl unless $url;
return $url, title_to_filename($title, $ext);
}
1;
}
|