/usr/share/perl5/FlashVideo/Site/Tv3play.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 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Tv3play;
use strict;
use FlashVideo::Utils;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
return $self->find_video_viasat($browser,$embed_url,$prefs);
}
sub find_video_viasat {
my ($self, $browser, $embed_url, $prefs) = @_;
my $video_id = ($browser->content =~ /id:([0-9]*),/)[0];
info "Got video_id: $video_id";
my $info_url = "http://viastream.viasat.tv/PlayProduct/$video_id";
$browser->get($info_url);
my $variable = $browser->content;
$variable =~ s/\n//g;
my $title = ($variable =~ /<Title><!\[CDATA\[(.*?)\]\]><\/Title>/)[0];
my $flv_filename = title_to_filename($title, "flv");
# Subtitle Format not supported
# my $subtitle_url = ($variable =~ /<SamiFile>(.*)<\/SamiFile>/)[0];
# debug "Subtitle_url: $subtitle_url";
# if ($prefs->{subtitles} == 1) {
# if (not $subtitle_url eq '') {
# info "Found subtitles: $subtitle_url";
# $browser->get("$subtitle_url");
# my $srt_filename = title_to_filename($title, "srt");
# convert_sami_subtitles_to_srt($browser->content, $srt_filename);
# } else {
# info "No subtitles found!";
# }
# }
my @urls;
my $count = 0;
my $base = ($variable =~ /<Videos>(.*)<\/Videos>/)[0];
for ($count = 0; $count < 3; $count++){
my $video = ($base =~ /<Video>(.+)<\/Video>/p)[0];
if ($video eq ''){last;};
$base = ${^POSTMATCH};
my $bitrate = ($video =~ /<BitRate>([0-9]*)<\/BitRate>/)[0];
my $url = ($video =~ /<Url><!\[CDATA\[(.*)]]><\/Url>/)[0];
if (not (($url =~ /http:\/\//)[0] eq '')){
$browser->get($url);
$variable = $browser->content;
$variable =~ s/\n//g;
$url = ($variable =~ /<Url>(.*)<\/Url>/)[0];
}
$urls[$count++] = { 'bitrate' => $bitrate,
'rtmp' => $url
};
}
my $bitrate = 0;
my $rtmp;
my $new_bitrate;
foreach (@urls) {
$new_bitrate = int($_->{bitrate});
if($new_bitrate > $bitrate){
$bitrate = int($_->{bitrate});
$rtmp = $_->{rtmp};
}
};
return{
rtmp => $rtmp,
swfVfy => "http://flvplayer-viastream-viasat-tv.origin.vss.viasat.tv/play/swf/player110420.swf",
flv => $flv_filename
};
}
1;
|