/usr/share/perl5/FlashVideo/Site/Svtplay.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 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Svtplay;
use strict;
use warnings;
use FlashVideo::Utils;
use FlashVideo::JSON;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
my @rtmpdump_commands;
if ($browser->uri->as_string !~ m/video\/([0-9]*)/) {
die "No video id found in url";
}
my $video_id = $1;
my $info_url = "http://www.svtplay.se/video/$video_id?output=json";
$browser->get($info_url);
if (!$browser->success) {
die "Couldn't download $info_url: " . $browser->response->status_line;
}
my $video_data = from_json($browser->content);
my $name = $video_data->{context}->{title};
my $bitrate = 0;
my $rtmp_url;
foreach my $video (@{ $video_data->{video}->{videoReferences} }) {
my $rate = int $video->{bitrate};
if ($bitrate < $rate && $video->{playerType} eq "flash") {
$rtmp_url = $video->{url};
$bitrate = $rate;
}
}
if ($prefs->{subtitles}) {
if (my $subtitles_url = $video_data->{video}->{subtitleReferences}[0]->{url}) {
info "Found subtitles URL: $subtitles_url";
$browser->get($subtitles_url);
if (!$browser->success) {
info "Couldn't download subtitles: " . $browser->status_line;
}
my $srt_filename = title_to_filename($name, "srt");
open my $srt_fh, '>', $srt_filename
or die "Can't open subtitles file $srt_filename: $!";
binmode $srt_fh, ':utf8';
print $srt_fh $browser->content;
close $srt_fh;
}
else {
info "No subtitles found!";
}
}
return {
flv => title_to_filename($name, "flv"),
rtmp => $rtmp_url,
swfVfy => "http://www.svtplay.se/public/swf/video/svtplayer-2012.15.swf",
};
}
1;
|