/usr/share/perl5/FlashVideo/Site/Tv4play.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 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Tv4play;
use strict;
use FlashVideo::Utils;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
my $vid = ($embed_url =~ /videoid=([0-9]*)/)[0];
my $smi_url = "http://premium.tv4play.se/api/web/asset/$vid/play";
my $title = ($browser->content =~ /property="og:title" content="(.*?)"/)[0];
my $flv_filename = title_to_filename($title, "flv");
$browser->get($smi_url);
my $content = from_xml($browser);
my $i = 0;
my @dump;
my $subtitle_url;
for ($i = 0; $i < 5; $i++){
my $format = $content->{items}->{item}[$i]->{mediaFormat};
my $bitrate = $content->{items}->{item}[$i]->{bitrate};
my $rtmp = $content->{items}->{item}[$i]->{base};
my $mp4 = $content->{items}->{item}[$i]->{url};
@dump[$i] = { 'rtmp' => $rtmp,
'bitrate' => $bitrate,
'mp4' => $mp4,
'format' => $format
};
}
foreach (@dump) {
if($_->{format} eq 'smi'){ $subtitle_url = $_->{mp4};}
}
debug "Subtitle_url: $subtitle_url";
# Subtitle not supported
# 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");
# if(!eval { require XML::Simple && XML::Simple::XMLin("<foo/>") }) {
# die "Must have XML::Simple to download " . caller =~ /::([^:])+$/ . " videos\n";
# }
# convert_sami_subtitles_to_srt($browser->content, $srt_filename);
# } else {
# info "No subtitles found!";
# }
# }
return {
rtmp => $dump[0]->{rtmp},
swfVfy => "http://www.tv4play.se/flash/tv4playflashlets.swf",
playpath => $dump[0]->{mp4},
flv => $flv_filename
};
}
1;
|